Return to dialog CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/dialog, revision 1.1.1.1

1.1       root        1: #!/usr/local/bin/wish -f
                      2: #
                      3: # This script generates a sample dialog box that waits for one of three
                      4: # buttons to be pressed, then prints a message and exits.
                      5: 
                      6: # Create two frames in the main window. The top frame will hold the
                      7: # message and the bottom one will hold the buttons.  Arrange them
                      8: # on above the other, with any extra vertical space split between
                      9: # them.
                     10: 
                     11: frame .top -relief raised -border 1
                     12: frame .bot -relief raised -border 1
                     13: pack append . .top {top fill expand} .bot {top fill expand}
                     14: 
                     15: # Create the message widget and arrange for it to be centered in the
                     16: # top frame.
                     17: 
                     18: message .top.msg -text "File main.c hasn't been saved to disk since \
                     19: it was last modified.  What should I do?" -justify center \
                     20: -font -Adobe-helvetica-medium-r-normal--*-240* -aspect 200
                     21: pack append .top .top.msg {top padx 5 pady 5 expand}
                     22: 
                     23: # Create the buttons and arrange them from left to right in the bottom
                     24: # frame.  Embed the left button in an additional sunken frame to indicate
                     25: # that it is the default button.
                     26: 
                     27: frame .bot.left -relief sunken -border 1
                     28: pack append .bot .bot.left {left expand padx 20 pady 20}
                     29: button .bot.left.button -text "Save File" -command "quit save"
                     30: pack append .bot.left .bot.left.button {expand padx 12 pady 12}
                     31: button .bot.middle -text "Quit Anyway" -command "quit quit"
                     32: pack append .bot .bot.middle {left expand padx 20}
                     33: button .bot.right -text "Return To Editor" -command "quit return"
                     34: pack append .bot .bot.right {left expand padx 20}
                     35: 
                     36: # The procedure below is invoked as the action for each of the buttons.
                     37: # It prints a message and exits by destroying the application's main
                     38: # window.
                     39: 
                     40: proc quit button {
                     41:     puts stdout "You pressed the \"$button\" button;  bye-bye!"
                     42:     destroy .
                     43: }
                     44: 
                     45: bind .top <Enter> {.bot.left.button activate}
                     46: bind .top.msg <Enter> {.bot.left.button activate}
                     47: bind .bot <Enter> {.bot.left.button activate}
                     48: bind .top <Leave> {.bot.left.button deactivate}
                     49: bind .top.msg <Leave> {.bot.left.button deactivate}
                     50: bind .bot <Leave> {.bot.left.button deactivate}
                     51: bind . <1> {.bot.left.button config -relief sunken}
                     52: bind . <ButtonRelease-1> {quit save}
                     53: focus .
                     54: bind . <Return> {quit save}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.