********************************************************
* Demo program data section                            *
********************************************************

RAM            DATA

QuitFlg        DC  i'0000'              program termination flag
MyID           dc  i'0'                 program ID word
ItemHit        dc  i4'0'
MyTemp         dc  i4'0'
QuitParms      dc  i4'0'
               dc  i4'0'
               dc  i4'0'

ToolTable      dc  i'8'
               dc  i'4,$0100'
               dc  i'5,$0100'
               dc  i'6,$0100'
               dc  i'14,$0100'
               dc  i'15,$0100'
               dc  i'16,$0100'
               dc  i'20,$0100'
               dc  i'21,$0100'
               dc  i'22,$0100'
               dc  i'23,$0100'

Event          ANop
EventWhat      ds  2
EventMessage   ds  4
EventWhen      ds  4
EventWhere     ds  4
EventModifiers ds  2
TaskData       ds  4
TaskMore       DC  i4'$00001fff'

AppleMenu      dc  c'> @\XN1',i1'13'
               dc  c'  About this demo...\VN256',i1'13'

FileMenu       dc  c'>   File  \N2',i1'13'
               dc  c'  Quit\N257',i1'13'

DemoMenu       dc  c'>   Demo  \N3',i1'13'
               dc  c'  WindowMgr Demo\N258',i1'13'
               dc  c'  Dialog Demo\N259',i1'13'

MenuMenu       dc  c'>   Menu Demo\N4',i1'13'
               dc  c'  Disable Test Item\N260',i1'13'
               dc  c'  Mark Test Item\N261',i1'13'
               dc  c'  Normal Test Item\VN262',i1'13'
               dc  c'  Test Item\N263',i1'13'

               dc  c'.'

; Window data
Wind1Title     dc  i1'11',c'Window Demo',i1'0'
Wind1Parm      dc  I'Wind1End-Wind1Parm'       length of parm list
               dc  i'%1101110110000100'        frame word
               dc  i4'Wind1Title'              Title of this window
               dc  i4'0'                       Application RefCon
               dc  i'0,0,0,0'                  size when zoomed
               dc  i4'0'                       Color Table
               dc  i'0,0'                      x and y origin
               dc  i'512,512'                  data heighth and width
               dc  i'0,0'                      max content height and width
               dc  i'2,2'                      nuber of pixels to scroll
               dc  i'50,50'                    page horiz and vert
               dc  i4'0'                       Info RefCon
               dc  i'0'                        InfoBar height
               dc  i4'0'                       wdef proc
               dc  i4'0'                       InfoBar DefProc
               dc  i4'Wind1UpDate'             Content DefProc
               dc  i'50,50,180,180'            starting rect
               dc  i4'-1'                      window plane
               dc  i4'0'                       memory pointer
Wind1End       ANop

********************************************************
* About this program Dialog Template with data         *
********************************************************

MyModal        ANop
MMRect         dc  i'30,30,100,600'
MMVis          dc  i'0001'
MMRefCon       dc  i4'0'
MMItem1        dc  i4'MyButton'
MMItem2        dc  i4'MyLongStat'
MMTerm         dc  i4'0000'

MyButton       ANop
MBID           dc  i'1'
MBRect         dc  i'45,480,65,528'
MBType         dc  i'10'                Button Item
MBDescr        dc  i4'MBTitle'
MBValue        dc  i'0'
MBFlag         dc  i'0'
MBColor        dc  i4'0'
MBTitle        dc  i1'2',c'OK',i1'0'

MyLongStat     ANop
MLSID          dc  i'1001'
MLSRect        dc  i'10,10,40,520'
MLSType        dc  i'16+$8000'          LongStsttext+ItemDisable
MLSDescr       dc  i4'MLSData'
MLSValue       dc  i'MLSDataEnd-MLSData'
MLSFlag        dc  i'0'
MLSColor       dc  i4'0'
MLSData        dc  c'Apple II GS Demo Program By:',h'0d'
               DC  c'Jim Mensch {Special thanx to Steve and Eagle}',h'0D'
               dc  c'Version 1.0 Sept 30, 1986',h'0D'
MLSDataEnd     Anop

               END


;        These values are returned by FindWindow and TaskMaster.  They
;        describe locations and results to be acted on

in_loc    DATA


; --- These are Event Codes returned by the Event Manager, ----------
; --- which may be processed by TaskMaster                 ----------

inNull     equ $00                      No further action required.
inButtDwn  equ $01                      Button down event.
inButtUp   equ $02                      Button up event.
inKey      equ $03                      Key event.
;              $04                      (Not defined.)
inAutoKey  equ $05                      Auto-Key event.
inUpdate   equ $06                      Update event.
;              $07                      (Not defined.)
inActWind  equ $08                      Activate window event.
inSwitch   equ $09                      Switch event.
inAccess   equ $0A                      Desk Accessory event.
inDevice   equ $0B                      Device driver event.
;              $0C                      Application defined.
;              $0D                      Application defined.
;              $0E                      Application defined.
;              $0F                      Application defined.


; --- These are values returned by FindWindow and TaskMaster,    ------
; --- and may mean different things depending on who returns it. ------
;
inDesk     equ $10                      On the desktop.
inSysMenu  equ $11                      In system menu bar
inSysWind  equ $12                      In system window (desk accessory).
inContent  equ $13                      In a content region.
inDrag     equ $14                      In a drag region.
inGrow     equ $15                      In a grow (size) region.
inGoAway   equ $16                      In a go-away (close box) region.
inZoom     equ $17                      In a zoom (zoom box) region.
inInfo     equ $18                      In the information bar.
inVerScrl  equ $19                      In the vertical scroll bar.
inHorScrl  equ $1A                      In the horizontal scroll bar.
inFrame    equ $1B                      On a window frame, other than above.
inDrop     equ $1C                      On a window drop shadow.
;
;
               END

DlgEqu         DATA
ButtonItem     equ  10
CheckItem      equ  11
RadioItem      equ  12
ScrollBarItem  equ  13
UserCtlItem    equ  14
StatText       equ  15
LongStatText   equ  16
EditLine       equ  17
IconItem       equ  18
PicItem        equ  19
UserItem       equ  20
ItemDisable    equ  $8000
               END

DialogData     DATA
; Dialog Demo Data area
resolution ds    2


screen     dc    i'0,0,200,640'      Starting screen coordinates.
wind_pos   dc    i'30,0,100,200'

title_button   dc  i1'2',c'OK',i1'13'
title_check    dc  i1'9',c'Check Box',i1'0'
title1_radio   dc  i1'9',c'Radio one',i1'0'
title2_radio   dc  i1'9',c'Radio two'
Stat1          dc  i1'19'
               dc  c'Dialog Box Example',h'0D'
Stat2          dc  i1'17'
               dc  c'Static Text Item',h'0D'

rect_dialog  dc  i'50,50,150,450'
rect_button  dc  i'75,340,95,395'
rect_check   dc  i'45,210,61,440'
rect1_radio  dc  i'45,10,61,200'
rect2_radio  dc  i'65,10,81,200'
rect1_stattext dc i'5,5,25,230'
rect2_stattext dc i'25,5,45,230'


               END