--- a/GraphicsDevice.st	Fri Jun 22 18:26:19 2001 +0200
+++ b/GraphicsDevice.st	Fri Jun 22 18:26:35 2001 +0200
@@ -59,7 +59,7 @@
 
 ! !
 
-!GraphicsDevice methodsFor:'accessing'!
+!GraphicsDevice methodsFor:'accessing & queries'!
 
 addEventListener:aListener
     "add a local eventListener (with new protocol - #processEvent:)
@@ -73,12 +73,8 @@
 
 !
 
-removeEventListener:aListener
-    "remove a local eventListener (with new protocol - #processEvent:)"
-
-    eventListeners notNil ifTrue:[
-	eventListeners removeIdentical:aListener ifAbsent:nil
-    ].
+bePDA
+    self deviceType:#pda
 !
 
 deviceType
@@ -87,6 +83,18 @@
 
 deviceType:aSymbol
     deviceType := aSymbol
+!
+
+isPDA
+    ^ self deviceType == #pda
+!
+
+removeEventListener:aListener
+    "remove a local eventListener (with new protocol - #processEvent:)"
+
+    eventListeners notNil ifTrue:[
+	eventListeners removeIdentical:aListener ifAbsent:nil
+    ].
 ! !
 
 !GraphicsDevice methodsFor:'event processing'!
@@ -115,5 +123,5 @@
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.6 2001-06-22 15:04:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.7 2001-06-22 16:26:35 cg Exp $'
 ! !