# HG changeset patch # User Stefan Vogel # Date 1065533926 -7200 # Node ID bb4f759cf456f825daaee8ede7b6ce2ea8240c48 # Parent 3e7ce9e46a153c72f6ee8baf626b7412cb77ec3a Do not use #halt diff -r 3e7ce9e46a15 -r bb4f759cf456 UIObjectView.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 " diff -r 3e7ce9e46a15 -r bb4f759cf456 UIPainterView.st --- 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 !