class TK_MENU < $TK_WIDGET |
---|
**** | a simplified version of Tk menus |
$TK_WIDGET |
act_on(id: INT, args: ARRAY{STR}) |
---|
**** | ignore args |
cascade(label: STR): SAME |
---|
**** | returns empty submenu |
command(label: STR, command: ROUT) |
---|
command(label: STR, command: ROUT): SAME |
---|
create(parent: $TK_WIDGET): SAME |
---|
**** | Use default packing and name |
create(parent: $TK_WIDGET,np: STR): SAME |
---|
**** | Use default packing and name |
create(parent:$TK_WIDGET,np:STR,cf: TK_MENU_CFG): SAME |
---|
create(parent: $TK_WIDGET,cf: TK_MENU_CFG): SAME |
---|
disable(index: INT) |
---|
enable(index: INT) |
---|
index_active: INT |
---|
index_at(y: FLT): INT |
---|
index_end: INT |
---|
parent_menu: SAME |
---|
**** | give the parent menu [of course, only if it is one] otherwise we get a runtime error |
separator |
---|
separator: SAME |
---|