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 / spintime.itk < prev    next >
Text File  |  1999-02-24  |  16KB  |  516 lines
  1. # Spintime 
  2. # ----------------------------------------------------------------------
  3. # Implements a Time spinner widget.  A time spinner contains three
  4. # integer spinners:  one for hours, one for minutes and one for
  5. # seconds.  Options exist to manage to behavior, appearance, and
  6. # format of each component spinner.
  7. #
  8. # ----------------------------------------------------------------------
  9. #   AUTHOR:  Sue Yockey               Phone: (214) 519-2517
  10. #                                     E-mail: syockey@spd.dsccc.com
  11. #                                             yockey@actc.com
  12. #
  13. #   @(#) $Id: spintime.itk,v 1.1 1998/07/27 18:49:52 stanton Exp $
  14. # ----------------------------------------------------------------------
  15. #            Copyright (c) 1995 DSC Technologies Corporation
  16. # ======================================================================
  17. # Permission to use, copy, modify, distribute and license this software 
  18. # and its documentation for any purpose, and without fee or written 
  19. # agreement with DSC, is hereby granted, provided that the above copyright 
  20. # notice appears in all copies and that both the copyright notice and 
  21. # warranty disclaimer below appear in supporting documentation, and that 
  22. # the names of DSC Technologies Corporation or DSC Communications 
  23. # Corporation not be used in advertising or publicity pertaining to the 
  24. # software without specific, written prior permission.
  25. # 
  26. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  27. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  28. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  29. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  30. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  31. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  32. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  33. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  34. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  35. # SOFTWARE.
  36. # ======================================================================
  37.  
  38. #
  39. # Default resources.
  40. #
  41. option add *Spintime.hourLabel "Hour" widgetDefault
  42. option add *Spintime.minuteLabel "Minute" widgetDefault
  43. option add *Spintime.secondLabel "Second" widgetDefault
  44. option add *Spintime.hourWidth 3 widgetDefault
  45. option add *Spintime.minuteWidth 3 widgetDefault
  46. option add *Spintime.secondWidth 3 widgetDefault
  47.  
  48. #
  49. # Usual options.
  50. #
  51. itk::usual Spintime {
  52.     keep -background -cursor -foreground -highlightcolor -highlightthickness \
  53.      -labelfont -selectbackground -selectborderwidth -selectforeground \
  54.      -textbackground -textfont
  55. }
  56.  
  57. # ------------------------------------------------------------------
  58. #                            SPINTIME
  59. # ------------------------------------------------------------------
  60. class iwidgets::Spintime {
  61.     inherit itk::Widget 
  62.     
  63.     constructor {args} {}
  64.     destructor {}
  65.  
  66.     itk_option define -orient orient Orient vertical 
  67.     itk_option define -labelpos labelPos Position w 
  68.     itk_option define -houron hourOn HourOn true 
  69.     itk_option define -minuteon minuteOn MinuteOn true 
  70.     itk_option define -secondon secondOn SecondOn true 
  71.     itk_option define -timemargin timeMargin Margin 1 
  72.     itk_option define -militaryon militaryOn MilitaryOn true 
  73.  
  74.     public method get {{component all}}
  75.     public method insert {component index string} 
  76.     public method delete {component first {last {}}} 
  77.  
  78.     public method clear {} 
  79.     
  80.     protected method _packTime {{when later}} 
  81.     
  82.     protected variable _repack {}             ;# Reconfiguration flag.
  83. }
  84.  
  85. #
  86. # Provide a lowercased access method for the Spintime class.
  87. # 
  88. proc ::iwidgets::spintime {pathName args} {
  89.     uplevel ::iwidgets::Spintime $pathName $args
  90. }
  91.  
  92. # ------------------------------------------------------------------
  93. #                        CONSTRUCTOR
  94. # ------------------------------------------------------------------
  95. body iwidgets::Spintime::constructor {args} {
  96.     #
  97.     # Create Hour Spinner
  98.     #
  99.     itk_component add hour {
  100.     iwidgets::Spinint $itk_interior.hour -fixed 2 -range {0 23}
  101.     } {
  102.     keep -background -cursor -arroworient -foreground \
  103.         -highlightcolor -highlightthickness \
  104.         -labelfont -labelmargin -relief -step -selectbackground \
  105.         -selectborderwidth -selectforeground -textbackground \
  106.         -textfont -repeatdelay -repeatinterval
  107.  
  108.     rename -labeltext -hourlabel hourLabel Text
  109.     rename -width -hourwidth hourWidth Width
  110.     }
  111.     pack $itk_component(hour) -fill x
  112.     
  113.     #
  114.     # Create Margin Frame 
  115.     #
  116.     itk_component add hr_min_marg {
  117.     frame $itk_interior.hr_min_marg
  118.     } {
  119.     keep -background -cursor
  120.     }
  121.     pack $itk_component(hr_min_marg)
  122.     
  123.     #
  124.     # Create Minute Spinner
  125.     #
  126.     itk_component add minute {
  127.     iwidgets::Spinint $itk_interior.minute -fixed 2 -range {0 59}
  128.     } {
  129.     keep -background -cursor -arroworient -foreground \
  130.         -highlightcolor -highlightthickness \
  131.         -labelfont -labelmargin -relief -step -selectbackground \
  132.         -selectborderwidth -selectforeground -textbackground \
  133.         -textfont -repeatdelay -repeatinterval
  134.  
  135.     rename -labeltext -minutelabel minuteLabel Text
  136.     rename -width -minutewidth minuteWidth Width
  137.     }
  138.     pack $itk_component(minute) -fill x
  139.     
  140.     #
  141.     # Create Margin Frame 
  142.     #
  143.     itk_component add min_sec_marg {
  144.     frame $itk_interior.min_sec_marg
  145.     } {
  146.     keep -background -cursor
  147.     }
  148.     pack $itk_component(min_sec_marg)
  149.     
  150.     #
  151.     # Create Second Spinner
  152.     #
  153.     itk_component add second {
  154.     iwidgets::Spinint $itk_interior.second -fixed 2 -range {0 59}
  155.     } {
  156.     keep -background -cursor -arroworient -foreground \
  157.         -highlightcolor -highlightthickness \
  158.         -labelfont -labelmargin -relief -step -selectbackground \
  159.         -selectborderwidth -selectforeground -textbackground \
  160.         -textfont -repeatdelay -repeatinterval
  161.  
  162.     rename -labeltext -secondlabel secondLabel Text
  163.     rename -width -secondwidth secondWidth Width
  164.     }
  165.     pack $itk_component(second) -fill x
  166.  
  167.     #
  168.     # Explicitly handle configs that may have been ignored earlier.
  169.     #
  170.     eval itk_initialize $args
  171.     # 
  172.  
  173.     # When idle, pack the time spinner.
  174.     #
  175.     _packTime
  176. }
  177.     
  178. # ------------------------------------------------------------------
  179. #                           DESTRUCTOR
  180. # ------------------------------------------------------------------
  181. body iwidgets::Spintime::destructor {} {
  182.     if {$_repack != ""} {after cancel $_repack}
  183. }
  184.  
  185. # ------------------------------------------------------------------
  186. #                             OPTIONS
  187. # ------------------------------------------------------------------
  188.  
  189. # ------------------------------------------------------------------
  190. # OPTION: -orient
  191. # 
  192. # Specifies the orientation of the 3 spinners for Hour, Minute 
  193. # and second.
  194. # ------------------------------------------------------------------
  195. configbody iwidgets::Spintime::orient {
  196.     _packTime
  197. }
  198.  
  199. # ------------------------------------------------------------------
  200. # OPTION: -labelpos
  201. # 
  202. # Specifies the location of all 3 spinners' labels. 
  203. # Overloaded 
  204. # ------------------------------------------------------------------
  205. configbody iwidgets::Spintime::labelpos {
  206.     switch $itk_option(-labelpos) {
  207.     n {
  208.         $itk_component(hour) configure -labelpos n
  209.         $itk_component(minute) configure -labelpos n
  210.         $itk_component(second) configure -labelpos n
  211.         
  212.         #
  213.         # Un-align labels
  214.         #
  215.         $itk_component(hour) configure -labelmargin 1
  216.         $itk_component(minute) configure -labelmargin 1
  217.         $itk_component(second) configure -labelmargin 1
  218.     }
  219.     
  220.     s {
  221.         $itk_component(hour) configure -labelpos s
  222.         $itk_component(minute) configure -labelpos s
  223.         $itk_component(second) configure -labelpos s
  224.         
  225.         #
  226.         # Un-align labels
  227.         #
  228.         $itk_component(hour) configure -labelmargin 1
  229.         $itk_component(minute) configure -labelmargin 1
  230.         $itk_component(second) configure -labelmargin 1
  231.     }
  232.     
  233.     w {
  234.         $itk_component(hour) configure -labelpos w
  235.         $itk_component(minute) configure -labelpos w
  236.         $itk_component(second) configure -labelpos w
  237.     }
  238.     
  239.     e {
  240.         $itk_component(hour) configure -labelpos e
  241.         $itk_component(minute) configure -labelpos e
  242.         $itk_component(second) configure -labelpos e
  243.         
  244.         #
  245.         # Un-align labels
  246.         #
  247.         $itk_component(hour) configure -labelmargin 1
  248.         $itk_component(minute) configure -labelmargin 1
  249.         $itk_component(second) configure -labelmargin 1
  250.     }
  251.     
  252.     default {
  253.         error "bad labelpos option \"$itk_option(-labelpos)\",\
  254.             should be n, s, w or e"
  255.         
  256.     }
  257.     }
  258.  
  259.     _packTime
  260. }
  261.  
  262. # ------------------------------------------------------------------
  263. # OPTION: -houron
  264. # 
  265. # Specifies whether or not to display the hour spinner.
  266. # ------------------------------------------------------------------
  267. configbody iwidgets::Spintime::houron {
  268.     if {$itk_option(-houron)} {
  269.     _packTime
  270.     } else {
  271.     pack forget $itk_component(hour)
  272.     }
  273. }
  274.  
  275. # ------------------------------------------------------------------
  276. # OPTION: -minuteon
  277. # 
  278. # Specifies whether or not to display the minute spinner.
  279. # ------------------------------------------------------------------
  280. configbody iwidgets::Spintime::minuteon {
  281.     if {$itk_option(-minuteon)} {
  282.     _packTime
  283.     } else {
  284.     pack forget $itk_component(minute)
  285.     }
  286. }
  287.  
  288. # ------------------------------------------------------------------
  289. # OPTION: -secondon
  290. # 
  291. # Specifies whether or not to display the second spinner.
  292. # ------------------------------------------------------------------
  293. configbody iwidgets::Spintime::secondon {
  294.     if {$itk_option(-secondon)} {
  295.     _packTime
  296.     } else {
  297.     pack forget $itk_component(second)
  298.     }
  299. }
  300.  
  301.  
  302. # ------------------------------------------------------------------
  303. # OPTION: -timemargin
  304. # 
  305. # Specifies the margin space between the hour and minute spinners 
  306. # and the minute and second spinners. 
  307. # ------------------------------------------------------------------
  308. configbody iwidgets::Spintime::timemargin {
  309.     _packTime
  310. }
  311.  
  312. # ------------------------------------------------------------------
  313. # OPTION: -militaryon
  314. #
  315. # Specifies 24-hour clock or 12-hour.
  316. # ------------------------------------------------------------------
  317. configbody iwidgets::Spintime::militaryon {
  318.     if {$itk_option(-militaryon)} {
  319.     $itk_component(hour) configure -range {0 23}
  320.     } else {
  321.     $itk_component(hour) configure -range {1 12}
  322.     }
  323. }
  324.  
  325. # ------------------------------------------------------------------
  326. #                            METHODS
  327. # ------------------------------------------------------------------
  328.  
  329. # ------------------------------------------------------------------
  330. # METHOD: get ?component?
  331. #
  332. # Get the value of the time spinner.  A specific component value
  333. # may be obtained via component name hour, minute, or second.  Without
  334. # component name the command returns the time in a list, formatted
  335. # {HH MM SS}.
  336. # ------------------------------------------------------------------
  337. body iwidgets::Spintime::get {{component all}} {
  338.     switch $component {
  339.     all {
  340.         return [list [$itk_component(hour) get] \
  341.             [$itk_component(minute) get] \
  342.             [$itk_component(second) get]]
  343.     }
  344.     
  345.     hour {
  346.         return [$itk_component(hour) get]
  347.     }
  348.     
  349.     minute {
  350.         return [$itk_component(minute) get]
  351.     }
  352.     
  353.     second {
  354.         return [$itk_component(second) get]
  355.     }
  356.  
  357.     default {
  358.         error "bad get argument \"$component\": should\
  359.             be hour, minute or second"
  360.     }
  361.     }
  362. }
  363.  
  364.  
  365. # ------------------------------------------------------------------
  366. # METHOD: insert component index string
  367. #
  368. # Insert value into hour, minute or second EntryFields.
  369. # ------------------------------------------------------------------
  370. body iwidgets::Spintime::insert {component index string} {
  371.     switch $component {
  372.     hour {
  373.         return [$itk_component(hour) insert $index $string]
  374.     }
  375.     minute {
  376.         return [$itk_component(minute) insert $index $string]
  377.     }
  378.     second {
  379.         return [$itk_component(second) insert $index $string]
  380.     }
  381.     default {
  382.         error "bad insert argument \"$component\": should\
  383.             be hour, minute or second"
  384.     }
  385.     }
  386. }
  387.  
  388. # ------------------------------------------------------------------
  389. # METHOD: delete component first ?last?
  390. #
  391. # Delete value in hour, minute or second EntryFields
  392. # ------------------------------------------------------------------
  393. body iwidgets::Spintime::delete {component first {last {}}} {
  394.     if {$last == {}} {
  395.     set last $first
  396.     } 
  397.     
  398.     switch $component {
  399.     hour {
  400.         return [$itk_component(hour) delete $first $last]
  401.     }
  402.     minute {
  403.         return [$itk_component(minute) delete $first $last]
  404.     }
  405.     second {
  406.         return [$itk_component(second) delete $first $last]
  407.     }
  408.     default {
  409.         error "bad delete argument \"$component\": should\
  410.             be hour, minute or second"
  411.     }
  412.     }
  413. }
  414.  
  415.  
  416. # ------------------------------------------------------------------
  417. # METHOD: clear
  418. #
  419. # clear values in all 3 EntryFields
  420. # Note: clear returns an empty string
  421. # ------------------------------------------------------------------
  422. body iwidgets::Spintime::clear {} {
  423.     $itk_component(hour) clear
  424.     $itk_component(minute) clear
  425.     $itk_component(second) clear
  426. }
  427.  
  428. # ------------------------------------------------------------------
  429. # PROTECTED METHOD: _packTime ?when?
  430. #
  431. # Pack components of time spinner.  If "when" is "now", the change 
  432. # is applied immediately.  If it is "later" or it is not specified,
  433. # then the change is applied later, when the application is idle.
  434. # ------------------------------------------------------------------
  435. body iwidgets::Spintime::_packTime {{when later}} {
  436.     if {$when == "later"} {
  437.     if {$_repack == ""} {
  438.         set _repack [after idle [code $this _packTime now]]
  439.     }
  440.     return
  441.     } elseif {$when != "now"} {
  442.     error "bad option \"$when\": should be now or later"
  443.     }
  444.  
  445.     set _repack ""
  446.  
  447.     switch $itk_option(-orient) {
  448.     vertical {
  449.         pack forget $itk_component(hour) $itk_component(minute)
  450.         pack forget $itk_component(second) $itk_component(hr_min_marg) 
  451.         pack forget $itk_component(min_sec_marg)
  452.         
  453.         if {$itk_option(-houron)} {
  454.         pack $itk_component(hour) -side top
  455.         pack $itk_component(hr_min_marg) -side top
  456.         $itk_component(hr_min_marg) configure -height \
  457.             $itk_option(-timemargin) -width 1
  458.         }
  459.         
  460.         if {$itk_option(-minuteon)} {
  461.         pack $itk_component(minute) -side top 
  462.         pack $itk_component(min_sec_marg) -side top
  463.         $itk_component(min_sec_marg) configure -height \
  464.             $itk_option(-timemargin) -width 1
  465.         }
  466.         
  467.         if {$itk_option(-secondon)} {
  468.         pack $itk_component(second) -side top
  469.         }
  470.         
  471.         if {$itk_option(-labelpos) != "n"} {
  472.         iwidgets::Labeledwidget::alignlabels $itk_component(hour) \
  473.             $itk_component(minute) $itk_component(second)
  474.         }
  475.     }
  476.     
  477.     horizontal {
  478.         pack forget $itk_component(hour) $itk_component(minute)
  479.         pack forget $itk_component(second) $itk_component(hr_min_marg)
  480.         pack forget $itk_component(min_sec_marg)
  481.         
  482.         if {$itk_option(-houron)} {
  483.         pack $itk_component(hour) -side left
  484.         pack $itk_component(hr_min_marg) -side left
  485.         $itk_component(hr_min_marg) configure -height 1 \
  486.             -width $itk_option(-timemargin)
  487.         }
  488.         
  489.         if {$itk_option(-minuteon)} {
  490.         pack $itk_component(minute) -side left
  491.         pack $itk_component(min_sec_marg) -side left
  492.         $itk_component(min_sec_marg) configure -height 1 \
  493.             -width $itk_option(-timemargin)
  494.         }
  495.         
  496.         if {$itk_option(-secondon)} {
  497.         pack $itk_component(second) -side left
  498.         }
  499.         
  500.         #
  501.         # Un-align labels
  502.         #
  503.         $itk_component(hour) configure -labelmargin 1
  504.         $itk_component(minute) configure -labelmargin 1
  505.         $itk_component(second) configure -labelmargin 1
  506.     }
  507.     
  508.     default {
  509.         error "bad orient option \"$itk_option(-orient)\", should\
  510.             be \"vertical\" or \"horizontal\""
  511.     }
  512.     } 
  513. } 
  514.  
  515.  
  516.