S
Svenn Are Bjerkem
Guest
Hi,
I am currently trying to implement my Ocean menu item in the CIW window
and have a problem because I need to create unique references for the
menu items. A non-working skeleton is shown below to illustrate what I
want. (Actually I want to traverse a directory structure and look for
ocn suffixes, but that is for later). I somehow have to make the
oceanMenuItem below unique. In Tcl I would have done it like this
for {set i 0} {$i < $arg1} {incr i} {
set oceanMenuItem$i [hiCreateMenuItem \$oceanMenuItem$i ....
}
just to illustrate what my problem is. I need to automatically make
variable names, and that is something which I do not understand how to
do with SKILL yet.
(defun SABfillMenu (arg1)
(for i 0 arg1
(setq oceanMenuItem (hiCreateMenuItem
?name 'oceanMenuItem
?itemText "MenuItem"
?callback "printf(\"MenuItem\")"))
(hiAddMenuItem sabOceanMenu oceanMenuItem)))
--
Svenn
I am currently trying to implement my Ocean menu item in the CIW window
and have a problem because I need to create unique references for the
menu items. A non-working skeleton is shown below to illustrate what I
want. (Actually I want to traverse a directory structure and look for
ocn suffixes, but that is for later). I somehow have to make the
oceanMenuItem below unique. In Tcl I would have done it like this
for {set i 0} {$i < $arg1} {incr i} {
set oceanMenuItem$i [hiCreateMenuItem \$oceanMenuItem$i ....
}
just to illustrate what my problem is. I need to automatically make
variable names, and that is something which I do not understand how to
do with SKILL yet.
(defun SABfillMenu (arg1)
(for i 0 arg1
(setq oceanMenuItem (hiCreateMenuItem
?name 'oceanMenuItem
?itemText "MenuItem"
?callback "printf(\"MenuItem\")"))
(hiAddMenuItem sabOceanMenu oceanMenuItem)))
--
Svenn