@@ 137,8 137,14 @@
.frame/x1 LDZ2 #0090 ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT
.frame/x1 LDZ2 #00c0 ++ .frame/y1 LDZ2 #0048 #0020 SIZE-TO-RECT ;dataview SET-RECT
- #43 .path/name STZ
- #01 .path/length STZ
+ ( copy default name )
+ #00 #0c
+ &loop
+ OVR DUP TOS ;filename-txt ++ LDA
+ SWP .path/name + STZ
+ INCR
+ LTHk ,&loop JCN
+ .path/length STZ POP
;load-file JSR2
;redraw JSR2
@@ 741,21 747,19 @@ RTN
@draw-filepath ( color -- )
STH
-
.toolview/x1 LDZ2 #0040 ++ .Screen/x DEO2
.toolview/y1 LDZ2 .Screen/y DEO2
-
;path/name
&loop
- DUP2 LDA TOS #0020 -- #0008 ** ;font ++ .Screen/addr DEO2
+ DUP2 LDA DUP #00 ! #20 * - TOS #0008 ** ;font ++ .Screen/addr DEO2
STHkr .Screen/color DEO
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
#0001 ++
LDAk #00 ! ,&loop JCN
POP2
POPr
-
- ( clear last ) #20 .Screen/color DEO
+ ( clear last )
+ #20 .Screen/color DEO
RTN
@@ 992,6 996,8 @@ RTN
@save-icn fe82 8282 848a f400
@load-icn feaa d6aa d4aa f400
+@filename-txt "untitled.chr $1
+
@slider-icns
f0f0 f0f0 f0f0 f000 ( full )
50a0 50a0 50a0 5000 ( empty )
@@ 1001,9 1007,6 @@ RTN
@zoom-icns
3048 8484 4834 0200 ( in )
3245 8284 4834 0200 ( out )
-@eye-icns
- 0038 4492 2810 0000 ( open )
- 0000 0082 4438 0000 ( closed )
@font-hex
007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c