Do not use #halt
authorStefan Vogel <sv@exept.de>
Tue, 07 Oct 2003 15:38:46 +0200
changeset 1746 bb4f759cf456
parent 1745 3e7ce9e46a15
child 1747 dfe097b6b1fb
Do not use #halt
UIObjectView.st
UIPainterView.st
--- a/UIObjectView.st	Thu Oct 02 19:45:57 2003 +0200
+++ b/UIObjectView.st	Tue Oct 07 15:38:46 2003 +0200
@@ -455,22 +455,15 @@
 !UIObjectView methodsFor:'blocked'!
 
 addObject:anObject
-    "add the argument, anObject to the contents - with redraw
-    "
-    self halt:'should not be invoked'
-
+    "add the argument, anObject to the contents - with redraw"
+
+    self shouldNotImplement
 !
 
 addObjectWithoutRedraw:anObject
-    "add the argument, anObject to the contents - with redraw
-    "
-    self halt:'should not be invoked'
-
-!
-
-startCreate:aPoint
-    self setDefaultActions.
-    self halt:'should not be invoked'
+    "add the argument, anObject to the contents - with redraw"
+
+    self shouldNotImplement
 ! !
 
 !UIObjectView methodsFor:'event handling'!
@@ -649,12 +642,9 @@
 
 remap
     "make the view visible on the screen and in case of a none empty
-     selection the selection will be shown.
-    "
-    super remap.
-    self halt:'should not be invoked'
-
-    "Created: / 20.7.1998 / 18:08:48 / cg"
+     selection the selection will be shown"
+
+    self shouldNotImplement
 ! !
 
 !UIObjectView methodsFor:'misc'!
@@ -1644,23 +1634,6 @@
 
 !
 
-setMaxExtent
-    "set the topViews maxExtent to its current extent
-    "
-    self halt:'should not be invoked'
-
-    "Modified: / 27.10.1997 / 03:26:16 / cg"
-!
-
-setMinExtent
-    "set the topViews minExtent to its current extent
-    "
-    self halt:'should not be invoked'
-
-    "Created: / 27.10.1997 / 03:24:02 / cg"
-    "Modified: / 27.10.1997 / 03:26:34 / cg"
-!
-
 setToDefaultExtent
     "change extent of all selected views to their default extent
     "
--- a/UIPainterView.st	Thu Oct 02 19:45:57 2003 +0200
+++ b/UIPainterView.st	Tue Oct 07 15:38:46 2003 +0200
@@ -217,7 +217,6 @@
         whileTrue:[
         container := container container.
     ].
-self halt.
     ^ container
 !