mirror of
https://github.com/forth-ev/VolksForth.git
synced 2025-01-10 05:29:55 +00:00
1 line
6.0 KiB
Plaintext
1 line
6.0 KiB
Plaintext
|
bp 19Jul86 \ gem definition macros 30oct86we Onlyforth here $600 hallot heap dp ! : #def Constant immediate Does> @ state @ IF [compile] Literal THEN ; : #defs ( start no. -- ) bounds ?DO I #def LOOP ; 1 3 +thru dp ! \ window parts and messages bp 19Jul86 \ ---- Window attributes for WIND_CREATE ---------------- $01 #def :name $02 #def :close $04 #def :full $08 #def :move $10 #def :info $20 #def :size $40 #def :uparrow $80 #def :dnarrow $100 #def :vslide $200 #def :lfarrow $400 #def :rtarrow $800 #def :hslide \ ------ window attribute inquire flags for WIND_GET ------ 1 &17 #defs :wf_kind :wf_name :wf_info :wf_workxywh :wf_currxywh :wf_prevxywh :wf_fullxywh :wf_hslide :wf_vslide :wf_top :wf_firstxywh :wf_nextxywh :wf_resvd :wf_newdesk :wf_hslize :wf_vslize :wf_screen \ messages and events bp 19Jul86 \ ----- WIND_CALC flags -------------------------------- 0 #def wc_border: 1 #def wc_work: \ ------- Messages, send by Message event : -------------- &10 #def :mn_selected &20 &10 #defs :wm_redraw :wm_topped :wm_closed :wm_fulled :wm_arrowed :wm_hslid :wm_vslid :wm_sized :wm_moved :wm_newtop
|