uxn

commit d5ae0cf76cfc24aabb086be2c608c33340d25cf2
parent d4783214a44d362d9c0578350a05034b51f63437
Author: neauoire <aliceffekt@gmail.com>
Date:   Tue, 30 Mar 2021 19:35:34 -0700

Improved presentation mode

Diffstat:
M
projects/software/noodle.usm
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/projects/software/noodle.usm b/projects/software/noodle.usm
@@ -69,7 +69,7 @@
 @RESET ( -- )
 	
 	( 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 )
 
 	~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
 
 	( load file )
+	,untitled_txt ,path.name ,strcpy JSR2
 	,path.name ,load-file JSR2
 
 	( setup panes )
@@ -401,6 +402,7 @@ RTN
 @load-file ( path -- )
 
 	=File.name FILESIZE =File.length ,data =File.load
+	~File.name ,path.name ,strcpy JSR2
 
 RTN
 
@@ -675,7 +677,7 @@ RTN
 	( draw new cursor )
 	~cursor.x =Sprite.x ~cursor.y =Sprite.y
 	,pointers_icn #00 ~Controller #02 EQU 8* ADD2 =Sprite.addr
-	#1f =Sprite.color
+	#1f ~Mouse.state #01 EQU #0a MUL SUB =Sprite.color
 
 RTN
 
@@ -803,10 +805,8 @@ RTN
 	,save_icn =Sprite.addr
 	#03 =Sprite.color
 	
-	~document.presentation #01 EQU ^$skip-path JNZ
-		#0008 =Sprite.x
-		,path.name #01 ,draw-label JSR2
-	$skip-path
+	#0008 =Sprite.x
+	,path.name #01 ,draw-label JSR2
 
 RTN