mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-18 12:29:32 +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
|