Improved presentation mode
This commit is contained in:
parent
d4783214a4
commit
d5ae0cf76c
|
@ -69,7 +69,7 @@
|
||||||
@RESET ( -- )
|
@RESET ( -- )
|
||||||
|
|
||||||
( theme )
|
( theme )
|
||||||
#e0cd =theme.r0 #30fd =theme.g0 #30fd =theme.b0 ( normal mode )
|
#e0fa =theme.r0 #30fa =theme.g0 #30fa =theme.b0 ( normal mode )
|
||||||
#00fe =theme.r1 #00f3 =theme.g1 #00f3 =theme.b1 ( presentation mode )
|
#00fe =theme.r1 #00f3 =theme.g1 #00f3 =theme.b1 ( presentation mode )
|
||||||
|
|
||||||
~theme.r0 =System.r ~theme.g0 =System.g ~theme.b0 =System.b
|
~theme.r0 =System.r ~theme.g0 =System.g ~theme.b0 =System.b
|
||||||
|
@ -81,6 +81,7 @@
|
||||||
#04 =brush.size #00 =brush.patt #00 =brush.tool
|
#04 =brush.size #00 =brush.patt #00 =brush.tool
|
||||||
|
|
||||||
( load file )
|
( load file )
|
||||||
|
,untitled_txt ,path.name ,strcpy JSR2
|
||||||
,path.name ,load-file JSR2
|
,path.name ,load-file JSR2
|
||||||
|
|
||||||
( setup panes )
|
( setup panes )
|
||||||
|
@ -401,6 +402,7 @@ RTN
|
||||||
@load-file ( path -- )
|
@load-file ( path -- )
|
||||||
|
|
||||||
=File.name FILESIZE =File.length ,data =File.load
|
=File.name FILESIZE =File.length ,data =File.load
|
||||||
|
~File.name ,path.name ,strcpy JSR2
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@ -675,7 +677,7 @@ RTN
|
||||||
( draw new cursor )
|
( draw new cursor )
|
||||||
~cursor.x =Sprite.x ~cursor.y =Sprite.y
|
~cursor.x =Sprite.x ~cursor.y =Sprite.y
|
||||||
,pointers_icn #00 ~Controller #02 EQU 8* ADD2 =Sprite.addr
|
,pointers_icn #00 ~Controller #02 EQU 8* ADD2 =Sprite.addr
|
||||||
#1f =Sprite.color
|
#1f ~Mouse.state #01 EQU #0a MUL SUB =Sprite.color
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
@ -803,10 +805,8 @@ RTN
|
||||||
,save_icn =Sprite.addr
|
,save_icn =Sprite.addr
|
||||||
#03 =Sprite.color
|
#03 =Sprite.color
|
||||||
|
|
||||||
~document.presentation #01 EQU ^$skip-path JNZ
|
#0008 =Sprite.x
|
||||||
#0008 =Sprite.x
|
,path.name #01 ,draw-label JSR2
|
||||||
,path.name #01 ,draw-label JSR2
|
|
||||||
$skip-path
|
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue