Kernel 0.9.1 : GUI, Pointer debugging....

LIB/LIBGUI.S.CUR.txt

@@ -7,7 +7,9 @@ AUTO 6
 *--------------------------------------
 * Set X2,Y2,SrcPtr
 *--------------------------------------
-SetCursor.A		lda CUR.bVisible
+SetCursor.A		sta CUR.T
+
+				lda CUR.bVisible
 				bpl .1
 				
 				jsr HideCursor
@@ -55,7 +57,7 @@ SetCursor.A		lda CUR.bVisible
 *--------------------------------------
 * Set DestX,DestY
 *--------------------------------------
-SetCursorPos	>STYA ZPPtr1
+SetCursorPos	>PULLW ZPPtr1
 				
 				lda CUR.bVisible
 				bpl .1

LIB/LIBGUI.S.txt

@@ -85,11 +85,9 @@ LIB.UNLOAD		clc
 				rts
 *--------------------------------------
 InitGUI			lda GC.Screen+S.GC.hDev
-				beq .10
-				clc
-.9				rts
+				bne .8
 
-.10				>LDYA L.DEVNAME.GFX
+				>LDYA L.DEVNAME.GFX
 				>SYSCALL GetDevByName.YA
 				bcs .9
 				
@@ -108,7 +106,8 @@ InitGUI			lda GC.Screen+S.GC.hDev
 				lda DEVNAME.MOUSE+3
 				cmp #'8'
 				bne .1
-				beq .3					No mouse found, skip mouse init
+.8				clc						No mouse found, skip mouse init
+.9				rts
 
 .2				stx hDevMouse
 				>STYA GoDevMouse+1
@@ -168,7 +167,6 @@ InitGUI			lda GC.Screen+S.GC.hDev
 				
 				jsr ShowCursor
 				
-.3				
 				clc
 				rts			
 *--------------------------------------

SBIN/GUI.S.txt

@@ -65,8 +65,6 @@ CS.INIT			>LDYA L.MSG.INIT
 				>SYSCALL GetMemPtr.A
 				>STYA BitBlT.CB+S.CB.SrcPtr	
 				
-				jsr Destop.Paint
-				
 				lda (pPs)
 				ora #S.PS.F.EVENT		Now accept events
 				sta (pPs)