mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 20:34:07 +00:00
103 lines
6.5 KiB
Plaintext
103 lines
6.5 KiB
Plaintext
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
|