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 / promptdialog.itk < prev    next >
Text File  |  1999-02-24  |  7KB  |  209 lines
  1. #
  2. # Promptdialog
  3. # ----------------------------------------------------------------------
  4. # Implements a prompt dialog similar to the OSF/Motif standard prompt
  5. # dialog composite widget.  The Promptdialog is derived from the 
  6. # Dialog class and is composed of a EntryField with methods to
  7. # manipulate the dialog buttons.
  8. # 
  9. # ----------------------------------------------------------------------
  10. #  AUTHOR: Mark L. Ulferts               EMAIL: mulferts@spd.dsccc.com
  11. #
  12. #  @(#) $Id: promptdialog.itk,v 1.1 1998/07/27 18:49:46 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 *Promptdialog.borderWidth 2 widgetDefault
  41.  
  42. option add *Promptdialog.labelText Selection widgetDefault
  43. option add *Promptdialog.labelPos nw widgetDefault
  44.  
  45. option add *Promptdialog.title "Prompt Dialog" widgetDefault
  46.  
  47. option add *Promptdialog.padX 10 widgetDefault
  48. option add *Promptdialog.padY 10 widgetDefault
  49.  
  50. option add *Promptdialog.master "." widgetDefault
  51.  
  52. #
  53. # Usual options.
  54. #
  55. itk::usual Promptdialog {
  56.     keep -background -borderwidth -cursor -foreground -highlightcolor \
  57.      -highlightthickness -insertbackground -insertborderwidth \
  58.      -insertofftime -insertontime -insertwidth -labelfont -modality \
  59.      -selectbackground -selectborderwidth -selectforeground \
  60.      -textbackground -textfont
  61. }
  62.  
  63. # ------------------------------------------------------------------
  64. #                            PROMPTDIALOG
  65. # ------------------------------------------------------------------
  66. class iwidgets::Promptdialog {
  67.     inherit iwidgets::Dialog
  68.  
  69.     constructor {args} {}
  70.  
  71.     public method get {} 
  72.     public method clear {} 
  73.     public method insert {args} 
  74.     public method delete {args} 
  75.     public method icursor {args} 
  76.     public method index {args} 
  77.     public method scan {args} 
  78.     public method selection {args} 
  79.     method xview {args} 
  80. }
  81.  
  82. #
  83. # Provide a lowercased access method for the Dialogshell class.
  84. # 
  85. proc ::iwidgets::promptdialog {pathName args} {
  86.     uplevel ::iwidgets::Promptdialog $pathName $args
  87. }
  88.  
  89. # ------------------------------------------------------------------
  90. #                        CONSTRUCTOR
  91. # ------------------------------------------------------------------
  92. body iwidgets::Promptdialog::constructor {args} {
  93.     component hull configure -borderwidth 0
  94.     
  95.     # 
  96.     # Instantiate an entry field widget.
  97.     #
  98.     itk_component add ef {
  99.     iwidgets::Entryfield $itk_interior.ef -command [code $this invoke]
  100.     } {
  101.     keep -background -borderwidth -childsitepos -cursor \
  102.         -exportselection -fixed -foreground \
  103.         -highlightcolor -highlightthickness -insertbackground \
  104.         -insertborderwidth -insertofftime -insertontime \
  105.         -insertwidth -invalid -justify -labelfont -labelbitmap \
  106.         -labelimage -labelmargin -labelpos -labeltext -relief \
  107.         -selectbackground -selectborderwidth -selectforeground \
  108.         -show -state -textbackground -textfont -textvariable \
  109.         -validate -width
  110.     }
  111.     
  112.     pack $itk_component(ef) -fill x -expand yes
  113.     set itk_interior [childsite]
  114.     
  115.     hide Help
  116.  
  117.     #
  118.     # Explicitly handle configs that may have been ignored earlier.
  119.     #
  120.     eval itk_initialize $args
  121. }   
  122.  
  123. # ------------------------------------------------------------------
  124. #                            METHODS
  125. # ------------------------------------------------------------------
  126.  
  127. # ------------------------------------------------------------------
  128. # METHOD: get
  129. #
  130. # Thinwrapped method of entry field class.
  131. # ------------------------------------------------------------------
  132. body iwidgets::Promptdialog::get {} {
  133.     return [$itk_component(ef) get]
  134. }
  135.  
  136. # ------------------------------------------------------------------
  137. # METHOD: clear 
  138. #
  139. # Thinwrapped method of entry field class.
  140. # ------------------------------------------------------------------
  141. body iwidgets::Promptdialog::clear {} {
  142.     eval $itk_component(ef) clear
  143. }
  144.  
  145. # ------------------------------------------------------------------
  146. # METHOD: insert args
  147. #
  148. # Thinwrapped method of entry field class.
  149. # ------------------------------------------------------------------
  150. body iwidgets::Promptdialog::insert {args} {
  151.     eval $itk_component(ef) insert $args
  152. }
  153.  
  154. # ------------------------------------------------------------------
  155. # METHOD: delete first ?last?
  156. #
  157. # Thinwrapped method of entry field class.
  158. # ------------------------------------------------------------------
  159. body iwidgets::Promptdialog::delete {args} {
  160.     eval $itk_component(ef) delete $args
  161. }
  162.  
  163. # ------------------------------------------------------------------
  164. # METHOD: icursor
  165. #
  166. # Thinwrapped method of entry field class.
  167. # ------------------------------------------------------------------
  168. body iwidgets::Promptdialog::icursor {args} {
  169.     eval $itk_component(ef) icursor $args
  170. }
  171.  
  172. # ------------------------------------------------------------------
  173. # METHOD: index
  174. #
  175. # Thinwrapped method of entry field class.
  176. # ------------------------------------------------------------------
  177. body iwidgets::Promptdialog::index {args} {
  178.     return [eval $itk_component(ef) index $args]
  179. }
  180.  
  181. # ------------------------------------------------------------------
  182. # METHOD: scan option args
  183. #
  184. # Thinwrapped method of entry field class.
  185. # ------------------------------------------------------------------
  186. body iwidgets::Promptdialog::scan {args} {
  187.     eval $itk_component(ef) scan $args
  188. }
  189.  
  190. # ------------------------------------------------------------------
  191. # METHOD: selection args
  192. #
  193. # Thinwrapped method of entry field class.
  194. # ------------------------------------------------------------------
  195. body iwidgets::Promptdialog::selection {args} {
  196.     eval $itk_component(ef) selection $args
  197. }
  198.  
  199. # ------------------------------------------------------------------
  200. # METHOD: xview args
  201. #
  202. # Thinwrapped method of entry field class.
  203. # ------------------------------------------------------------------
  204. body iwidgets::Promptdialog::xview {args} {
  205.     eval $itk_component(ef) xview $args
  206. }
  207.  
  208.  
  209.