examples/formdeth.tcl

   1 #!/usr/bin/tclsh
   2
   3 set auto_path   [concat [file join [lrange [file split [pwd]] 0 end-1]] $auto_path]
   4
   5 package require TLC 0.54.1
   6 namespace import tlc::*
   7 eval [go_home]
   8
   9 Form .form -schema {
  10         "Foo"   foo
  11         "Bar"   bar
  12 }
  13
  14 blt::table . -padx 5 -pady 5 \
  15                 .form           1,1 -fill both
  16
  17 destroy .form
  18 #delete object .form
  19
  20 update idletasks
  21
  22 puts "children of the .:"
  23 puts [join [winfo children .] \n]
  24
  25 puts "all objects:"
  26 puts [find objects]
  27
  28
  29 Form .form -schema {
  30         _layout {default_options entry -relief raised -background red}
  31         "Foo"   foo
  32         "Bar"   bar
  33 }
  34
  35 blt::table . -padx 5 -pady 5 \
  36                 .form           1,1 -fill both
  37