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 / dialogshell.itk < prev    next >
Text File  |  1999-02-24  |  12KB  |  327 lines
  1. # Dialogshell
  2. # ----------------------------------------------------------------------
  3. # This class is implements a dialog shell which is a top level widget
  4. # composed of a button box, separator, and child site area.  The class
  5. # also has methods to control button construction.
  6. #    
  7. # ----------------------------------------------------------------------
  8. #  AUTHOR: Mark L. Ulferts               EMAIL: mulferts@spd.dsccc.com
  9. #
  10. #  @(#) $Id: dialogshell.itk,v 1.1 1998/07/27 18:49:24 stanton Exp $
  11. # ----------------------------------------------------------------------
  12. #            Copyright (c) 1995 DSC Technologies Corporation
  13. # ======================================================================
  14. # Permission to use, copy, modify, distribute and license this software 
  15. # and its documentation for any purpose, and without fee or written 
  16. # agreement with DSC, is hereby granted, provided that the above copyright 
  17. # notice appears in all copies and that both the copyright notice and 
  18. # warranty disclaimer below appear in supporting documentation, and that 
  19. # the names of DSC Technologies Corporation or DSC Communications 
  20. # Corporation not be used in advertising or publicity pertaining to the 
  21. # software without specific, written prior permission.
  22. # 
  23. # DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING 
  24. # ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
  25. # INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
  26. # AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, 
  27. # SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL 
  28. # DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR 
  29. # ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
  30. # WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
  31. # ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS 
  32. # SOFTWARE.
  33. # ======================================================================
  34.  
  35. #
  36. # Default resources,
  37. #
  38. option add *Dialogshell.thickness 3 widgetDefault
  39. option add *Dialogshell.buttonBoxPos s widgetDefault
  40. option add *Dialogshell.modality none widgetDefault
  41. option add *Dialogshell.separator on widgetDefault
  42. option add *Dialogshell.padX 10 widgetDefault
  43. option add *Dialogshell.padY 10 widgetDefault
  44. option add *Dialogshell.master "." widgetDefault
  45.  
  46. #
  47. # Usual options.
  48. #
  49. itk::usual Dialogshell {
  50.     keep -background -cursor -foreground -modality 
  51. }
  52.  
  53. # ------------------------------------------------------------------
  54. #                            DIALOGSHELL
  55. # ------------------------------------------------------------------
  56. class iwidgets::Dialogshell {
  57.     inherit iwidgets::Shell
  58.  
  59.     constructor {args} {}
  60.  
  61.     itk_option define -thickness thickness Thickness 3
  62.     itk_option define -buttonboxpos buttonBoxPos Position s
  63.     itk_option define -separator separator Separator on
  64.     itk_option define -padx padX Pad 10
  65.     itk_option define -pady padY Pad 10
  66.  
  67.     public method childsite {}
  68.     public method index {args}
  69.     public method add {args}
  70.     public method insert {args}
  71.     public method delete {args}
  72.     public method hide {args}
  73.     public method show {args}
  74.     public method default {args}
  75.     public method invoke {args}
  76.     public method buttonconfigure {args}
  77. }
  78.  
  79. #
  80. # Provide a lowercased access method for the Dialogshell class.
  81. # 
  82. proc ::iwidgets::dialogshell {pathName args} {
  83.     uplevel ::iwidgets::Dialogshell $pathName $args
  84. }
  85.  
  86. # ------------------------------------------------------------------
  87. #                        CONSTRUCTOR
  88. # ------------------------------------------------------------------
  89. body iwidgets::Dialogshell::constructor {args} {
  90.     itk_option remove iwidgets::Shell::padx iwidgets::Shell::pady
  91.  
  92.     #
  93.     # Create the user child site, separator, and button box,
  94.     #
  95.     itk_component add dschildsite {
  96.     frame $itk_interior.dschildsite
  97.     } {
  98.     keep -background -cursor
  99.     }
  100.     pack $itk_component(dschildsite) -fill both -expand yes
  101.     
  102.     itk_component add separator {
  103.     frame $itk_interior.separator -relief sunken 
  104.     } {
  105.     keep -background -cursor
  106.     }
  107.     pack $itk_component(separator) -expand no
  108.     
  109.     itk_component add bbox {
  110.     iwidgets::Buttonbox $itk_interior.bbox
  111.     } {
  112.     keep -background -cursor -foreground
  113.     
  114.     rename -padx -buttonboxpadx buttonBoxPadX Pad
  115.     rename -pady -buttonboxpady buttonBoxPadY Pad
  116.     }
  117.     pack $itk_component(bbox) -expand no
  118.     
  119.     #
  120.     # Set the itk_interior variable to be the childsite for derived 
  121.     # classes.
  122.     #
  123.     set itk_interior $itk_component(dschildsite)
  124.     
  125.     #
  126.     # Set up the default button so that if <Return> is pressed in
  127.     # any widget, it will invoke the default button.
  128.     #
  129.     bind $itk_component(hull) <Return> [code $this invoke]
  130.     
  131.     #
  132.     # Explicitly handle configs that may have been ignored earlier.
  133.     #
  134.     eval itk_initialize $args
  135. }
  136.  
  137. # ------------------------------------------------------------------
  138. #                             OPTIONS
  139. # ------------------------------------------------------------------
  140.  
  141. # ------------------------------------------------------------------
  142. # OPTION: -thickness
  143. #
  144. # Specifies the thickness of the separator.  It sets the width and
  145. # height of the separator to the thickness value and the borderwidth
  146. # to half the thickness.
  147. # ------------------------------------------------------------------
  148. configbody iwidgets::Dialogshell::thickness {
  149.     $itk_component(separator) config -height $itk_option(-thickness)
  150.     $itk_component(separator) config -width $itk_option(-thickness)
  151.     $itk_component(separator) config \
  152.         -borderwidth [expr $itk_option(-thickness) / 2]
  153. }
  154.  
  155. # ------------------------------------------------------------------
  156. # OPTION: -buttonboxpos
  157. #
  158. # Specifies the position of the button box relative to the child site.
  159. # The separator appears between the child site and button box.
  160. # ------------------------------------------------------------------
  161. configbody iwidgets::Dialogshell::buttonboxpos {
  162.     switch $itk_option(-buttonboxpos) {
  163.     n {
  164.         pack config $itk_component(dschildsite) -side top
  165.         pack config $itk_component(separator) -side top \
  166.             -before $itk_component(dschildsite) -fill x
  167.         $itk_component(bbox) configure -orient horizontal
  168.         pack config $itk_component(bbox) -side top \
  169.             -before $itk_component(separator) -fill x 
  170.     }
  171.     s {
  172.         pack config $itk_component(dschildsite) -side top
  173.         pack config $itk_component(separator) -side top \
  174.             -after $itk_component(dschildsite) -fill x
  175.         $itk_component(bbox) configure -orient horizontal
  176.         pack config $itk_component(bbox) -side top \
  177.             -after $itk_component(separator) -fill x 
  178.     }
  179.     w {
  180.         pack config $itk_component(dschildsite) -side left
  181.         pack config $itk_component(separator) -side left \
  182.             -before $itk_component(dschildsite) -fill y
  183.         $itk_component(bbox) configure -orient vertical
  184.         pack config $itk_component(bbox) -side left \
  185.             -before $itk_component(separator) -fill y
  186.     }
  187.     e {
  188.         pack config $itk_component(dschildsite) -side left
  189.         pack config $itk_component(separator) -side left \
  190.             -after $itk_component(dschildsite) -fill y
  191.         $itk_component(bbox) configure -orient vertical
  192.         pack config $itk_component(bbox) -side left \
  193.             -after $itk_component(separator) -fill y
  194.     }
  195.     default {
  196.         error "bad buttonboxpos option\
  197.             \"$itk_option(-buttonboxpos)\": should be n,\
  198.             s, e, or w"
  199.     }
  200.     }
  201. }
  202.  
  203. # ------------------------------------------------------------------
  204. # OPTION: -separator 
  205. #
  206. # Boolean option indicating wheather to display the separator.
  207. # ------------------------------------------------------------------
  208. configbody iwidgets::Dialogshell::separator {
  209.     if {$itk_option(-separator)} {
  210.     $itk_component(separator) configure -relief sunken
  211.     } else {
  212.     $itk_component(separator) configure -relief flat
  213.     }
  214. }
  215.  
  216. # ------------------------------------------------------------------
  217. # OPTION: -padx
  218. #
  219. # Specifies a padding distance for the childsite in the X-direction.
  220. # ------------------------------------------------------------------
  221. configbody iwidgets::Dialogshell::padx {
  222.     pack config $itk_component(dschildsite) -padx $itk_option(-padx)
  223. }
  224.  
  225. # ------------------------------------------------------------------
  226. # OPTION: -pady
  227. #
  228. # Specifies a padding distance for the childsite in the Y-direction.
  229. # ------------------------------------------------------------------
  230. configbody iwidgets::Dialogshell::pady {
  231.     pack config $itk_component(dschildsite) -pady $itk_option(-pady)
  232. }
  233.     
  234. # ------------------------------------------------------------------
  235. #                            METHODS
  236. # ------------------------------------------------------------------
  237.  
  238. # ------------------------------------------------------------------
  239. # METHOD: childsite
  240. #
  241. # Return the pathname of the user accessible area.
  242. # ------------------------------------------------------------------
  243. body iwidgets::Dialogshell::childsite {} {
  244.     return $itk_component(dschildsite)
  245. }
  246.  
  247. # ------------------------------------------------------------------
  248. # METHOD: index index
  249. #
  250. # Thin wrapper of Buttonbox's index method.
  251. # ------------------------------------------------------------------
  252. body iwidgets::Dialogshell::index {args} {
  253.     uplevel $itk_component(bbox) index $args
  254. }
  255.  
  256. # ------------------------------------------------------------------
  257. # METHOD: add tag ?option value ...?
  258. #
  259. # Thin wrapper of Buttonbox's add method.
  260. # ------------------------------------------------------------------
  261. body iwidgets::Dialogshell::add {args} {
  262.     uplevel $itk_component(bbox) add $args
  263. }
  264.  
  265. # ------------------------------------------------------------------
  266. # METHOD: insert index tag ?option value ...?
  267. #
  268. # Thin wrapper of Buttonbox's insert method.
  269. # ------------------------------------------------------------------
  270. body iwidgets::Dialogshell::insert {args} {
  271.     uplevel $itk_component(bbox) insert $args
  272. }
  273.  
  274. # ------------------------------------------------------------------
  275. # METHOD: delete tag
  276. #
  277. # Thin wrapper of Buttonbox's delete method.
  278. # ------------------------------------------------------------------
  279. body iwidgets::Dialogshell::delete {args} {
  280.     uplevel $itk_component(bbox) delete $args
  281. }
  282.  
  283. # ------------------------------------------------------------------
  284. # METHOD: hide index
  285. #
  286. # Thin wrapper of Buttonbox's hide method.
  287. # ------------------------------------------------------------------
  288. body iwidgets::Dialogshell::hide {args} {
  289.     uplevel $itk_component(bbox) hide $args
  290. }
  291.  
  292. # ------------------------------------------------------------------
  293. # METHOD: show index
  294. #
  295. # Thin wrapper of Buttonbox's show method.
  296. # ------------------------------------------------------------------
  297. body iwidgets::Dialogshell::show {args} {
  298.     uplevel $itk_component(bbox) show $args
  299. }
  300.  
  301. # ------------------------------------------------------------------
  302. # METHOD: default index
  303. #
  304. # Thin wrapper of Buttonbox's default method.
  305. # ------------------------------------------------------------------
  306. body iwidgets::Dialogshell::default {args} {
  307.     uplevel $itk_component(bbox) default $args
  308. }
  309.  
  310. # ------------------------------------------------------------------
  311. # METHOD: invoke ?index?
  312. #
  313. # Thin wrapper of Buttonbox's invoke method.
  314. # ------------------------------------------------------------------
  315. body iwidgets::Dialogshell::invoke {args} {
  316.     uplevel $itk_component(bbox) invoke $args
  317. }
  318.  
  319. # ------------------------------------------------------------------
  320. # METHOD: buttonconfigure index ?option? ?value option value ...?
  321. #
  322. # Thin wrapper of Buttonbox's buttonconfigure method.
  323. # ------------------------------------------------------------------
  324. body iwidgets::Dialogshell::buttonconfigure {args} {
  325.     uplevel $itk_component(bbox) buttonconfigure $args
  326. }
  327.