mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +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 \ misc. bp 19Jul86 \ --------- MULTI_EVENT flags ------------------------- $01 #def :mu_keybd $02 #def :mu_button $04 #def :mu_m1 $08 #def :mu_m2 $10 #def :mu_mesag $20 #def :mu_timer \ --------- Form Manager definitions ------------------- 0 4 #defs :fmd_start :fmd_grow :fmd_shrink :fmd_finish \ --------- Mouse forms -------------------------------- 0 8 #defs :arrow :text_crsr :honey_bee :point_hand :flat_hand :thin_cross :thick_cross :outln_cross &255 3 #defs :user_def :m_off :m_on |