Posted to tcl by colin at Tue Jan 04 01:44:26 GMT 2011view raw

  1. Form layout foo {
  2. fieldset fsearch {
  3. submit submit "Search"
  4. text kw title "Search Text"
  5. <br> clear both
  6. radioset scope {fieldset style} "float:left" legend "Search scope" {
  7. +site 0
  8. section 1
  9. }
  10. select newer {fieldset style} "float:left" legend "Newer Than" {
  11. option week value "last week"
  12. option fortnight value "last fortnight"
  13. option month value "last month"
  14. option year value "last year"
  15. }
  16. select older {fieldset style} "float:left" legend "Older Than" {
  17. option week value "last week"
  18. option fortnight value "last fortnight"
  19. option month value "last month"
  20. option year value "last year"
  21. }
  22. select sort {fieldset style} "float:left" legend "Sort By" {
  23. option title value title
  24. option author value author
  25. }
  26. }
  27. fieldset sr1 style moop {
  28. radioset scope1 label "Search scope" {
  29. +site 0
  30. section 1
  31. }
  32. select newer1 label "Newer Than" {
  33. option week value "last week"
  34. option fortnight value "last fortnight"
  35. option month value "last month"
  36. option year value "last year"
  37. }
  38. select older1 label "Older Than" {
  39. option week value "last week"
  40. option fortnight value "last fortnight"
  41. option month value "last month"
  42. option year value "last year"
  43. }
  44. selectset sort1 label "Sort By" {
  45. title
  46. author
  47. }
  48. }
  49. text fullname label "full name"
  50. button foo
  51. radioset rs ...
  52. text text ...
  53. }]