13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
-
+
|
# ::tcl::tm::path add <path-to-dir-with-module>
# package require psmenu
# psmenu::psmenu . {
# definitions...
# }
#----------------------------------------------------------------------
package provide psmenu 1.0
package provide psmenu 1.1
namespace eval psmenu {
namespace export psmenu
}
set psmenu::example {
# All definition blocks are lists.
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
-
+
+
|
psmenu::psmenu . {
"&Debug" {
"Reread &Source" -acc F1 -cmd _rs
}
}
}
# Main call for psmenu. Optional arguments are for internal use.
# Main call for psmenu. Some optional arguments are for internal use.
# Canbe called with an existing menu, but then -top must be given.
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) ""
|