~rabbits/potato

d7672f842a35f90536d1c84ab4840683ccd38511 — neauoire 3 months ago c5ae29d
Starting meta-data parser
3 files changed, 30 insertions(+), 2 deletions(-)

M src/apps.tal
M src/desktop.tal
M src/potato.tal
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