home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / plugins / apache / setup / apacheInstallDialog.tcl < prev    next >
Text File  |  2000-11-02  |  1KB  |  58 lines
  1.  
  2.  
  3. class ::apacheInstallDialog {
  4.     variable pPageXui
  5.     variable guiRenderer
  6.     variable apacheConfFile
  7.     variable dialog
  8.     variable guiPP {}
  9.     variable f
  10.     constructor { gr } {
  11.         set guiRenderer $gr
  12.     set w .[unique::newId]
  13.     set dialog [Dialog $w \
  14.             -parent . \
  15.         -title {Apache installation Config}\
  16.         -modal local]
  17.     set f [frame [ $dialog getframe ].f ]
  18.     set f2 [Label $f.l -text [mesg::get apacheInstallation] \
  19.         -anchor e  -wraplength 200]
  20.     pack $f2 -side left -expand true
  21.     pack $f  -fill both -expand true -padx 2 -pady 2
  22.     $dialog add -text Ok
  23.     $dialog add -text Cancel
  24.     pack propagate $dialog 1
  25.     wm protocol $w WM_DELETE_WINDOW { ; }
  26.     }
  27.     method show { xuiData }
  28.     method _clear {}
  29.  
  30. }
  31.  
  32. body apacheInstallDialog::show  { xuiData } {
  33.     $this _clear
  34.  
  35.     set guiPP [$guiRenderer render $f $xuiData]
  36.     switch  [$dialog draw] {
  37.     -1 { 
  38.         error {This should never occur. Dialog only to be dismissed using
  39.         Ok or Cancel}
  40.     } 0 {
  41.         return OK
  42.     } 1 {
  43.         return CANCEL
  44.     }
  45.     default { 
  46.         error {This should never occur}
  47.     }
  48.     }
  49. }
  50.  
  51. body apacheInstallDialog::_clear {} {
  52.     if [llength $guiPP] {
  53.         delete object $guiPP
  54.     set guiPP {}
  55.     }
  56. }
  57.  
  58.