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 / spinint.itk < prev    next >
Text File  |  1999-02-24  |  9KB  |  283 lines
  1. # Spinint 
  2. # ----------------------------------------------------------------------
  3. # Implements an integer spinner widget.  It inherits basic spinner
  4. # functionality from Spinner and adds specific features to create 
  5. # an integer-only spinner. 
  6. # Arrows may be placed horizontally or vertically.
  7. # User may specify an integer range and step value.
  8. # Spinner may be configured to wrap when min or max value is reached.
  9. #
  10. # NOTE:
  11. # Spinint integer values should not exceed the size of a long integer.
  12. # For a 32 bit long the integer range is -2147483648 to 2147483647.
  13. #
  14. # ----------------------------------------------------------------------
  15. #   AUTHOR:  Sue Yockey               Phone: (214) 519-2517
  16. #                                     E-mail: syockey@spd.dsccc.com
  17. #                                             yockey@acm.org
  18. #
  19. #   @(#) $Id: spinint.itk,v 1.1 1998/07/27 18:49:52 stanton Exp $
  20. # ----------------------------------------------------------------------
  21. #            Copyright (c) 1995 DSC Technologies Corporation
  22. # ======================================================================
  23. # Permission to use, copy, modify, distribute and license this software 
  24. # and its documentation for any purpose, and without fee or written 
  25. # agreement with DSC, is hereby granted, provided that the above copyright 
  26. # notice appears in all copies and that both the copyright notice and 
  27. # warranty disclaimer below appear in supporting documentation, and that 
  28. # the names of DSC Technologies Corporation or DSC Communications 
  29. # Corporation not be used in advertising or publicity pertaining to the 
  30. # software without specific, written prior permission.
  31. # 
  32. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  33. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  34. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  35. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  36. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  37. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  38. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  39. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  40. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  41. # SOFTWARE.
  42. # ======================================================================
  43.  
  44. #
  45. # Default resources.
  46. #
  47. option add *Spinint.relief sunken widgetDefault
  48. option add *Spinint.labelPos w widgetDefault
  49. option add *Spinint.labelMargin 2 widgetDefault
  50. option add *Spinint.auxLabelPos e widgetDefault
  51. option add *Spinint.auxLabelMargin 2 widgetDefault
  52.  
  53. #
  54. # Usual options.
  55. #
  56. itk::usual Spinint {
  57.     keep -background -borderwidth -cursor -foreground -highlightcolor \
  58.      -highlightthickness -insertbackground  -insertborderwidth \
  59.      -insertofftime -insertontime -insertwidth -labelfont \
  60.      -selectbackground -selectborderwidth -selectforeground \
  61.      -textbackground -textfont
  62. }
  63.  
  64. # ------------------------------------------------------------------
  65. #                            SPININT
  66. # ------------------------------------------------------------------
  67. class iwidgets::Spinint {
  68.     inherit iwidgets::Spinner 
  69.  
  70.     constructor {args} {
  71.     Spinner::constructor -validate numeric 
  72.     } {}
  73.  
  74.     itk_option define -range range Range "" 
  75.     itk_option define -step step Step 1 
  76.     itk_option define -wrap wrap Wrap true 
  77.  
  78.     public method up {}
  79.     public method down {}
  80. }
  81.  
  82. #
  83. # Provide a lowercased access method for the Spinint class.
  84. # 
  85. proc ::iwidgets::spinint {pathName args} {
  86.     uplevel ::iwidgets::Spinint $pathName $args
  87. }
  88.  
  89. # ------------------------------------------------------------------
  90. #                        CONSTRUCTOR
  91. # ------------------------------------------------------------------
  92. body iwidgets::Spinint::constructor {args} {
  93.     eval itk_initialize $args
  94.     
  95.     $itk_component(entry) delete 0 end
  96.     
  97.     if {[lindex $itk_option(-range) 0] == ""} {
  98.     $itk_component(entry) insert 0 "0"
  99.     } else { 
  100.     $itk_component(entry) insert 0 [lindex $itk_option(-range) 0] 
  101.     }
  102. }
  103.  
  104. # ------------------------------------------------------------------
  105. #                             OPTIONS
  106. # ------------------------------------------------------------------
  107.  
  108. # ------------------------------------------------------------------
  109. # OPTION: -range
  110. #
  111. # Set min and max values for spinner.
  112. # ------------------------------------------------------------------
  113. configbody iwidgets::Spinint::range {
  114.     if {$itk_option(-range) != ""} {
  115.     if {[llength $itk_option(-range)] != 2} {
  116.         error "wrong # args: should be\
  117.             \"$itk_component(hull) configure -range {begin end}\""
  118.         }
  119.         set min [lindex $itk_option(-range) 0]
  120.         set max [lindex $itk_option(-range) 1]
  121.         if {![regexp {^-?[0-9]+$} $min]} {
  122.             error "bad range option \"$min\": begin value must be\
  123.             an integer"
  124.         }
  125.         if {![regexp {^-?[0-9]+$} $max]} {
  126.             error "bad range option \"$max\": end value must be\
  127.             an integer"
  128.         }
  129.         if {$min > $max} {
  130.             error "bad option starting range \"$min\": must be less\
  131.             than ending: \"$max\""
  132.         }
  133.     } 
  134. }
  135.  
  136. # ------------------------------------------------------------------
  137. # OPTION: -step
  138. #
  139. # Increment spinner by step value.
  140. # ------------------------------------------------------------------
  141. configbody iwidgets::Spinint::step {
  142. }
  143.  
  144. # ------------------------------------------------------------------
  145. # OPTION: -wrap
  146. #
  147. # Specify whether spinner should wrap value if at min or max.
  148. # ------------------------------------------------------------------
  149. configbody iwidgets::Spinint::wrap {
  150. }
  151.  
  152. # ------------------------------------------------------------------
  153. #                            METHODS
  154. # ------------------------------------------------------------------
  155.  
  156. # ------------------------------------------------------------------
  157. # METHOD: up
  158. #
  159. # Up arrow button press event.  Increment value in entry.
  160. # ------------------------------------------------------------------
  161. body iwidgets::Spinint::up {} {
  162.     set min_range [lindex $itk_option(-range) 0]
  163.     set max_range [lindex $itk_option(-range) 1]
  164.     
  165.     set val [$itk_component(entry) get]
  166.     if {[lindex $itk_option(-range) 0] != ""} {
  167.     
  168.     #
  169.     # Check boundaries.
  170.     #
  171.     if {$val >= $min_range && $val < $max_range} {
  172.         incr val $itk_option(-step)
  173.         
  174.         #
  175.         # Re-check boundaries.
  176.         #
  177.         if {$val >= $min_range && $val <= $max_range} {
  178.         $itk_component(entry) delete 0 end
  179.         $itk_component(entry) insert 0 $val
  180.         } else {
  181.         
  182.         #
  183.         # This is wrap when -step > 1.
  184.         #
  185.         if {$itk_option(-wrap)} {
  186.             if {$val > $max_range} {
  187.             $itk_component(entry) delete 0 end
  188.             $itk_component(entry) insert 0 $min_range
  189.             } else {
  190.             uplevel #0 $itk_option(-invalid)
  191.             }
  192.         } else {
  193.             uplevel #0 $itk_option(-invalid)
  194.         }
  195.         }
  196.         
  197.     } else {
  198.         if {$itk_option(-wrap)} {
  199.         if {$val == $max_range} {
  200.             $itk_component(entry) delete 0 end
  201.             $itk_component(entry) insert 0 $min_range 
  202.         } else {
  203.             uplevel #0 $itk_option(-invalid)
  204.         }
  205.         } else {
  206.         uplevel #0 $itk_option(-invalid)
  207.         }
  208.     }
  209.     } else {
  210.     
  211.     #
  212.     # No boundaries.
  213.     #
  214.     incr val $itk_option(-step)
  215.     $itk_component(entry) delete 0 end
  216.     $itk_component(entry) insert 0 $val
  217.     }
  218. }
  219.  
  220. # ------------------------------------------------------------------
  221. # METHOD: down 
  222. #
  223. # Down arrow button press event.  Decrement value in entry.
  224. # ------------------------------------------------------------------
  225. body iwidgets::Spinint::down {} {
  226.     set min_range [lindex $itk_option(-range) 0]
  227.     set max_range [lindex $itk_option(-range) 1]
  228.     
  229.     set val [$itk_component(entry) get]
  230.     if {[lindex $itk_option(-range) 0] != ""} {
  231.     
  232.     #
  233.     # Check boundaries.
  234.     #
  235.     if {$val > $min_range && $val <= $max_range} {
  236.         incr val -$itk_option(-step)
  237.         
  238.         #
  239.         # Re-check boundaries.
  240.         #
  241.         if {$val >= $min_range && $val <= $max_range} {
  242.         $itk_component(entry) delete 0 end
  243.         $itk_component(entry) insert 0 $val
  244.         } else {
  245.         
  246.         #
  247.         # This is wrap when -step > 1.
  248.         #
  249.         if {$itk_option(-wrap)} {
  250.             if {$val < $min_range} {
  251.             $itk_component(entry) delete 0 end
  252.             $itk_component(entry) insert 0 $max_range
  253.             } else {
  254.             uplevel #0 $itk_option(-invalid)
  255.             }
  256.         } else {
  257.             uplevel #0 $itk_option(-invalid)
  258.         }
  259.         }
  260.         
  261.     } else {
  262.         if {$itk_option(-wrap)} {
  263.         if {$val == $min_range} {
  264.             $itk_component(entry) delete 0 end
  265.             $itk_component(entry) insert 0 $max_range
  266.         } else {
  267.             uplevel #0 $itk_option(-invalid)
  268.         }
  269.         } else {
  270.         uplevel #0 $itk_option(-invalid)
  271.         }
  272.     }
  273.     } else {
  274.     
  275.     #
  276.     # No boundaries.
  277.     #
  278.     incr val -$itk_option(-step)
  279.     $itk_component(entry) delete 0 end
  280.     $itk_component(entry) insert 0 $val
  281.     }
  282. }
  283.