home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / spinint.itk < prev    next >
Text File  |  2003-09-01  |  8KB  |  238 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.3 2001/08/07 19:56:48 smithc 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. # Usual options.
  46. #
  47. itk::usual Spinint {
  48.     keep -background -borderwidth -cursor -foreground -highlightcolor \
  49.      -highlightthickness -insertbackground  -insertborderwidth \
  50.      -insertofftime -insertontime -insertwidth -labelfont \
  51.      -selectbackground -selectborderwidth -selectforeground \
  52.      -textbackground -textfont
  53. }
  54.  
  55. # ------------------------------------------------------------------
  56. #                            SPININT
  57. # ------------------------------------------------------------------
  58. itcl::class iwidgets::Spinint {
  59.     inherit iwidgets::Spinner 
  60.  
  61.     constructor {args} {
  62.     Spinner::constructor -validate numeric 
  63.     } {}
  64.  
  65.     itk_option define -range range Range "" 
  66.     itk_option define -step step Step 1 
  67.     itk_option define -wrap wrap Wrap true 
  68.  
  69.     public method up {}
  70.     public method down {}
  71. }
  72.  
  73. #
  74. # Provide a lowercased access method for the Spinint class.
  75. # 
  76. proc ::iwidgets::spinint {pathName args} {
  77.     uplevel ::iwidgets::Spinint $pathName $args
  78. }
  79.  
  80. # ------------------------------------------------------------------
  81. #                        CONSTRUCTOR
  82. # ------------------------------------------------------------------
  83. itcl::body iwidgets::Spinint::constructor {args} {
  84.     eval itk_initialize $args
  85.     
  86.     $itk_component(entry) delete 0 end
  87.     
  88.     if {[lindex $itk_option(-range) 0] == ""} {
  89.     $itk_component(entry) insert 0 "0"
  90.     } else { 
  91.     $itk_component(entry) insert 0 [lindex $itk_option(-range) 0] 
  92.     }
  93. }
  94.  
  95. # ------------------------------------------------------------------
  96. #                             OPTIONS
  97. # ------------------------------------------------------------------
  98.  
  99. # ------------------------------------------------------------------
  100. # OPTION: -range
  101. #
  102. # Set min and max values for spinner.
  103. # ------------------------------------------------------------------
  104. itcl::configbody iwidgets::Spinint::range {
  105.     if {$itk_option(-range) != ""} {
  106.     if {[llength $itk_option(-range)] != 2} {
  107.         error "wrong # args: should be\
  108.             \"$itk_component(hull) configure -range {begin end}\""
  109.         }
  110.  
  111.         set min [lindex $itk_option(-range) 0]
  112.         set max [lindex $itk_option(-range) 1]
  113.  
  114.         if {![regexp {^-?[0-9]+$} $min]} {
  115.             error "bad range option \"$min\": begin value must be\
  116.             an integer"
  117.         }
  118.         if {![regexp {^-?[0-9]+$} $max]} {
  119.             error "bad range option \"$max\": end value must be\
  120.             an integer"
  121.         }
  122.         if {$min > $max} {
  123.             error "bad option starting range \"$min\": must be less\
  124.             than ending: \"$max\""
  125.         }
  126.     } 
  127. }
  128.  
  129. # ------------------------------------------------------------------
  130. # OPTION: -step
  131. #
  132. # Increment spinner by step value.
  133. # ------------------------------------------------------------------
  134. itcl::configbody iwidgets::Spinint::step {
  135. }
  136.  
  137. # ------------------------------------------------------------------
  138. # OPTION: -wrap
  139. #
  140. # Specify whether spinner should wrap value if at min or max.
  141. # ------------------------------------------------------------------
  142. itcl::configbody iwidgets::Spinint::wrap {
  143. }
  144.  
  145. # ------------------------------------------------------------------
  146. #                            METHODS
  147. # ------------------------------------------------------------------
  148.  
  149. # ------------------------------------------------------------------
  150. # METHOD: up
  151. #
  152. # Up arrow button press event.  Increment value in entry.
  153. # ------------------------------------------------------------------
  154. itcl::body iwidgets::Spinint::up {} {
  155.     set min_range [lindex $itk_option(-range) 0]
  156.     set max_range [lindex $itk_option(-range) 1]
  157.     
  158.     set val [$itk_component(entry) get]
  159.     if {[lindex $itk_option(-range) 0] != ""} {
  160.     
  161.     #
  162.     # Check boundaries.
  163.     #
  164.     if {$val >= $min_range && $val < $max_range} {
  165.         incr val $itk_option(-step)
  166.         $itk_component(entry) delete 0 end
  167.         $itk_component(entry) insert 0 $val
  168.     } else {
  169.         if {$itk_option(-wrap)} {
  170.         if {$val >= $max_range} {
  171.             $itk_component(entry) delete 0 end
  172.             $itk_component(entry) insert 0 $min_range 
  173.         } elseif {$val < $min_range} {
  174.             $itk_component(entry) delete 0 end
  175.             $itk_component(entry) insert 0 $min_range 
  176.         } else {
  177.             uplevel #0 $itk_option(-invalid)
  178.         }
  179.         } else {
  180.         uplevel #0 $itk_option(-invalid)
  181.         }
  182.     }
  183.     } else {
  184.     
  185.     #
  186.     # No boundaries.
  187.     #
  188.     incr val $itk_option(-step)
  189.     $itk_component(entry) delete 0 end
  190.     $itk_component(entry) insert 0 $val
  191.     }
  192. }
  193.  
  194. # ------------------------------------------------------------------
  195. # METHOD: down 
  196. #
  197. # Down arrow button press event.  Decrement value in entry.
  198. # ------------------------------------------------------------------
  199. itcl::body iwidgets::Spinint::down {} {
  200.     set min_range [lindex $itk_option(-range) 0]
  201.     set max_range [lindex $itk_option(-range) 1]
  202.     
  203.     set val [$itk_component(entry) get]
  204.     if {[lindex $itk_option(-range) 0] != ""} {
  205.     
  206.     #
  207.     # Check boundaries.
  208.     #
  209.     if {$val > $min_range && $val <= $max_range} {
  210.         incr val -$itk_option(-step)
  211.         $itk_component(entry) delete 0 end
  212.         $itk_component(entry) insert 0 $val
  213.     } else {
  214.         if {$itk_option(-wrap)} {
  215.         if {$val <= $min_range} {
  216.             $itk_component(entry) delete 0 end
  217.             $itk_component(entry) insert 0 $max_range
  218.         } elseif {$val > $max_range} {
  219.             $itk_component(entry) delete 0 end
  220.             $itk_component(entry) insert 0 $max_range
  221.         } else {
  222.             uplevel #0 $itk_option(-invalid)
  223.         }
  224.         } else {
  225.         uplevel #0 $itk_option(-invalid)
  226.         }
  227.     }
  228.     } else {
  229.     
  230.     #
  231.     # No boundaries.
  232.     #
  233.     incr val -$itk_option(-step)
  234.     $itk_component(entry) delete 0 end
  235.     $itk_component(entry) insert 0 $val
  236.     }
  237. }
  238.