home *** CD-ROM | disk | FTP | other *** search
/ Dream 46 / Amiga_Dream_46.iso / Linux / Magazine / Tcltk / dialogs.tcl < prev    next >
Text File  |  1997-11-13  |  1KB  |  37 lines
  1.  
  2. # commande "a propos"
  3.  
  4. proc AboutCommand {} {
  5.  
  6.     # interface de la boite de dialog "a propos"    
  7.  
  8.     toplevel .aboutdlg
  9.  
  10.     wm geometry .aboutdlg 230x200
  11.  
  12.     wm title .aboutdlg "About Tkcalc..."
  13.  
  14.     frame .aboutdlg.frame1 -bd 2 -relief sunken
  15.  
  16.     message .aboutdlg.frame1.title -justify center -text "Tkcalc 0.7"  -width 200
  17.  
  18.     frame .aboutdlg.frame2 -bd 2 -relief groove
  19.  
  20.     message .aboutdlg.frame2.copyright -text "(C) 1997, Fred Pesch.\nDistributed under the Gnu General Public Licence" -relief sunken -width 200
  21.  
  22.     button .aboutdlg.frame2.okbtn -text "Ok" -command AboutOkCommand
  23.  
  24.     # affichage
  25.  
  26.     pack .aboutdlg.frame1 -side top -expand true -padx 20 -pady 4
  27.     pack .aboutdlg.frame1.title -ipadx 20 -ipady 14
  28.  
  29.     pack .aboutdlg.frame2 -side bottom -expand true -fill x -padx 20 -pady 4
  30.     pack .aboutdlg.frame2.copyright -side top -expand true -fill x
  31.     pack .aboutdlg.frame2.okbtn -side bottom
  32. }
  33.  
  34. proc AboutOkCommand {} {
  35.     
  36.     destroy .aboutdlg
  37. }