| class PIZZA_MAIN |
|---|
| GUI_UTIL |
| shared extras: TK_ENTRY; |
|---|
| **** | Area to enter extra requests. |
| shared price: TK_LABEL; |
|---|
| **** | Area to display the price. |
| shared size: TK_VAR; |
|---|
| **** | TK variable containing the size of the pizza. |
| shared toppingboxes: SET{TOPPING}; |
|---|
| **** | List of all toppings. |
| shared extras: TK_ENTRY; |
|---|
| **** | Area to enter extra requests. |
| shared price: TK_LABEL; |
|---|
| **** | Area to display the price. |
| shared size: TK_VAR; |
|---|
| **** | TK variable containing the size of the pizza. |
| shared toppingboxes: SET{TOPPING}; |
|---|
| **** | List of all toppings. |
| compute_price |
|---|
| **** | Will be called whenever something happens which changes the value of the pizza and computes the new price. |
| compute_price(e:TK_EVENT_INFO) |
|---|
| **** | A hook for 'compute_price' without argument. |
| init |
|---|
| **** | The main program of this application. Sets up display. |
| select_pizza(newpizza:INT) |
|---|
| **** | When a speical is selected, this function changes the topping buttons to match the recipe. |
| select_pizza(e:TK_EVENT_INFO) |
|---|
| **** | Routine being called when Mouse is pressed in the list of pizza specials. Looks whether there is a selection (there shouldn't be more than one -- as the list is a browse list) and selects the toppings of this pizza. |
| unselect_all |
|---|
| **** | Turns all topping buttons off. |
| init_toppings(toppings:SET{STR}) |
|---|
| **** | Puts the set of toppings vertically alphabetically (4 columns) into the toppingframe. |
| shared pizzalist: TK_LISTBOX; |
|---|
| **** | Listbox with specials. |
| shared pizzalist: TK_LISTBOX; |
|---|
| **** | Listbox with specials. |
| shared toppingframe: TK_FRAME; |
|---|
| **** | Master frame for list of toppings. |
| shared toppingframe: TK_FRAME; |
|---|
| **** | Master frame for list of toppings. |