81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
-
+
+
+
|
}
}
##nagelfar syntax psmenu::PopEntry v
##nagelfar syntax tk::AmpMenuArgs x*
# Main call for psmenu. Some optional arguments are for internal use.
# Canbe called with an existing menu, but then -top must be given.
# Can be called with an existing menu, but then -top must be given.
##nagelfar syntax psmenu::psmenu x p* x
##nagelfar ignore does not match
proc psmenu::psmenu {top args} {
set def [lindex $args end]
set args [lrange $args 0 end-1]
set opts(-top) ""
set opts(-level) ""
set opts(-level) ""
|