--- a/DialogBox.st	Tue Apr 23 00:20:42 1996 +0200
+++ b/DialogBox.st	Tue Apr 23 17:17:11 1996 +0200
@@ -980,6 +980,16 @@
     "Modified: 27.1.1996 / 14:25:49 / cg"
 ! !
 
+!DialogBox class methodsFor:'defaults'!
+
+defaultLabel
+    "return the boxes default window title."
+
+    ^ 'Dialog'
+
+    "Created: 23.4.1996 / 17:13:10 / cg"
+! !
+
 !DialogBox class methodsFor:'file name dialogs'!
 
 requestDirectoryName
@@ -3935,7 +3945,7 @@
 
     super initialize.
 
-    label := 'Dialog'.
+"/    label := 'Dialog'.
     acceptValue := false asValue.
 
     mm := ViewSpacing.
@@ -3987,7 +3997,7 @@
        showAtPointer
     "
 
-    "Modified: 19.4.1996 / 17:07:49 / cg"
+    "Modified: 23.4.1996 / 17:13:18 / cg"
 !
 
 reAdjustGeometry
@@ -4293,6 +4303,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.64 1996-04-20 12:38:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.65 1996-04-23 15:17:11 cg Exp $'
 ! !
 DialogBox initialize!