Create a button then have it run the following proc.
This is a nice popup menu.
Hope this helps.
Ralph
proc sp_log { } {
global B1BIND B2BIND B3BIND
global DEFAULTBIND
if {[winfo exists .popup]} { destroy .popup }
menu .popup -font 7x14 -bg cadetblue -fg white -relief raised
.popup add separator
.popup add command -label "Quit This Menu!" \
-command { destroy .popup }
.popup add separator
.popup add command -label "Screen Tools" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
bm_screen_tools }
.popup add separator
.popup add command -label "Selected Directory List" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
bhome
}
.popup add separator
.popup add command -label "Todays P2K Log File" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
sp_p2k_logdirdf
}
.popup add separator
.popup add command -label "Todays P2k Hourly Log File (This File May Not
Exist!)" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
sp_p2k_logdirhf
}
.popup add separator
.popup add command -label "\$P2K_LOGDIR" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
sp_p2k_logdir }
.popup add separator
.popup add command -label "\$P2KLOGS" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
sp_p2klogs }
.popup add separator
.popup add command -label "\$GEN_P2KVOICEDATA" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
sp_gendatadir }
.popup add separator
.popup add command -label "CHANGE BUTTON-1 BIND!" \
-command { destroy .popup
if { $B1BIND == "AUTO" } {
$DEFAULTBIND
}
select_bind }
tk_popup .popup 250 150
}
mr <[EMAIL PROTECTED]> on 05/22/2000 11:42:51 PM
Please respond to [EMAIL PROTECTED]
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
cc: (bcc: Ralph McCord/CIMG/CVG)
Subject: [vtcl-user] RE: How to implement the Option Menu?
Question:
How do I implement an Option Menu in vtcl?
I noticed it is not on the "toolbar", so how do I add one to a frame?
Do I just have to add it in the source with tk_optionMenu?
Thanks in advance for reading this,
mrenner
_______________________________________________
vtcl-user mailing list
[EMAIL PROTECTED]
http://lists.sourceforge.net/mailman/listinfo/vtcl-user
_______________________________________________
vtcl-user mailing list
[EMAIL PROTECTED]
http://lists.sourceforge.net/mailman/listinfo/vtcl-user
