C	MOTIFBURGER_DEFS.FOR
C	
C	INCLUDE file for MOTIFBURGER.FOR example program
C
C	Defines all constants, variables and COMMON blocks
C	used in the MOTIFBURGER example
C

C
C	Declare constants that are associated with each possible widget.
C	These values are passed along in the TAG field for callbacks and
C	are used to index into the WIDGET_ARRAY array.  They must match
C	the definitions given in MOTIFBURGER.UIL.
C
	PARAMETER
	1  CREATE_ORDER	    = 1,
	1  ORDER_PDME	    = 2,
	1  FILE_PDME	    = 3,
	1  EDIT_PDME	    = 4,
	1  NYI		    = 5,
	1  APPLY	    = 6,
	1  DISMISS	    = 7,
	1  NOAPPLY	    = 8,
	1  CANCEL_ORDER	    = 9,
	1  SUBMIT_ORDER	    = 10,
	1  ORDER_BOX	    = 11,
	1  BURGER_RARE	    = 12,
	1  BURGER_MEDIUM    = 13,
	1  BURGER_WELL	    = 14,
	1  BURGER_KETCHUP   = 15,
	1  BURGER_MUSTARD   = 16,
	1  BURGER_ONION	    = 17,
	1  BURGER_MAYO	    = 18,
	1  BURGER_PICKLE    = 19
	PARAMETER
	1  BURGER_QUANTITY  = 20,
	1  FRIES_TINY	    = 21,
	1  FRIES_SMALL	    = 22,
	1  FRIES_MEDIUM	    = 23,
	1  FRIES_LARGE	    = 24,
	1  FRIES_HUGE	    = 25,
	1  FRIES_QUANTITY   = 26,
	1  DRINK_LIST	    = 27,
	1  DRINK_ADD	    = 28,
	1  DRINK_SUB	    = 29,
	1  DRINK_QUANTITY   = 30,
	1  TOTAL_ORDER	    = 31,
	1  BURGER_LABEL	    = 32,
	1  FRIES_LABEL	    = 33,
	1  DRINK_LABEL	    = 34,
	1  MENU_BAR	    = 35,
	1  FILE_MENU	    = 36,
	1  EDIT_MENU	    = 37,
	1  ORDER_MENU	    = 38
	PARAMETER
	1  MIN_WIDGET_NAME  = CREATE_ORDER,
	1  MAX_WIDGET_NAME  = ORDER_MENU

C
C	Define array of widgets indexed by above widget name values
C	Type: WIDGET
C
	INTEGER*4 WIDGET_ARRAY(MIN_WIDGET_NAME:MAX_WIDGET_NAME)

C
C	Define range of widgets which are toggles
C
	PARAMETER
	1  MIN_TOGGLE = BURGER_RARE,
	1  MAX_TOGGLE = BURGER_PICKLE

C
C	Define array in which we will keep track of the state of the
C	toggles
C
	LOGICAL*4 TOGGLE_ARRAY(MIN_TOGGLE:MAX_TOGGLE)

C
C	Define indexes for food names we will need to keep around
C
	PARAMETER
	1  BURGERS	    = 1,
	1  FRIES	    = 2,
	1  DRINKS	    = 3,
	1  MIN_FOOD_NAME    = BURGERS,
	1  MAX_FOOD_NAME    = DRINKS

C
C	Define array of compound strings to hold current food names
C
	INTEGER*4 NAMES(MIN_FOOD_NAME:MAX_FOOD_NAME)

C
C	Define compound strings to hold names of currently selected
C	drink and fries size
C
	INTEGER*4 CURRENT_DRINK, CURRENT_FRIES

C
C	Define array to hold current food quantities.  Note that we don't
C	actually use QUANTITIES(FRIES) but rather read the value from
C	the text widget when necessary.
C
	INTEGER*4 QUANTITIES(MIN_FOOD_NAME:MAX_FOOD_NAME)

C
C	Define root widget ID of our application
C	Type: WIDGET
C
	INTEGER*4 TOPLEVEL_WIDGET

C
C	Define root widget ID of our DRM hierarchy
C	Type: WIDGET
C
	INTEGER*4 MAIN_WINDOW_WIDGET

C
C	Define MRM hierarchy ID
C	
	INTEGER*4 MRM_HIERARCHY

C
C	Define compound strings to hold commonly used strings
C
	INTEGER*4 LATIN_CREATE	    ! 'Create Order Box...'
	INTEGER*4 LATIN_DISMISS	    ! 'Dismiss Order Box...'
	INTEGER*4 LATIN_SPACE	    ! ' '
	INTEGER*4 LATIN_ZERO	    ! ' 0 '

C
C	Define COMMON block that holds all our global state
C
	COMMON /MOTIFBURGER_COMMON/
	1   WIDGET_ARRAY,TOGGLE_ARRAY,NAMES,CURRENT_DRINK,CURRENT_FRIES,
	1   QUANTITIES,TOPLEVEL_WIDGET,MAIN_WINDOW_WIDGET,
	1   MRM_HIERARCHY,LATIN_CREATE,LATIN_DISMISS,LATIN_SPACE,
	1   LATIN_ZERO



C
C	End of DECBURGER_DEFS.FOR
C