home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_tkcvs.idb / usr / freeware / lib / tkcvs / update.tcl.z / update.tcl
Encoding:
Text File  |  1999-04-16  |  1.3 KB  |  60 lines
  1. #
  2. # Tcl Library for tkCVS
  3. #
  4.  
  5. # 
  6. # $Id: update.tcl,v 1.5 1995/08/19 11:47:32 del Exp $
  7. #
  8. # Set up a small update dialog.
  9. #
  10.  
  11. proc update_setup {} {
  12.  
  13.   toplevel .update
  14.   frame .update.left
  15.   frame .update.right
  16.   frame .update.down -relief groove -border 2
  17.  
  18.   pack .update.down -side bottom -fill x
  19.   pack .update.left -side left -fill y
  20.   pack .update.right -side left -fill both -expand 1
  21.  
  22.   label .update.lname -text "Tag Name" -anchor w
  23.  
  24.   entry .update.tname -relief sunken -textvariable updatename
  25.  
  26.   # bind_motifentry .update.tname
  27.  
  28.   pack .update.lname -in .update.left \
  29.     -side top -fill x -pady 3
  30.  
  31.   pack .update.tname -in .update.right \
  32.     -side top -fill x -pady 3
  33.  
  34.   button .update.ok -text "OK" \
  35.     -command {
  36.       eval "cvs_update $updatename [workdir_list_marked_files]"
  37.       wm withdraw .update
  38.     }
  39.   button .update.quit -text "Quit" -command { wm withdraw .update }
  40.  
  41.   pack .update.ok .update.quit -in .update.down -side left \
  42.     -ipadx 2 -ipady 2 -padx 4 -pady 4 -fill both -expand 1
  43.  
  44.   wm withdraw .update
  45.   wm title .update "Update a Module"
  46.   wm minsize .update 1 1
  47. }
  48.  
  49. proc update_run {} {
  50.   global incvs
  51.   global cvscfg
  52.  
  53.   if {! $incvs} {
  54.     cvserror "This directory is not in CVS.\nPlease import it first."
  55.     return 1
  56.   }
  57.  
  58.   wm deiconify .update
  59. }
  60.