home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / iwidgets2.2.0 / scripts / spindate.itk < prev    next >
Text File  |  1999-02-24  |  19KB  |  606 lines
  1. # Spindate 
  2. # ----------------------------------------------------------------------
  3. # Implements a Date spinner widget.  A date spinner contains three
  4. # Spinner widgets:  one Spinner for months, one SpinInt for days,
  5. # and one SpinInt for years.  Months can be specified as abbreviated
  6. # strings, integers or a user-defined list.  Options exist to manage to 
  7. # behavior, appearance, and format of each component spinner.
  8. #
  9. # ----------------------------------------------------------------------
  10. #   AUTHOR:  Sue Yockey               Phone: (214) 519-2517
  11. #                                     E-mail: syockey@spd.dsccc.com
  12. #                                             yockey@actc.com
  13. #
  14. #   @(#) $Id: spindate.itk,v 1.1 1998/07/27 18:49:51 stanton Exp $
  15. # ----------------------------------------------------------------------
  16. #            Copyright (c) 1995 DSC Technologies Corporation
  17. # ======================================================================
  18. # Permission to use, copy, modify, distribute and license this software 
  19. # and its documentation for any purpose, and without fee or written 
  20. # agreement with DSC, is hereby granted, provided that the above copyright 
  21. # notice appears in all copies and that both the copyright notice and 
  22. # warranty disclaimer below appear in supporting documentation, and that 
  23. # the names of DSC Technologies Corporation or DSC Communications 
  24. # Corporation not be used in advertising or publicity pertaining to the 
  25. # software without specific, written prior permission.
  26. # 
  27. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  28. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  29. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  30. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  31. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  32. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  33. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  34. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  35. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  36. # SOFTWARE.
  37. # ======================================================================
  38.  
  39. #
  40. # Default resources.
  41. #
  42. option add *Spindate.monthLabel "Month" widgetDefault
  43. option add *Spindate.dayLabel "Day" widgetDefault
  44. option add *Spindate.yearLabel "Year" widgetDefault
  45. option add *Spindate.monthWidth 4 widgetDefault
  46. option add *Spindate.dayWidth 4 widgetDefault
  47. option add *Spindate.yearWidth 4 widgetDefault
  48.  
  49. #
  50. # Usual options.
  51. #
  52. itk::usual Spindate {
  53.     keep -background -cursor -foreground -highlightcolor -highlightthickness \
  54.      -labelfont -selectbackground -selectborderwidth -selectforeground \
  55.      -textbackground -textfont 
  56. }
  57.  
  58. # ------------------------------------------------------------------
  59. #                            SPINDATE
  60. # ------------------------------------------------------------------
  61. class iwidgets::Spindate {
  62.     inherit itk::Widget 
  63.     
  64.     constructor {args} {}
  65.     destructor {}
  66.     
  67.     itk_option define -labelpos labelPos Position w
  68.     itk_option define -orient orient Orient vertical 
  69.     itk_option define -monthon monthOn MonthOn true 
  70.     itk_option define -dayon dayOn DayOn true 
  71.     itk_option define -yearon yearOn YearOn true 
  72.     itk_option define -datemargin dateMargin Margin 1 
  73.     itk_option define -yeardigits yearDigits YearDigits 2 
  74.     itk_option define -monthformat monthFormat MonthFormat integer 
  75.  
  76.     public method get {{component all}} 
  77.     public method insert {component index string} 
  78.     public method delete {args} 
  79.     public method clear {} 
  80.  
  81.     protected method _packDate {{when later}} 
  82.  
  83.     private method _spinMonth {direction} 
  84.     private method _blockInput {obj char} 
  85.  
  86.     common MONTH_STR {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec}
  87.     common MONTH_INT {1 2 3 4 5 6 7 8 9 10 11 12}
  88.     
  89.     protected variable _repack {}             ;# Reconfiguration flag.
  90.     private variable MONTH_LIST {}            ;# Private copy of month list.
  91. }
  92.  
  93. #
  94. # Provide a lowercased access method for the Spindate class.
  95. # 
  96. proc ::iwidgets::spindate {pathName args} {
  97.     uplevel ::iwidgets::Spindate $pathName $args
  98. }
  99.  
  100. # ------------------------------------------------------------------
  101. #                        CONSTRUCTOR
  102. # ------------------------------------------------------------------
  103. body iwidgets::Spindate::constructor {args} {
  104.     #
  105.     # Create Month Spinner
  106.     #
  107.     itk_component add month {
  108.     iwidgets::Spinner $itk_interior.month  -fixed 2 \
  109.         -decrement [code $this _spinMonth -1] \
  110.         -increment [code $this _spinMonth 1] \
  111.         -validate "$this _blockInput"
  112.     } {
  113.     keep -background -cursor -arroworient -foreground \
  114.         -highlightcolor -highlightthickness \
  115.         -labelfont -labelmargin -relief -selectbackground \
  116.         -selectborderwidth -selectforeground -textbackground \
  117.         -textfont -repeatdelay -repeatinterval
  118.  
  119.     rename -labeltext -monthlabel monthLabel Text
  120.     rename -width -monthwidth monthWidth Width
  121.     }
  122.     pack $itk_component(month) -fill x
  123.     $itk_component(month) insert 0 1
  124.     set MONTH_LIST $MONTH_INT
  125.     
  126.     #
  127.     # Create Margin Frame 
  128.     #
  129.     itk_component add mth_day_marg {
  130.     frame $itk_interior.mth_day_marg
  131.     } {
  132.     keep -background -cursor
  133.     }
  134.     pack $itk_component(mth_day_marg)
  135.     
  136.     #
  137.     # Create Day Spinner
  138.     #
  139.     itk_component add day {
  140.     iwidgets::Spinint $itk_interior.day -range {1 31} -fixed 2
  141.     } {
  142.     keep -background -cursor -arroworient -foreground \
  143.         -highlightcolor -highlightthickness \
  144.         -labelfont -labelmargin -relief -step -selectbackground \
  145.         -selectborderwidth -selectforeground -textbackground \
  146.         -textfont -repeatdelay -repeatinterval
  147.  
  148.     rename -labeltext -daylabel dayLabel Text
  149.     rename -width -daywidth dayWidth Width
  150.     }
  151.     pack $itk_component(day) -fill x
  152.     
  153.     #
  154.     # Create Margin Frame 
  155.     #
  156.     itk_component add day_yr_marg {
  157.     frame $itk_interior.day_yr_marg
  158.     } {
  159.     keep -background -cursor
  160.     }
  161.     pack $itk_component(day_yr_marg)
  162.     
  163.     #
  164.     # Create Year Spinner
  165.     #
  166.     itk_component add year {
  167.     iwidgets::Spinint $itk_interior.year -range {0 99} -fixed 2
  168.     } {
  169.     keep -background -cursor -arroworient -foreground \
  170.         -highlightcolor -highlightthickness \
  171.         -labelfont -labelmargin -relief -step -selectbackground \
  172.         -selectborderwidth -selectforeground -textbackground \
  173.         -textfont -repeatdelay -repeatinterval
  174.  
  175.     rename -labeltext -yearlabel yearLabel Text
  176.     rename -width -yearwidth yearWidth Width
  177.     }
  178.     pack $itk_component(year) -fill x
  179.     $itk_component(year) clear 
  180.     $itk_component(year) insert 0 "95" 
  181.  
  182.     #
  183.     # Explicitly handle configs that may have been ignored earlier.
  184.     #
  185.     eval itk_initialize $args
  186.     # 
  187.  
  188.     # When idle, pack the date spinner.
  189.     #
  190.     _packDate
  191. }
  192.  
  193. # ------------------------------------------------------------------
  194. #                           DESTRUCTOR
  195. # ------------------------------------------------------------------
  196. body iwidgets::Spindate::destructor {} {
  197.     if {$_repack != ""} {after cancel $_repack}
  198. }
  199.  
  200. # ------------------------------------------------------------------
  201. #                             OPTIONS
  202. # ------------------------------------------------------------------
  203.  
  204. # ------------------------------------------------------------------
  205. # OPTION: -labelpos
  206. #
  207. # Specifies the location of all 3 spinners' labels.
  208. # ------------------------------------------------------------------
  209. configbody iwidgets::Spindate::labelpos {
  210.     switch $itk_option(-labelpos) {
  211.     n {
  212.         $itk_component(month) configure -labelpos n
  213.         $itk_component(day) configure -labelpos n
  214.         $itk_component(year) configure -labelpos n
  215.         
  216.         #
  217.         # Un-align labels
  218.         #
  219.         $itk_component(month) configure -labelmargin 1
  220.         $itk_component(day) configure -labelmargin 1
  221.         $itk_component(year) configure -labelmargin 1 
  222.     }
  223.     
  224.     s {
  225.         $itk_component(month) configure -labelpos s
  226.         $itk_component(day) configure -labelpos s
  227.         $itk_component(year) configure -labelpos s
  228.         
  229.         #
  230.         # Un-align labels
  231.         #
  232.         $itk_component(month) configure -labelmargin 1
  233.         $itk_component(day) configure -labelmargin 1
  234.         $itk_component(year) configure -labelmargin 1 
  235.     }
  236.     
  237.     w {
  238.         $itk_component(month) configure -labelpos w
  239.         $itk_component(day) configure -labelpos w
  240.         $itk_component(year) configure -labelpos w
  241.     }
  242.     
  243.     e {
  244.         $itk_component(month) configure -labelpos e
  245.         $itk_component(day) configure -labelpos e
  246.         $itk_component(year) configure -labelpos e
  247.         
  248.         #
  249.         # Un-align labels
  250.         #
  251.         $itk_component(month) configure -labelmargin 1
  252.         $itk_component(day) configure -labelmargin 1
  253.         $itk_component(year) configure -labelmargin 1 
  254.     }
  255.     
  256.     default {
  257.         error "bad labelpos option \"$itk_option(-labelpos)\",\
  258.             should be n, s, w or e" 
  259.     }
  260.     }
  261.  
  262.     _packDate
  263. }
  264.  
  265. # ------------------------------------------------------------------
  266. # OPTION: -orient
  267. # 
  268. # Specifies the orientation of the 3 spinners for Month, Day 
  269. # and year.
  270. # ------------------------------------------------------------------
  271. configbody iwidgets::Spindate::orient {
  272.     _packDate
  273. }
  274.  
  275. # ------------------------------------------------------------------
  276. # OPTION: -monthon
  277. # 
  278. # Specifies whether or not to display the month spinner.
  279. # ------------------------------------------------------------------
  280. configbody iwidgets::Spindate::monthon {
  281.     if {$itk_option(-monthon)} {
  282.     _packDate
  283.     } else {
  284.     pack forget $itk_component(month)
  285.     }
  286. }
  287.  
  288. # ------------------------------------------------------------------
  289. # OPTION: -dayon
  290. # 
  291. # Specifies whether or not to display the day spinner.
  292. # ------------------------------------------------------------------
  293. configbody iwidgets::Spindate::dayon {
  294.     if {$itk_option(-dayon)} {
  295.     _packDate
  296.     } else {
  297.     pack forget $itk_component(day)
  298.     }
  299. }
  300.  
  301. # ------------------------------------------------------------------
  302. # OPTION: -yearon
  303. # 
  304. # Specifies whether or not to display the year spinner.
  305. # ------------------------------------------------------------------
  306. configbody iwidgets::Spindate::yearon {
  307.     if {$itk_option(-yearon)} {
  308.     _packDate
  309.     } else {
  310.     pack forget $itk_component(year)
  311.     }
  312. }
  313.  
  314. # ------------------------------------------------------------------
  315. # OPTION: -datemargin
  316. # 
  317. # Specifies the margin space between the month and day spinners 
  318. # and the day and year spinners. 
  319. # ------------------------------------------------------------------
  320. configbody iwidgets::Spindate::datemargin {
  321.     _packDate
  322. }
  323.  
  324. # ------------------------------------------------------------------
  325. # OPTION: -yeardigits
  326. #
  327. # Number of digits for year display, 2 or 4 
  328. # ------------------------------------------------------------------
  329. configbody iwidgets::Spindate::yeardigits {
  330.     switch $itk_option(-yeardigits) {
  331.     "2" {
  332.         $itk_component(year) configure -width 4 -range {0 99} \
  333.             -fixed 2
  334.         $itk_component(year) clear
  335.         $itk_component(year) insert 0 95
  336.     }
  337.     
  338.     "4" {
  339.         $itk_component(year) configure -width 4 \
  340.             -range {1900 9999} -fixed 4
  341.         $itk_component(year) clear
  342.         $itk_component(year) insert 0 1995
  343.     }
  344.     
  345.     default {
  346.         error "bad yeardigits option \"$itk_option(-yeardigits)\",\
  347.             should be 2 or 4"
  348.     }
  349.     } 
  350. }
  351.  
  352. # ------------------------------------------------------------------
  353. # OPTION: -monthformat
  354. #
  355. # Format of month display, integers (1-12) or strings (Jan - Dec),
  356. # or a user specified list of values.
  357. # ------------------------------------------------------------------
  358. configbody iwidgets::Spindate::monthformat {
  359.     if {$itk_option(-monthformat) == "string"} {
  360.     set MONTH_LIST $MONTH_STR
  361.     
  362.     $itk_component(month) configure -width 4 -fixed 4
  363.     $itk_component(month) delete 0 end
  364.     $itk_component(month) insert 0 [lindex $MONTH_LIST 0]
  365.     
  366.     } elseif {$itk_option(-monthformat) == "integer"} {
  367.     set MONTH_LIST $MONTH_INT
  368.     
  369.     $itk_component(month) configure -width 4 -fixed 2 
  370.     $itk_component(month) delete 0 end
  371.     $itk_component(month) insert 0 [lindex $MONTH_LIST 0]
  372.     
  373.     } elseif {[llength $itk_option(-monthformat)] > 1} {
  374.     set MONTH_LIST $itk_option(-monthformat) 
  375.     
  376.     set len [llength $MONTH_LIST]
  377.     for {set i 0; set wid 0} {$i < $len} {incr i} {
  378.         set tmp [string length [lindex $MONTH_LIST $i]]
  379.         if { $tmp > $wid} { set wid $tmp }
  380.     }
  381.     if {$wid < 4} { set wid 4}
  382.     
  383.     $itk_component(month) configure -width $wid -fixed $wid
  384.     $itk_component(month) delete 0 end
  385.     $itk_component(month) insert 0 [lindex $MONTH_LIST 0]
  386.     
  387.     } else {
  388.     error "bad monthformat option\
  389.         \"$itk_option(-monthformat)\", should be\
  390.         \"integer\", \"string\" or a list"
  391.     }
  392. }
  393.  
  394. # ------------------------------------------------------------------
  395. #                            METHODS
  396. # ------------------------------------------------------------------
  397.  
  398. # ------------------------------------------------------------------
  399. # METHOD: get ?component?
  400. #
  401. # Get the value of the date spinner.  A specific component value
  402. # may be obtained via component name month, day, or year.  Without
  403. # component name the command returns the date in a list, formatted
  404. # {MM DD YY[YY]}.
  405. # ------------------------------------------------------------------
  406. body iwidgets::Spindate::get {{component all}} { 
  407.     switch $component {
  408.     all {
  409.         return [list [$itk_component(month) get] \
  410.             [$itk_component(day) get] [$itk_component(year) get]]
  411.     }
  412.     
  413.     month {
  414.         return [$itk_component(month) get]
  415.     }
  416.     
  417.     day {
  418.         return [$itk_component(day) get]
  419.     }
  420.     
  421.     year {
  422.         return [$itk_component(year) get]
  423.     }
  424.     
  425.     default {
  426.         error "bad get argument \"$component\": should\
  427.             be month, day or year"
  428.     }
  429.     }
  430. }
  431.  
  432. # ------------------------------------------------------------------
  433. # METHOD: insert component index string
  434. #
  435. # Insert value into month, day or year EntryFields
  436. # ------------------------------------------------------------------
  437. body iwidgets::Spindate::insert {component index string} {
  438.     switch $component {
  439.     month {
  440.         return [$itk_component(month) insert $index $string]
  441.     }
  442.     day {
  443.         return [$itk_component(day) insert $index $string]
  444.     }
  445.     year {
  446.         return [$itk_component(year) insert $index $string]
  447.     }
  448.     default {
  449.         error "bad insert argument \"$component\": should\
  450.             be month, day or year"
  451.     }
  452.     }
  453. }
  454.  
  455. # ------------------------------------------------------------------
  456. # METHOD: delete component first ?last?
  457. #
  458. # Delete value in month, day or year EntryFields
  459. # ------------------------------------------------------------------
  460. body iwidgets::Spindate::delete {component first {last {}}} {
  461.     if {$last == {}} {
  462.     set last $first
  463.     }
  464.     
  465.     switch $component {
  466.     month {
  467.         return [$itk_component(month) delete $first $last] 
  468.     }
  469.     day {
  470.         return [$itk_component(day) delete $first $last]
  471.     }
  472.     year {
  473.         return [$itk_component(year) delete $first $last]
  474.     }
  475.     default {
  476.         error "bad delete argument \"$component\": should\
  477.             be month, day or year"
  478.     }
  479.     }
  480. }
  481.  
  482. # ------------------------------------------------------------------
  483. # METHOD: clear
  484. #
  485. # Clear the values in all spinner components.
  486. # ------------------------------------------------------------------
  487. body iwidgets::Spindate::clear {} {
  488.     $itk_component(month) clear
  489.     $itk_component(day) clear
  490.     $itk_component(year) clear 
  491. }
  492.  
  493. # ----------------------------------------------------------------
  494. # PRIVATE METHOD: _spinMonth direction
  495. #
  496. # Increment or decrement month value.
  497. # ----------------------------------------------------------------
  498. body iwidgets::Spindate::_spinMonth {direction} {
  499.     set mth [$itk_component(month) get]
  500.     set index [expr [lsearch $MONTH_LIST $mth] + $direction]
  501.     
  502.     set length [llength $MONTH_LIST]
  503.     if {$index < 0} { set index [expr $length - 1] }
  504.     if {$index >= $length} { set index 0 } 
  505.     
  506.     $itk_component(month) delete 0 end
  507.     $itk_component(month) insert 0 [lindex $MONTH_LIST $index]
  508. }
  509.  
  510. # ----------------------------------------------------------------
  511. # PRIVATE METHOD: _blockInput obj char
  512. #
  513. # Disable spinner input.
  514. # ----------------------------------------------------------------
  515. body iwidgets::Spindate::_blockInput {obj char} {
  516.     return 0 
  517. }
  518.  
  519. # ------------------------------------------------------------------
  520. # PRIVATE METHOD: _packDate when
  521. #
  522. # Pack the components of the date spinner.  If "when" is "now", the 
  523. # change is applied immediately.  If it is "later" or it is not 
  524. # specified, then the change is applied later, when the application 
  525. # is idle.
  526. # ------------------------------------------------------------------
  527. body iwidgets::Spindate::_packDate {{when later}} {
  528.     if {$when == "later"} {
  529.     if {$_repack == ""} {
  530.         set _repack [after idle [code $this _packDate now]]
  531.     }
  532.     return
  533.     } elseif {$when != "now"} {
  534.     error "bad option \"$when\": should be now or later"
  535.     }
  536.  
  537.     set _repack ""
  538.  
  539.     switch $itk_option(-orient) {
  540.     vertical {
  541.         pack forget $itk_component(month) $itk_component(day)
  542.         pack forget $itk_component(year) $itk_component(mth_day_marg) 
  543.         pack forget $itk_component(day_yr_marg)
  544.         
  545.         if {$itk_option(-monthon)} {
  546.         pack $itk_component(month) -side top -fill x
  547.         pack $itk_component(mth_day_marg) -side top
  548.         $itk_component(mth_day_marg) configure -height \
  549.             $itk_option(-datemargin) -width 1
  550.         }
  551.         
  552.         if {$itk_option(-dayon)} {
  553.         pack $itk_component(day) -side top  -fill x
  554.         pack $itk_component(day_yr_marg) -side top
  555.         $itk_component(day_yr_marg) configure -height \
  556.             $itk_option(-datemargin) -width 1
  557.         }
  558.         
  559.         if {$itk_option(-yearon)} {
  560.         pack $itk_component(year) -side top -fill x
  561.         }
  562.         
  563.         if {$itk_option(-labelpos) == "w"} {
  564.         iwidgets::Labeledwidget::alignlabels $itk_component(month) \
  565.             $itk_component(day) $itk_component(year)
  566.         }
  567.     }
  568.     
  569.     horizontal {
  570.         pack forget $itk_component(month) $itk_component(day)
  571.         pack forget $itk_component(year) $itk_component(mth_day_marg)
  572.         pack forget $itk_component(day_yr_marg)
  573.         
  574.         if {$itk_option(-monthon)} {
  575.         pack $itk_component(month) -side left -fill x
  576.         pack $itk_component(mth_day_marg) -side left
  577.         $itk_component(mth_day_marg) configure -height 1 \
  578.             -width $itk_option(-datemargin)
  579.         }
  580.         
  581.         if {$itk_option(-dayon)} {
  582.         pack $itk_component(day) -side left -fill x
  583.         pack $itk_component(day_yr_marg) -side left
  584.         $itk_component(day_yr_marg) configure -height 1 \
  585.             -width $itk_option(-datemargin)
  586.         }
  587.         
  588.         if {$itk_option(-yearon)} {
  589.         pack $itk_component(year) -side left -fill x
  590.         }
  591.         
  592.         #
  593.         # Un-align labels.
  594.         #
  595.         $itk_component(month) configure -labelmargin 1
  596.         $itk_component(day) configure -labelmargin 1
  597.         $itk_component(year) configure -labelmargin 1
  598.     }
  599.     
  600.     default {
  601.         error "bad orient option \"$itk_option(-orient)\", should\
  602.             be \"vertical\" or \"horizontal\""
  603.     } 
  604.     }
  605. } 
  606.