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 / pushbutton.itk < prev    next >
Text File  |  1999-02-24  |  13KB  |  365 lines
  1. #
  2. # Pushbutton
  3. # ----------------------------------------------------------------------
  4. # Implements a Motif-like Pushbutton with an optional default ring.
  5. #
  6. # WISH LIST:
  7. #    1)  Allow bitmaps and text on the same button face (Tk limitation).
  8. #    2)  provide arm and disarm bitmaps.
  9. #
  10. # ----------------------------------------------------------------------
  11. #   AUTHOR:  Mark L. Ulferts        EMAIL: mulferts@spd.dsccc.com
  12. #            Bret A. Schuhmacher    EMAIL: bas@wn.com
  13. #
  14. #   @(#) $Id: pushbutton.itk,v 1.1 1998/07/27 18:49:46 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 *Pushbutton.borderWidth 2 widgetDefault
  43. option add *Pushbutton.highlightThickness 2 widgetDefault
  44. option add *Pushbutton.padX 11 widgetDefault
  45. option add *Pushbutton.padY  4 widgetDefault
  46. option add *Pushbutton.defaultRingPad 4 widgetDefault
  47.  
  48. #
  49. # Usual options.
  50. #
  51. itk::usual Pushbutton {
  52.     keep -activebackground -activeforeground -background -borderwidth \
  53.      -cursor -disabledforeground -font -foreground -highlightbackground \
  54.      -highlightcolor -highlightthickness 
  55. }
  56.  
  57. # ------------------------------------------------------------------
  58. #                            PUSHBUTTON
  59. # ------------------------------------------------------------------
  60. class iwidgets::Pushbutton {
  61.     inherit itk::Widget
  62.  
  63.     constructor {args} {}
  64.     destructor {}
  65.  
  66.     itk_option define -padx padX Pad 4
  67.     itk_option define -pady padY Pad 4
  68.     itk_option define -font font Font \
  69.         -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-*
  70.     itk_option define -text text Text {}
  71.     itk_option define -bitmap bitmap Bitmap {}
  72.     itk_option define -image image Image {}
  73.     itk_option define -highlightthickness highlightThickness \
  74.         HighlightThickness 2
  75.     itk_option define -borderwidth borderWidth BorderWidth 2
  76.     itk_option define -defaultring defaultRing DefaultRing 0
  77.     itk_option define -defaultringpad defaultRingPad Pad 4
  78.     itk_option define -height height Height 0
  79.     itk_option define -width width Width 0
  80.     itk_option define -takefocus takeFocus TakeFocus 0
  81.  
  82.     public method flash {} 
  83.     public method invoke {} 
  84.  
  85.     private method _relayout {{when later}} 
  86.  
  87.     protected variable _reposition ""  ;# non-null => _relayout pending
  88. }
  89.  
  90. #
  91. # Provide a lowercased access method for the Pushbutton class.
  92. # 
  93. proc ::iwidgets::pushbutton {pathName args} {
  94.     uplevel ::iwidgets::Pushbutton $pathName $args
  95. }
  96.  
  97. # ------------------------------------------------------------------
  98. #                        CONSTRUCTOR
  99. # ------------------------------------------------------------------
  100. body iwidgets::Pushbutton::constructor {args} {
  101.     #
  102.     # Reconfigure the hull to act as the outer sunken ring of
  103.     # the pushbutton, complete with focus ring.
  104.     #
  105.     itk_option add hull.borderwidth hull.relief
  106.     itk_option add hull.highlightcolor
  107.     itk_option add hull.highlightbackground
  108.     
  109.     component hull configure \
  110.         -borderwidth [$this cget -borderwidth]
  111.     
  112.     pack propagate $itk_component(hull) no
  113.     
  114.     itk_component add pushButton {
  115.     button $itk_component(hull).pushButton \
  116.         } {
  117.     keep -activebackground -activeforeground -anchor -background \
  118.         -cursor -disabledforeground -foreground -justify \
  119.         -textvariable -underline -wraplength -state -command \
  120.         -highlightcolor
  121.     rename -highlightbackground -background background Background
  122.     }
  123.     pack $itk_component(pushButton) -expand 1 -fill both 
  124.     
  125.     #
  126.     # Explicitly handle configs that may have been ignored earlier.
  127.     #
  128.     eval itk_initialize $args
  129.  
  130.     #
  131.     # Layout the pushbutton.
  132.     #
  133.     _relayout
  134. }
  135.  
  136. # ------------------------------------------------------------------
  137. #                           DESTRUCTOR
  138. # ------------------------------------------------------------------
  139. body iwidgets::Pushbutton::destructor {} {
  140.     if {$_reposition != ""} {after cancel $_reposition}
  141. }
  142.  
  143. # ------------------------------------------------------------------
  144. #                             OPTIONS
  145. # ------------------------------------------------------------------
  146.  
  147. # ------------------------------------------------------------------
  148. # OPTION: -padx
  149. #
  150. # Specifies the extra space surrounding the label in the x direction.
  151. # ------------------------------------------------------------------
  152. configbody iwidgets::Pushbutton::padx {
  153.     $itk_component(pushButton) configure -padx $itk_option(-padx)
  154.  
  155.     _relayout
  156. }
  157.  
  158. # ------------------------------------------------------------------
  159. # OPTION: -pady
  160. #
  161. # Specifies the extra space surrounding the label in the y direction.
  162. # ------------------------------------------------------------------
  163. configbody iwidgets::Pushbutton::pady {
  164.     $itk_component(pushButton) configure -pady $itk_option(-pady)
  165.  
  166.     _relayout
  167. }
  168.  
  169. # ------------------------------------------------------------------
  170. # OPTION: -font
  171. #
  172. # Specifies the label font.
  173. # ------------------------------------------------------------------
  174. configbody iwidgets::Pushbutton::font {
  175.     $itk_component(pushButton) configure -font $itk_option(-font)
  176.  
  177.     _relayout
  178. }
  179.  
  180. # ------------------------------------------------------------------
  181. # OPTION: -text
  182. #
  183. # Specifies the label text.
  184. # ------------------------------------------------------------------
  185. configbody iwidgets::Pushbutton::text {
  186.     $itk_component(pushButton) configure -text $itk_option(-text)
  187.  
  188.     _relayout
  189. }
  190.  
  191. # ------------------------------------------------------------------
  192. # OPTION: -bitmap
  193. #
  194. # Specifies the label bitmap.
  195. # ------------------------------------------------------------------
  196. configbody iwidgets::Pushbutton::bitmap {
  197.     $itk_component(pushButton) configure -bitmap $itk_option(-bitmap)
  198.  
  199.     _relayout
  200. }
  201.  
  202. # ------------------------------------------------------------------
  203. # OPTION: -image
  204. #
  205. # Specifies the label image.
  206. # ------------------------------------------------------------------
  207. configbody iwidgets::Pushbutton::image {
  208.     $itk_component(pushButton) configure -image $itk_option(-image)
  209.  
  210.     _relayout
  211. }
  212.  
  213. # ------------------------------------------------------------------
  214. # OPTION: -highlightthickness
  215. #
  216. # Specifies the thickness of the highlight ring.
  217. # ------------------------------------------------------------------
  218. configbody iwidgets::Pushbutton::highlightthickness {
  219.     $itk_component(pushButton) configure \
  220.         -highlightthickness $itk_option(-highlightthickness)
  221.  
  222.     _relayout
  223. }
  224.  
  225. # ------------------------------------------------------------------
  226. # OPTION: -borderwidth
  227. #
  228. # Specifies the width of the relief border.
  229. # ------------------------------------------------------------------
  230. configbody iwidgets::Pushbutton::borderwidth {
  231.     $itk_component(pushButton) configure -borderwidth $itk_option(-borderwidth)
  232.  
  233.     _relayout
  234. }
  235.  
  236. # ------------------------------------------------------------------
  237. # OPTION: -defaultring
  238. #
  239. # Boolean describing whether the button displays its default ring.  
  240. # ------------------------------------------------------------------
  241. configbody iwidgets::Pushbutton::defaultring {
  242.     _relayout
  243. }
  244.  
  245. # ------------------------------------------------------------------
  246. # OPTION: -defaultringpad
  247. #
  248. # The size of the padded default ring around the button.
  249. # ------------------------------------------------------------------
  250. configbody iwidgets::Pushbutton::defaultringpad {
  251.     pack $itk_component(pushButton) \
  252.         -padx $itk_option(-defaultringpad) \
  253.         -pady $itk_option(-defaultringpad)
  254. }
  255.  
  256. # ------------------------------------------------------------------
  257. # OPTION: -height
  258. #
  259. # Specifies the height of the button inclusive of any default ring.
  260. # A value of zero lets the push button determine the height based
  261. # on the requested height plus highlightring and defaultringpad.
  262. # ------------------------------------------------------------------
  263. configbody iwidgets::Pushbutton::height {
  264.     _relayout
  265. }
  266.  
  267. # ------------------------------------------------------------------
  268. # OPTION: -width
  269. #
  270. # Specifies the width of the button inclusive of any default ring.
  271. # A value of zero lets the push button determine the width based
  272. # on the requested width plus highlightring and defaultringpad.
  273. # ------------------------------------------------------------------
  274. configbody iwidgets::Pushbutton::width {
  275.     _relayout
  276. }
  277.  
  278. # ------------------------------------------------------------------
  279. #                            METHODS
  280. # ------------------------------------------------------------------
  281.  
  282. # ------------------------------------------------------------------
  283. # METHOD: flash
  284. #
  285. # Thin wrap of standard button widget flash method.
  286. # ------------------------------------------------------------------
  287. body iwidgets::Pushbutton::flash {} {
  288.     $itk_component(pushButton) flash
  289. }
  290.  
  291. # ------------------------------------------------------------------
  292. # METHOD: invoke
  293. #
  294. # Thin wrap of standard button widget invoke method.
  295. # ------------------------------------------------------------------
  296. body iwidgets::Pushbutton::invoke {} {
  297.     $itk_component(pushButton) invoke
  298. }
  299.  
  300. # ------------------------------------------------------------------
  301. # PRIVATE METHOD: _relayout ?when?
  302. #
  303. # Adjust the width and height of the Pushbutton to accomadate all the
  304. # current options settings.  Add back in the highlightthickness to 
  305. # the button such that the correct reqwidth and reqheight are computed.  
  306. # Set the width and height based on the reqwidth/reqheight, 
  307. # highlightthickness, and ringpad.  Finally, configure the defaultring
  308. # properly. If "when" is "now", the change is applied immediately.  If 
  309. # it is "later" or it is not specified, then the change is applied later,
  310. # when the application is idle.
  311. # ------------------------------------------------------------------
  312. body iwidgets::Pushbutton::_relayout {{when later}} {
  313.     if {$when == "later"} {
  314.     if {$_reposition == ""} {
  315.         set _reposition [after idle [code $this _relayout now]]
  316.     }
  317.     return
  318.     } elseif {$when != "now"} {
  319.     error "bad option \"$when\": should be now or later"
  320.     }
  321.  
  322.     set _reposition ""
  323.  
  324.     if {$itk_option(-width) == 0} {
  325.     set w [expr [winfo reqwidth $itk_component(pushButton)] \
  326.         + 2 * $itk_option(-highlightthickness) \
  327.         + 2 * $itk_option(-borderwidth) \
  328.         + 2 * $itk_option(-defaultringpad)]
  329.     } else {
  330.     set w $itk_option(-width)
  331.     }
  332.     
  333.     if {$itk_option(-height) == 0} {
  334.     set h [expr [winfo reqheight $itk_component(pushButton)] \
  335.         + 2 * $itk_option(-highlightthickness) \
  336.         + 2 * $itk_option(-borderwidth) \
  337.         + 2 * $itk_option(-defaultringpad)]
  338.     } else {
  339.     set h $itk_option(-height)
  340.     }
  341.     
  342.     component hull configure -width $w -height $h
  343.     
  344.     if {$itk_option(-defaultring)} {
  345.     component hull configure -relief sunken \
  346.         -highlightthickness [$this cget -highlightthickness] \
  347.         -takefocus 1
  348.  
  349.     configure -takefocus 1
  350.     
  351.     component pushButton configure \
  352.         -highlightthickness 0 -takefocus 0
  353.     
  354.     } else {
  355.     component hull configure -relief flat \
  356.         -highlightthickness 0 -takefocus 0
  357.     
  358.     component pushButton configure \
  359.         -highlightthickness [$this cget -highlightthickness] \
  360.         -takefocus 1
  361.  
  362.     configure -takefocus 0
  363.     }
  364. }
  365.