class TOPPING < $TK_WIDGET

****	Toppings are mainly buttons on which van click to select that topping for your pizza. They also store the name of the topping the the value factor.

---

Flattened version is here

---

Ancestors

$TK_WIDGET

---

Public

Readable Attributes

attr name: STR;

Features

create(frame:$TK_WIDGET,n:STR,updfunc:ROUT): SAME

****	Creates a new topping button in the frame 'frame'. 'n' is the name of the topping. 'updfunc' will be called when the button is pressed.

is_selected: BOOL

****	Returns true if button is selected.

price: FLT

****	Returns the price for this topping on the current pizza.

---

Private

attr name: STR;

attr var: TK_VAR;

attr var: TK_VAR;

---

The Sather Home Page

---