class TK_MENU < $TK_WIDGET

****	a simplified version of Tk menus

---

Flattened version is here

---

Ancestors

$TK_WIDGET

---

Public

Features

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

---

Private

attr commands: LIST{ROUT};

attr commands: LIST{ROUT};

default_config: TK_MENU_CFG

default_init(c: TK_MENU_CFG)

index(s: STR): INT

state_config(index: INT, state: STR)

const tk_widget_type: STR := "menu";

---

The Sather Home Page

---