home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1999 February / Freesoft_1999-02_cd.bin / Recenz / Utility / DisplayDoctorLinux / scitech-display-doctor-1.0beta-3.i386.rpm / scitech-display-doctor-1.0beta.3.cpio.gz / scitech-display-doctor-1.0beta.3.cpio / usr / lib / nucleus / XF86Setup / done.tcl < prev    next >
Text File  |  1998-09-19  |  2KB  |  73 lines
  1. # $XConsortium: done.tcl /main/4 1996/10/25 10:21:11 kaleb $
  2. #
  3. #
  4. #
  5. #
  6. # $XFree86: xc/programs/Xserver/hw/xfree86/XF86Setup/done.tcl,v 3.7.2.2 1998/02/21 06:06:59 robin Exp $
  7. #
  8. # Copyright 1996 by Joseph V. Moss <joe@XFree86.Org>
  9. #
  10. # See the file "LICENSE" for information regarding redistribution terms,
  11. # and for a DISCLAIMER OF ALL WARRANTIES.
  12. #
  13.  
  14. #
  15. # Routines run to end the main configuration phase (phase 2)
  16. #
  17.  
  18. proc Done_create_widgets { win } {
  19.     global pc98_EGC messages
  20.     set w [winpathprefix $win]
  21.         if !$pc98_EGC {
  22.         frame $w.done -width 640 -height 420 \
  23.             -relief ridge -borderwidth 5
  24.     } else {
  25.         frame $w.done -width 640 -height 400 \
  26.             -relief ridge -borderwidth 5
  27.     }
  28.     frame $w.done.pad -relief raised -bd 3
  29.     pack  $w.done.pad -padx 20 -pady 15 -expand yes
  30.     label $w.done.pad.text
  31.     $w.done.pad.text configure -text $messages(done.1)
  32.     pack  $w.done.pad.text -fill both -expand yes
  33.     button $w.done.pad.okay -text $messages(done.2) \
  34.         -command [list Done_nextphase $w]
  35.     pack  $w.done.pad.okay -side bottom -pady 10m
  36.     focus $w.done.pad.okay
  37. }
  38.  
  39. proc Done_activate { win } {
  40.     set w [winpathprefix $win]
  41.     pack $w.done -side top -fill both -expand yes
  42.     focus $w.done.pad.okay
  43. }
  44.  
  45. proc Done_deactivate { win } {
  46.     set w [winpathprefix $win]
  47.     pack forget $w.done
  48. }
  49.  
  50. proc Done_execute { win } {
  51.     global CfgSelection
  52.  
  53.     set w [winpathprefix $win]
  54.     set CfgSelection Done
  55.     config_select $w
  56. }
  57.  
  58. proc Done_nextphase { win } {
  59.     global StartServer XF86Setup_library env messages
  60.  
  61.     set w [winpathprefix $win]
  62.     if $StartServer {
  63.         mesg "Just a moment..." info
  64.         catch {destroy .}
  65.         catch {server_running -close $env(DISPLAY)}
  66.         save_state
  67.     } else {
  68.         destroy $w.menu $w.done $w.buttons
  69.         uplevel #0 source $XF86Setup_library/phase4.tcl
  70.     }
  71. }
  72.  
  73.