diff -r c7ee94ff51c1 -r 3dfd92c4cb56 UIPainter.st
--- a/UIPainter.st	Mon Jul 28 12:18:34 1997 +0200
+++ b/UIPainter.st	Mon Jul 28 12:45:28 1997 +0200
@@ -1299,23 +1299,15 @@
 !UIPainter methodsFor:'aspects'!
 
 canStepIn
-    |holder|
-
-    (holder := builder bindingAt:#canStepIn) isNil ifTrue:[
-        builder aspectAt:#canStepIn put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ self booleanAspectFor:#canStepIn
+
+    "Modified: 28.7.1997 / 12:41:56 / cg"
 !
 
 canStepOut
-    |holder|
-
-    (holder := builder bindingAt:#canStepOut) isNil ifTrue:[
-        builder aspectAt:#canStepOut put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ self booleanAspectFor:#canStepOut
+
+    "Modified: 28.7.1997 / 12:42:03 / cg"
 !
 
 enableChannel
@@ -1336,33 +1328,21 @@
 !
 
 hasSingleSelection
-    |holder|
-
-    (holder := builder bindingAt:#hasSingleSelection) isNil ifTrue:[
-        builder aspectAt:#hasSingleSelection put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ self booleanAspectFor:#hasSingleSelection
+
+    "Modified: 28.7.1997 / 12:42:24 / cg"
 !
 
 hasValidSelection
-    |holder|
-
-    (holder := builder bindingAt:#hasValidSelection) isNil ifTrue:[
-        builder aspectAt:#hasValidSelection put:(holder :=  false asValue).
-    ].
-    ^ holder
-
+    ^ self booleanAspectFor:#hasValidSelection
+
+    "Modified: 28.7.1997 / 12:42:30 / cg"
 !
 
 modifiedChannel
-
-    |holder|
-
-    (holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[
-        builder aspectAt:#modifiedChannel put:(holder :=  false asValue).
-    ].
-    ^ holder
+    ^ self booleanAspectFor:#modifiedChannel
+
+    "Modified: 28.7.1997 / 12:42:38 / cg"
 !
 
 noteBookView