1 files changed, 9 insertions(+), 6 deletions(-)

M nasu.usm

@@ 13,7 13,6 @@
 		Zoom
 		Brushes
 		Resize buttons
-		Move focus with arrows
 		Display tile preview view
 		Erase with right-click
 )


@@ 168,17 167,21 @@ BRK
 			( color ) #03 .settings/color STZ ;draw-toolview JSR2 &no-4
 		POP
 
-	( release ) #00 .Controller/button DEO
+	( release ) #00 .Controller/key DEO
 
 	.Controller/button DEI #f0 AND
 		DUP #04 SFT #01 AND #01 ! ,&no-up JCN
-			( move ) .settings/selection LDZ #10 - .settings/selection STZ &no-up
+			( clamp ) .settings/focus LDZ2 BANK HOR TOS #0010 ** ++ << ,&no-up JCN
+			( up )    .settings/focus LDZ2 #0010 HOR TOS ** -- .settings/focus STZ2 &no-up
 		DUP #05 SFT #01 AND #01 ! ,&no-down JCN
-			( move ) .settings/selection LDZ #10 + .settings/selection STZ &no-down
+			( clamp ) .settings/focus LDZ2 BANK LENGTH HOR TOS #0010 ** -- ++ >> ,&no-down JCN
+			( down )  .settings/focus LDZ2 #0010 HOR TOS ** ++ .settings/focus STZ2 &no-down
 		DUP #06 SFT #01 AND #01 ! ,&no-left JCN
-			( move ) .settings/selection LDZ #01 - .settings/selection STZ &no-left
+			( clamp ) .settings/focus LDZ2 BANK #0001 ++ << ,&no-left JCN
+			( left )  .settings/focus LDZ2 #0010 -- .settings/focus STZ2 &no-left
 		DUP #07 SFT #01 AND #01 ! ,&no-right JCN
-			( move ) .settings/selection LDZ #01 + .settings/selection STZ &no-right
+			( clamp ) .settings/focus LDZ2 BANK LENGTH #0020 -- ++ >> ,&no-right JCN
+			( right ) .settings/focus LDZ2 #0010 ++ .settings/focus STZ2 &no-right
 		POP
 
 	;redraw JSR2