Changeset 2930

Timestamp:

Mar 28, 2012 8:06:20 AM (14 months ago)

Author:

wmb

Message:

GUI - Fixed bug introduced by recent mouse/touchscreen/pointer revamp. menu was broken on systems without a touchscreen.

File:

• ofw/gui/mouse.fth (modified) (2 diffs)

ofw/gui/mouse.fth

@@ -204 +204 @@
 ;
 : mouse-event?  ( -- false | x y buttons true )
+   mouse-ih 0=  if  false exit  then
    " stream-poll?" mouse-ih $call-method
 ;
@@ -230 +231 @@
 ;
 : touchscreen-event?  ( -- false | x y buttons true )
+   touchscreen-ih  0=  if  false exit  then
    " stream-poll?" touchscreen-ih $call-method
 ;