scripts/cal_popup.itk

   1 itk::usual Calpopup {
   2         keep -resultformat -monthnames -titlegap -titleheight -titlespacer \
   3                  -weekdayheaders -padx -pady -cellwidth -cellheight -dayheaderheight \
   4                  -validfrom -validto -titlefg -titlefont -fillerbg -weekdayheaderbg \
   5                  -availablebg -invalidbg -weekendbg -specialbg -dayfont \
   6                  -weekdayheaderfont -weekdayheaderfg -availablefg -invalidfg \
   7              -weekendfg -specialfg -borders -background -command -special_cb \
   8                 -onlyweekdays
   9 }
  10
  11 class tlc::Calpopup {
  12         inherit tlc::Module
  13
  14         constructor {args} {}
  15
  16         public {
  17                 variable parent
  18         }
  19 }
  20
  21
  22 body tlc::Calpopup::constructor {args} {
  23         itk_component add border {
  24                 frame $w.border
  25         } {
  26                 usual
  27                 keep -borderwidth -relief -background
  28         }
  29         itk_component add calendar {
  30                 tlc::Calendar $w.border.cal
  31         } {
  32                 usual
  33                 keep -command
  34                 keep -onlyweekdays
  35         }
  36
  37         eval itk_initialize $args
  38
  39         table $w \
  40                         $w.border       1,1
  41         table $w.border \
  42                         $w.border.cal   1,1
  43
  44         configure -onclose [list $parent popdown]
  45 }
  46
  47