| #!/usr/bin/wish | |
| ############################################################################# | |
| # Visual Tcl v1.07 Project | |
| # | |
| ################################# | |
| # GLOBAL VARIABLES | |
| # | |
| global widget; | |
| ################################# | |
| proc TkW:message {message} { | |
| global OK MSG_title WAIT TKW | |
| set base .msg | |
| if {[winfo exists .msg]} { | |
| wm deiconify .msg; return | |
| } | |
| ################### | |
| # CREATING WIDGETS | |
| ################### | |
| toplevel .msg -class Toplevel \ | |
| -background #ffffff | |
| #-background #4c92fe | |
| wm focusmodel .msg passive | |
| wm maxsize .msg 1265 994 | |
| wm minsize .msg 200 1 | |
| wm overrideredirect .msg 0 | |
| wm resizable .msg 1 1 | |
| wm deiconify .msg | |
| wm geometry .msg +100+100 | |
| wm title .msg $MSG_title | |
| #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm | |
| #wm iconmask .msg @$TKW/shared/images/setupmask2.xbm | |
| #creates the message widget: | |
| message .msg.msg -justify center -text $message -background #dddddd -aspect 300 | |
| button .msg.but18 \ | |
| -background #dddddd \ | |
| -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \ | |
| -pady 3 -text button -textvariable $OK -width 8\ | |
| -command { | |
| destroy .msg | |
| set WAIT done | |
| } | |
| ################### | |
| # SETTING GEOMETRY | |
| ################### | |
| #set H2 [expr $H +10] | |
| pack .msg.msg -padx 5 -pady 5 | |
| #-anchor nw -bordermode ignore | |
| pack .msg.but18 -side bottom -padx 5 -pady 5 | |
| #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore | |
| #pack .msg.lab19 -width 50 -height 30 -padx 10 -pady 10 | |
| #pack .msg.but18 | |
| } |