M src/apps.tal => src/apps.tal +28 -0
@@ 330,6 330,34 @@ JMP2r
JMP2r
(
+@|hexa )
+
+@info-manifest
+
+ 01 "Option $1
+ 42 00 =close-win "Cancel $1
+ $1
+
+@app-info
+ =info-manifest
+ =void-init
+ =&on-draw
+ =void-mouse
+ =void-button
+
+&on-draw ( win* -- )
+
+ #0008 ADD2 LDA2 ;pstr JSR2
+
+ ( POP2
+ [ LIT2 &target $2 ] ;draw-line JSR2
+ ;draw-lb JSR2
+ .Screen/x DEI2k #0030 ADD2 ROT DEO2
+ [ LIT2 &action $2 ] #08 ;draw-button JSR2 )
+
+JMP2r
+
+(
@|text )
( window port 0e is used for storing the line offset, used in scrolling )
M src/desktop.tal => src/desktop.tal +1 -1
@@ 367,7 367,7 @@ JMP2r
@open-as-data ( -- )
- ( TODO: )
+ ;open-hexa ,open-as JSR
JMP2r
M src/potato.tal => src/potato.tal +1 -1
@@ 311,7 311,7 @@ JMP2r
@open-hexa ( file* -- )
- ( TODO: ) POP2
+ #0005 ADD2 ;app-info #2010 #0010 #0008 ;add-win JSR2
JMP2r