@@ 3,7 3,14 @@
(
@|about )
-@about-manifest
+@app-about
+ =&manifest
+ =void-init
+ =&on-draw
+ =void-mouse
+ =void-button
+
+&manifest
03 "Disk $1
12 00 =expand-win "Expand $1
@@ 11,13 18,6 @@
42 00 =close-win "Close $1
$1
-@app-about
- =about-manifest
- =void-init
- =&on-draw
- =void-mouse
- =void-button
-
&on-draw ( win* -- )
draw-memory
@@ 230,7 230,14 @@ JMP2r
(
@|tile )
-@tile-manifest
+@app-tile
+ =&manifest
+ =void-init
+ =&on-draw
+ =&on-mouse
+ =void-button
+
+&manifest
03 "Tile $1
12 00 =expand-win "Expand $1
@@ 256,13 263,6 @@ JMP2r
00 00 =app-tile/goto-icons "Icons $1
$1
-@app-tile
- =tile-manifest
- =void-init
- =&on-draw
- =&on-mouse
- =void-button
-
&on-draw ( win* -- )
POP2
@@ 426,21 426,21 @@ JMP2
JMP2r
(
-@|meta )
-
-@meta-manifest
-
- 01 "Meta $1
- 42 00 =close-win "Close $1
- $1
+@|metadata )
@app-meta
- =meta-manifest
+ =&manifest
=void-init
=&on-draw
=void-mouse
=void-button
+&manifest
+
+ 01 "Meta $1
+ 42 00 =close-win "Close $1
+ $1
+
&on-draw ( win* -- )
LDA2k #0038 ADD2 .Screen/x DEO2
@@ 478,9 478,14 @@ JMP2r
(
@|text )
-( window port 0e is used for storing the line offset, used in scrolling )
+@app-text
+ =&manifest
+ =&on-init
+ =&on-draw
+ =&on-mouse
+ =void-button
-@text-manifest
+&manifest
03 "Text $1
12 00 =expand-win "Expand $1
@@ 493,13 498,6 @@ JMP2r
00 08 =edit-erase "Erase $1
$1
-@app-text
- =text-manifest
- =&on-init
- =&on-draw
- =&on-mouse
- =void-button
-
&on-init ( win* -- )
STH2k ( win/name ) #0008 ADD2 LDA2
@@ 584,7 582,14 @@ BRK
(
@|pict )
-@pict-manifest
+@app-pict
+ =&manifest
+ =void-init
+ =&on-draw
+ =void-mouse
+ =void-button
+
+&manifest
03 "Picture $1
12 00 =expand-win "Expand $1
@@ 596,13 601,6 @@ BRK
20 00 =app-pict/next "Next $1
$1
-@app-pict
- =pict-manifest
- =void-init
- =&on-draw
- =void-mouse
- =void-button
-
&on-draw ( win* -- )
( no padding )
@@ 665,7 663,14 @@ JMP2
(
@|font )
-@font-manifest
+@app-font
+ =&manifest
+ =&on-init
+ =&on-draw
+ =void-mouse
+ =void-button
+
+&manifest
03 "Font $1
12 00 =expand-win "Expand $1
@@ 676,13 681,6 @@ JMP2
20 00 =app-font/next "Next $1
$1
-@app-font
- =font-manifest
- =&on-init
- =&on-draw
- =void-mouse
- =void-button
-
&on-init ( win* -- )
STH2k ( win/name ) #0008 ADD2 LDA2
@@ 756,7 754,14 @@ JMP2
(
@|play )
-@play-manifest
+@app-play
+ =&manifest
+ =void-init
+ =&on-draw
+ =&on-mouse
+ =void-button
+
+&manifest
03 "Play $1
12 00 =expand-win "Expand $1
@@ 784,13 789,6 @@ JMP2
00 "] =app-play/zoomout "Zoom 20 "Out $1
$1
-@app-play
- =play-manifest
- =void-init
- =&on-draw
- =&on-mouse
- =void-button
-
&on-draw ( win* -- )
( win/name ) #0008 ADD2 LDA2 ;make-src JSR2 .File/name DEO2
@@ 920,19 918,19 @@ JMP2r
(
@|form )
-@form-manifest
-
- 01 "Form $1
- 42 00 =close-win "Cancel $1
- $1
-
@app-form
- =form-manifest
+ =&manifest
=void-init
=&on-draw
=&on-mouse
=&on-button
+&manifest
+
+ 01 "Form $1
+ 42 00 =close-win "Cancel $1
+ $1
+
&on-draw ( win* -- )
POP2
@@ 988,19 986,19 @@ BRK
(
@|option )
-@option-manifest
-
- 01 "Option $1
- 42 00 =close-win "Cancel $1
- $1
-
@app-option
- =option-manifest
+ =&manifest
=void-init
=&on-draw
=&on-mouse
=&on-button
+&manifest
+
+ 01 "Option $1
+ 42 00 =close-win "Cancel $1
+ $1
+
&on-draw ( win* -- )
POP2
@@ 1042,19 1040,19 @@ BRK
(
@|error )
-@error-manifest
-
- 01 "Error $1
- 42 00 =close-win "Cancel $1
- $1
-
@app-error
- =error-manifest
+ =&manifest
=void-init
=&on-draw
=&on-mouse
=&on-button
+&manifest
+
+ 01 "Error $1
+ 42 00 =close-win "Cancel $1
+ $1
+
&on-draw ( win* -- )
POP2