--- a/DevWorkst.st	Fri Sep 03 11:56:33 1999 +0200
+++ b/DevWorkst.st	Fri Sep 03 12:38:15 1999 +0200
@@ -1108,6 +1108,16 @@
     "
 !
 
+suppressDebugger
+    "return true, if no debugger should be opened for applications running
+     on this device (i.e. neither a debugger on the device nor on the
+     main screen).m
+     If true, the debugger is either opened on the device or on the
+     main display, depending on the mayOpenDebugger setting."
+
+    ^ false
+!
+
 suppressShadowViews
     "return true, if this device wants to suppress shadow views
      (i.e. shadows under popups and modalBoxes).
@@ -6581,6 +6591,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.329 1999-08-31 22:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.330 1999-09-03 10:38:15 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Fri Sep 03 11:56:33 1999 +0200
+++ b/DeviceWorkstation.st	Fri Sep 03 12:38:15 1999 +0200
@@ -1108,6 +1108,16 @@
     "
 !
 
+suppressDebugger
+    "return true, if no debugger should be opened for applications running
+     on this device (i.e. neither a debugger on the device nor on the
+     main screen).m
+     If true, the debugger is either opened on the device or on the
+     main display, depending on the mayOpenDebugger setting."
+
+    ^ false
+!
+
 suppressShadowViews
     "return true, if this device wants to suppress shadow views
      (i.e. shadows under popups and modalBoxes).
@@ -6581,6 +6591,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.329 1999-08-31 22:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.330 1999-09-03 10:38:15 cg Exp $'
 ! !
 DeviceWorkstation initialize!