mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-26 02:49:18 +00:00
85 lines
3.0 KiB
PHP
85 lines
3.0 KiB
PHP
;;; ============================================================
|
|
;;; Re-used param space for events/queries
|
|
|
|
pencopy := $D200
|
|
penOR := $D201
|
|
penXOR := $D202
|
|
penBIC := $D203
|
|
notpencopy := $D204
|
|
notpenOR := $D205
|
|
notpenXOR := $D206
|
|
notpenBIC := $D207
|
|
|
|
|
|
event_params := $D208
|
|
event_kind := event_params + 0
|
|
;; if kind is key_down
|
|
event_key := event_params + 1
|
|
event_modifiers := event_params + 2
|
|
;; if kind is no_event, button_down/up, drag, or apple_key:
|
|
event_coords := event_params + 1
|
|
event_xcoord := event_params + 1
|
|
event_ycoord := event_params + 3
|
|
;; if kind is update:
|
|
event_window_id := event_params + 1
|
|
|
|
screentowindow_params := event_params
|
|
screentowindow_window_id := screentowindow_params + 0
|
|
screentowindow_screenx := screentowindow_params + 1
|
|
screentowindow_screeny := screentowindow_params + 3
|
|
screentowindow_windowx := screentowindow_params + 5
|
|
screentowindow_windowy := screentowindow_params + 7
|
|
.assert screentowindow_screenx = event_xcoord, error, "param mismatch"
|
|
.assert screentowindow_screeny = event_ycoord, error, "param mismatch"
|
|
|
|
findwindow_params := event_params + 1 ; offset to x/y overlap event_params x/y
|
|
findwindow_mousex := findwindow_params + 0
|
|
findwindow_mousey := findwindow_params + 2
|
|
findwindow_which_area := findwindow_params + 4
|
|
findwindow_window_id := findwindow_params + 5
|
|
.assert findwindow_mousex = event_xcoord, error, "param mismatch"
|
|
.assert findwindow_mousey = event_ycoord, error, "param mismatch"
|
|
|
|
findcontrol_params := event_params + 1 ; offset to x/y overlap event_params x/y
|
|
findcontrol_mousex := findcontrol_params + 0
|
|
findcontrol_mousey := findcontrol_params + 2
|
|
findcontrol_which_ctl := findcontrol_params + 4
|
|
findcontrol_which_part := findcontrol_params + 5
|
|
.assert findcontrol_mousex = event_xcoord, error, "param mismatch"
|
|
.assert findcontrol_mousey = event_ycoord, error, "param mismatch"
|
|
|
|
activatectl_params := event_params
|
|
activatectl_which_ctl := activatectl_params
|
|
activatectl_activate := activatectl_params + 1
|
|
|
|
trackthumb_params := event_params
|
|
trackthumb_which_ctl := trackthumb_params
|
|
trackthumb_mousex := trackthumb_params + 1
|
|
trackthumb_mousey := trackthumb_params + 3
|
|
trackthumb_thumbpos := trackthumb_params + 5
|
|
trackthumb_thumbmoved := trackthumb_params + 6
|
|
.assert trackthumb_mousex = event_xcoord, error, "param mismatch"
|
|
.assert trackthumb_mousey = event_ycoord, error, "param mismatch"
|
|
|
|
updatethumb_params := event_params
|
|
updatethumb_which_ctl := updatethumb_params
|
|
updatethumb_thumbpos := updatethumb_params + 1
|
|
updatethumb_stash := updatethumb_params + 5 ; not part of struct
|
|
|
|
;;; ============================================================
|
|
;;; Resources
|
|
|
|
winfo_alert_dialog := $D57D
|
|
winfo_entrydlg := $D5B7
|
|
winfo_entrydlg_file_picker := $D5F1
|
|
winfo_entry_picker := $D665
|
|
|
|
path_buf0 := $D402
|
|
path_buf1 := $D443
|
|
path_buf2 := $D484
|
|
|
|
grafport3 := $D239
|
|
|
|
dialog_rect1 := $DA9E
|
|
dialog_rect2 := $DAAA
|