--- a/DialogBox.st	Mon Oct 09 11:02:02 2006 +0200
+++ b/DialogBox.st	Wed Oct 11 21:49:01 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 ModalBox subclass:#DialogBox
@@ -5465,10 +5464,15 @@
      Allows users of boxes to access individual values - especially useful,
      in multi-field dialogs."
 
+    "/ subclasses may redefine some aspects...
+    (self respondsTo:anAspectSymbol) ifTrue:[
+        ^ self perform:anAspectSymbol
+    ].
+
     bindings isNil ifTrue:[^ nil].
     ^ bindings at:anAspectSymbol ifAbsent:nil
 
-    "Modified: 16.1.1997 / 11:41:34 / cg"
+    "Modified: / 11-10-2006 / 21:48:14 / cg"
 ! !
 
 !DialogBox methodsFor:'construction-adding'!
@@ -8353,7 +8357,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.254 2006-09-18 09:07:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.255 2006-10-11 19:49:01 cg Exp $'
 ! !
 
 DialogBox initialize!