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 / selectiondialog.itk < prev    next >
Text File  |  1999-02-24  |  10KB  |  268 lines
  1. #
  2. # Selectiondialog
  3. # ----------------------------------------------------------------------
  4. # Implements a selection box similar to the OSF/Motif standard selection
  5. # dialog composite widget.  The Selectiondialog is derived from the 
  6. # Dialog class and is composed of a SelectionBox with attributes to
  7. # manipulate the dialog buttons.
  8. # 
  9. # ----------------------------------------------------------------------
  10. #  AUTHOR: Mark L. Ulferts               EMAIL: mulferts@spd.dsccc.com
  11. #
  12. #  @(#) $Id: selectiondialog.itk,v 1.1 1998/07/27 18:49:50 stanton Exp $
  13. # ----------------------------------------------------------------------
  14. #            Copyright (c) 1995 DSC Technologies Corporation
  15. # ======================================================================
  16. # Permission to use, copy, modify, distribute and license this software 
  17. # and its documentation for any purpose, and without fee or written 
  18. # agreement with DSC, is hereby granted, provided that the above copyright 
  19. # notice appears in all copies and that both the copyright notice and 
  20. # warranty disclaimer below appear in supporting documentation, and that 
  21. # the names of DSC Technologies Corporation or DSC Communications 
  22. # Corporation not be used in advertising or publicity pertaining to the 
  23. # software without specific, written prior permission.
  24. # 
  25. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  26. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  27. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  28. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  29. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  30. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  31. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  32. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  33. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  34. # SOFTWARE.
  35. # ======================================================================
  36.  
  37. #
  38. # Default resources.
  39. #
  40. option add *Selectiondialog.borderWidth 2 widgetDefault
  41.  
  42. option add *Selectiondialog.itemsLabel Items widgetDefault
  43. option add *Selectiondialog.itemsLabelPos nw widgetDefault
  44. option add *Selectiondialog.itemsOn yes widgetDefault
  45.  
  46. option add *Selectiondialog.selectionLabel Selection widgetDefault
  47. option add *Selectiondialog.selectionLabelPos nw widgetDefault
  48. option add *Selectiondialog.selectionOn yes widgetDefault
  49.  
  50. option add *Selectiondialog.vscrollMode static widgetDefault
  51. option add *Selectiondialog.hscrollMode dynamic widgetDefault
  52. option add *Selectiondialog.scrollMargin 3 widgetDefault
  53. option add *Selectiondialog.margin 7 widgetDefault
  54.  
  55. option add *Selectiondialog.title "Selection Dialog" widgetDefault
  56.  
  57. option add *Selectiondialog.padX 10 widgetDefault
  58. option add *Selectiondialog.padY 10 widgetDefault
  59.  
  60. option add *Selectiondialog.height 350 widgetDefault
  61. option add *Selectiondialog.width 300 widgetDefault
  62.  
  63. option add *Selectiondialog.master "." widgetDefault
  64.  
  65. #
  66. # Usual options.
  67. #
  68. itk::usual Selectiondialog {
  69.     keep -activebackground -activerelief -background -borderwidth -cursor \
  70.      -elementborderwidth -foreground -highlightcolor -highlightthickness \
  71.      -insertbackground -insertborderwidth -insertofftime -insertontime \
  72.      -insertwidth -jump -labelfont -modality -selectbackground \
  73.      -selectborderwidth -selectforeground -textbackground -textfont \
  74.      -troughcolor
  75. }
  76.  
  77. # ------------------------------------------------------------------
  78. #                           SELECTIONDIALOG
  79. # ------------------------------------------------------------------
  80. class iwidgets::Selectiondialog {
  81.     inherit iwidgets::Dialog
  82.  
  83.     constructor {args} {}
  84.  
  85.     public method childsite {}
  86.     public method get {}
  87.     public method curselection {}
  88.     public method clear {component}
  89.     public method insert {component index args}
  90.     public method delete {first {last {}}}
  91.     public method size {}
  92.     public method scan {option args}
  93.     public method nearest {y}
  94.     public method index {index}
  95.     public method selection {option args}
  96.     public method selectitem {}
  97. }
  98.     
  99. #
  100. # Provide a lowercased access method for the Selectiondialog class.
  101. # 
  102. proc ::iwidgets::selectiondialog {pathName args} {
  103.     uplevel ::iwidgets::Selectiondialog $pathName $args
  104. }
  105.  
  106. # ------------------------------------------------------------------
  107. #                        CONSTRUCTOR
  108. # ------------------------------------------------------------------
  109. body iwidgets::Selectiondialog::constructor {args} {
  110.     component hull configure -borderwidth 0
  111.     itk_option add hull.width hull.height
  112.     
  113.     #
  114.     # Turn off pack propagation for the hull widget so the width
  115.     # and height options become active.
  116.     #
  117.     pack propagate $itk_component(hull) no
  118.     
  119.     # 
  120.     # Instantiate a selection box widget.
  121.     #
  122.     itk_component add sb {
  123.     iwidgets::Selectionbox $itk_interior.sb \
  124.         -width 100 -height 140 -dblclickcommand [code $this invoke]
  125.     } {
  126.     keep -activebackground -activerelief -background -borderwidth \
  127.         -childsitepos -cursor -elementborderwidth \
  128.         -exportselection -foreground \
  129.         -highlightcolor -highlightthickness -hscrollmode \
  130.         -jump -insertbackground -insertborderwidth \
  131.         -insertofftime -insertontime -insertwidth -items \
  132.         -itemslabel -itemslabelpos -itemson -labelfont \
  133.         -labelmargin -margin -relief -repeatdelay \
  134.         -repeatinterval -sbwidth -scrollmargin -selectbackground \
  135.         -selectborderwidth -selectforeground  -selectionlabel \
  136.         -selectionlabelpos -selectionon -textbackground \
  137.         -textfont -troughcolor -vscrollmode \
  138.         -itemscommand -selectioncommand
  139.     }
  140.     configure -itemscommand [code $this selectitem]
  141.     
  142.     pack $itk_component(sb) -fill both -expand yes
  143.     set itk_interior [$itk_component(sb) childsite]
  144.     
  145.     hide Help
  146.  
  147.     eval itk_initialize $args
  148. }   
  149.  
  150. # ------------------------------------------------------------------
  151. #                            METHODS
  152. # ------------------------------------------------------------------
  153.  
  154. # ------------------------------------------------------------------
  155. # METHOD: childsite
  156. #
  157. # Thinwrapped method of selection box class.
  158. # ------------------------------------------------------------------
  159. body iwidgets::Selectiondialog::childsite {} {
  160.     return [$itk_component(sb) childsite]
  161. }
  162.  
  163. # ------------------------------------------------------------------
  164. # METHOD: get
  165. #
  166. # Thinwrapped method of selection box class.
  167. # ------------------------------------------------------------------
  168. body iwidgets::Selectiondialog::get {} {
  169.     return [$itk_component(sb) get]
  170. }
  171.  
  172. # ------------------------------------------------------------------
  173. # METHOD: curselection
  174. #
  175. # Thinwrapped method of selection box class.
  176. # ------------------------------------------------------------------
  177. body iwidgets::Selectiondialog::curselection {} {
  178.     return [$itk_component(sb) curselection]
  179. }
  180.  
  181. # ------------------------------------------------------------------
  182. # METHOD: clear component
  183. #
  184. # Thinwrapped method of selection box class.
  185. # ------------------------------------------------------------------
  186. body iwidgets::Selectiondialog::clear {component} {
  187.     $itk_component(sb) clear $component
  188.     set itk_option(-items) [$itk_component(sb) cget -items]
  189.     return
  190. }
  191.  
  192. # ------------------------------------------------------------------
  193. # METHOD: insert component index args
  194. #
  195. # Thinwrapped method of selection box class.
  196. # ------------------------------------------------------------------
  197. body iwidgets::Selectiondialog::insert {component index args} {
  198.     eval $itk_component(sb) insert $component $index $args
  199.     set itk_option(-items) [$itk_component(sb) cget -items]
  200.     return
  201. }
  202.  
  203. # ------------------------------------------------------------------
  204. # METHOD: delete first ?last?
  205. #
  206. # Thinwrapped method of selection box class.
  207. # ------------------------------------------------------------------
  208. body iwidgets::Selectiondialog::delete {first {last {}}} {
  209.     $itk_component(sb) delete $first $last
  210.     set itk_option(-items) [$itk_component(sb) cget -items]
  211.     return
  212. }
  213.  
  214. # ------------------------------------------------------------------
  215. # METHOD: size
  216. #
  217. # Thinwrapped method of selection box class.
  218. # ------------------------------------------------------------------
  219. body iwidgets::Selectiondialog::size {} {
  220.     return [$itk_component(sb) size]
  221. }
  222.  
  223. # ------------------------------------------------------------------
  224. # METHOD: scan option args
  225. #
  226. # Thinwrapped method of selection box class.
  227. # ------------------------------------------------------------------
  228. body iwidgets::Selectiondialog::scan {option args} {
  229.     return [eval $itk_component(sb) scan $option $args]
  230. }
  231.  
  232. # ------------------------------------------------------------------
  233. # METHOD: nearest y
  234. #
  235. # Thinwrapped method of selection box class.
  236. # ------------------------------------------------------------------
  237. body iwidgets::Selectiondialog::nearest {y} {
  238.     return [$itk_component(sb) nearest $y]
  239. }
  240.  
  241. # ------------------------------------------------------------------
  242. # METHOD: index index
  243. #
  244. # Thinwrapped method of selection box class.
  245. # ------------------------------------------------------------------
  246. body iwidgets::Selectiondialog::index {index} {
  247.     return [$itk_component(sb) index $index]
  248. }
  249.  
  250. # ------------------------------------------------------------------
  251. # METHOD: selection option args
  252. #
  253. # Thinwrapped method of selection box class.
  254. # ------------------------------------------------------------------
  255. body iwidgets::Selectiondialog::selection {option args} {
  256.     eval $itk_component(sb) selection $option $args
  257. }
  258.  
  259. # ------------------------------------------------------------------
  260. # METHOD: selectitem
  261. #
  262. # Set the default button to ok and select the item.
  263. # ------------------------------------------------------------------
  264. body iwidgets::Selectiondialog::selectitem {} {
  265.     default OK
  266.     $itk_component(sb) selectitem
  267. }
  268.