Screen 0 not modified 0 bp 19Jul86 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Screen 1 not modified 0 \ gem definition macros 30oct86we 1 2 Onlyforth 3 4 here 5 $600 hallot heap dp ! 6 7 : #def Constant immediate Does> @ 8 state @ IF [compile] Literal THEN ; 9 10 : #defs ( start no. -- ) 11 bounds ?DO I #def LOOP ; 12 13 1 3 +thru 14 dp ! 15 Screen 2 not modified 0 \ window parts and messages bp 19Jul86 1 2 \ ---- Window attributes for WIND_CREATE ---------------- 3 $01 #def :name $02 #def :close 4 $04 #def :full $08 #def :move 5 $10 #def :info $20 #def :size 6 $40 #def :uparrow $80 #def :dnarrow 7 $100 #def :vslide $200 #def :lfarrow 8 $400 #def :rtarrow $800 #def :hslide 9 10 \ ------ window attribute inquire flags for WIND_GET ------ 11 1 &17 #defs :wf_kind :wf_name 12 :wf_info :wf_workxywh :wf_currxywh :wf_prevxywh 13 :wf_fullxywh :wf_hslide :wf_vslide :wf_top 14 :wf_firstxywh :wf_nextxywh :wf_resvd :wf_newdesk 15 :wf_hslize :wf_vslize :wf_screen Screen 3 not modified 0 \ messages and events bp 19Jul86 1 2 \ ----- WIND_CALC flags -------------------------------- 3 0 #def wc_border: 1 #def wc_work: 4 5 \ ------- Messages, send by Message event : -------------- 6 &10 #def :mn_selected 7 8 &20 &10 #defs 9 :wm_redraw :wm_topped :wm_closed :wm_fulled 10 :wm_arrowed :wm_hslid :wm_vslid :wm_sized 11 :wm_moved :wm_newtop 12 13 14 15 Screen 4 not modified 0 \ misc. bp 19Jul86 1 2 \ --------- MULTI_EVENT flags ------------------------- 3 $01 #def :mu_keybd $02 #def :mu_button 4 $04 #def :mu_m1 $08 #def :mu_m2 5 $10 #def :mu_mesag $20 #def :mu_timer 6 7 \ --------- Form Manager definitions ------------------- 8 0 4 #defs 9 :fmd_start :fmd_grow :fmd_shrink :fmd_finish 10 11 \ --------- Mouse forms -------------------------------- 12 0 8 #defs 13 :arrow :text_crsr :honey_bee :point_hand 14 :flat_hand :thin_cross :thick_cross :outln_cross 15 &255 3 #defs :user_def :m_off :m_on Screen 5 not modified 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15