examples/wizard.tcl

   1 #!/usr/bin/env tclsh8.4
   2
   3 # vim: ft=tcl foldmethod=marker foldmarker=<<<,>>> ts=4 shiftwidth=4
   4
   5 package require TLC 0.90.0
   6
   7 source "boilerplate.tcl"
   8
   9 Wizard .wizard -startpage start -routing {
  10         start { #<<<
  11                 Next {
  12                         {$dat(usefoo)}  get_foo
  13                         default                 get_bar
  14                 }
  15         }
  16         #>>>
  17         get_foo { #<<<
  18                 Back    start
  19                 Next    get_bar
  20         }
  21         #>>>
  22         get_bar { #<<<
  23                 Back {
  24                         {$dat(usefoo)}  get_foo
  25                         default                 start
  26                 }
  27                 Next    review
  28         }
  29         #>>>
  30         review { #<<<
  31                 Back    get_bar
  32                 Finish  {}
  33         }
  34         #>>>
  35 } -pages {
  36         start { #<<<
  37                 type form
  38                 schema {
  39                         _layout         {row_args_sticky -resize none}
  40                         _layout         {col_args_sticky -resize none}
  41                         "Foo?"                  {usefoo radiogroup -choices {
  42                                         "Use Foo"                       1
  43                                         "Don't Use foo"         0
  44                                 }
  45                         }
  46
  47                         _validation_not_blank {
  48                                 "%1 must be filled in"
  49                                 "Foo?"          usefoo
  50                         }
  51                 }
  52         }
  53         #>>>
  54         get_foo { #<<<
  55                 type form
  56                 schema {
  57                         _layout         {row_args_sticky -resize none}
  58                         _layout         {col_args_sticky -resize none}
  59                         "Foo"                   {foo entry}
  60
  61                         _validation_not_blank {
  62                                 "%1 must be filled in"
  63                                 "Foo"   foo
  64                         }
  65                 }
  66         }
  67         #>>>
  68         get_bar { #<<<
  69                 type form
  70                 schema {
  71                         _layout         {row_args_sticky -resize none}
  72                         _layout         {col_args_sticky -resize none}
  73                         "Foo"                   {foo label}
  74                         "Bar"                   {bar entry}
  75
  76                         _validation_not_blank {
  77                                 "%1 must be filled in"
  78                                 "Bar"   bar
  79                         }
  80
  81                         _validation {
  82                                 {!$dat(usefoo) || [string first $dat(foo) $dat(bar)] > -1}
  83                                 "If use choose to use foo, bar must contain it"
  84                                 {bar}
  85                         }
  86                 }
  87         }
  88         #>>>
  89         review { #<<<
  90                 type form
  91                 schema {
  92                         _layout         {row_args_sticky -resize none}
  93                         _layout         {col_args_sticky -resize none}
  94                         "Foo"                   {foo label}
  95                         "Bar"                   {bar label}
  96                 }
  97                 #type html
  98                 #html {
  99                 #       <table>
 100                 #               <tr><td>Foo</td><td>%foo%</td></tr>
 101                 #               <tr><td>Bar</td><td>%bar%</td></tr>
 102                 #       </table>
 103                 #}
 104         }
 105         #>>>
 106 }
 107
 108 blt::table . \
 109                 .wizard         1,1 -fill both
 110
 111 wm geometry . "450x250"
 112
 113 .wizard waitfor finished
 114
 115 array set dat   [.wizard get_data]
 116 delete object .wizard
 117
 118 puts "Got:"
 119 parray dat
 120
 121 exit