scripts/var_domino.itcl

   1 # vim: foldmarker=<<<,>>>
   2
   3 class tlc::Vardomino {
   4         inherit tlc::Domino
   5
   6         constructor {accessvar args} {
   7                 upvar $accessvar scopevar
   8                 tlc::Domino::constructor scopevar
   9         } {}
  10         destructor {}
  11
  12         public {
  13                 variable textvariable   ""
  14         }
  15
  16         private {
  17                 variable old_textvariable       ""
  18         }
  19 }
  20
  21
  22 configbody tlc::Vardomino::textvariable { #<<<
  23         if {$old_textvariable ne ""} {
  24                 trace vdelete $old_textvariable wu [code $this tip]
  25         }
  26         if {$textvariable ne ""} {
  27                 trace variable $textvariable wu [code $this tip]
  28                 set old_textvariable    $textvariable
  29         }
  30         tip
  31 }
  32
  33 #>>>
  34 body tlc::Vardomino::constructor {accessvar args} { #<<<
  35         configure {*}$args
  36 }
  37
  38 #>>>
  39 body tlc::Vardomino::destructor {} { #<<<
  40         trace vdelete $textvariable wu [code $this tip]
  41 }
  42
  43 #>>>