# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 837598198 -7200
# Node ID c6953d727789ce46a4d5bb98e3ece94a9888f1b8
# Parent  f76f4541742f39d24521eb052fdf75feed59432d
care for 2D look

diff -r f76f4541742f -r c6953d727789 DialogBox.st
--- a/DialogBox.st	Mon Jul 15 16:42:09 1996 +0200
+++ b/DialogBox.st	Wed Jul 17 12:09:58 1996 +0200
@@ -21,7 +21,7 @@
 	category:'Views-DialogBoxes'
 !
 
-!DialogBox class methodsFor:'documentation'!
+!DialogBox  class methodsFor:'documentation'!
 
 copyright
 "
@@ -948,7 +948,7 @@
 "
 ! !
 
-!DialogBox class methodsFor:'class initialization'!
+!DialogBox  class methodsFor:'class initialization'!
 
 initialize
     self == DialogBox ifTrue:[
@@ -959,7 +959,7 @@
     "Modified: 10.4.1996 / 08:16:18 / cg"
 ! !
 
-!DialogBox class methodsFor:'common dialogs'!
+!DialogBox  class methodsFor:'common dialogs'!
 
 information:aString
     "launch a Dialog to tell user something"
@@ -995,7 +995,7 @@
     "Modified: 29.5.1996 / 15:23:14 / cg"
 ! !
 
-!DialogBox class methodsFor:'confirmation dialogs'!
+!DialogBox  class methodsFor:'confirmation dialogs'!
 
 confirm:aString
     "launch a Dialog, which allows user to enter yes or no.
@@ -1144,7 +1144,7 @@
     "Modified: 29.5.1996 / 15:24:06 / cg"
 ! !
 
-!DialogBox class methodsFor:'defaults'!
+!DialogBox  class methodsFor:'defaults'!
 
 defaultLabel
     "return the boxes default window title."
@@ -1154,7 +1154,7 @@
     "Created: 23.4.1996 / 17:13:10 / cg"
 ! !
 
-!DialogBox class methodsFor:'file name dialogs'!
+!DialogBox  class methodsFor:'file name dialogs'!
 
 requestDirectoryName
     "same as requestFileName, but only show directories."
@@ -1563,7 +1563,7 @@
     "Modified: 27.1.1996 / 13:44:13 / cg"
 ! !
 
-!DialogBox class methodsFor:'fill in the blank dialogs'!
+!DialogBox  class methodsFor:'fill in the blank dialogs'!
 
 request:aString 
     "launch a Dialog, which allows user to enter something.
@@ -2101,7 +2101,7 @@
     "Created: 17.11.1995 / 09:45:21 / cg"
 ! !
 
-!DialogBox class methodsFor:'multiple choice dialogs'!
+!DialogBox  class methodsFor:'multiple choice dialogs'!
 
 choose:aString fromList:list values:listValues buttons:buttonLabels values:buttonValues lines:maxLines cancel:cancelBlock
     "launch a Dialog showing the message and list.
@@ -4680,6 +4680,7 @@
     |helper component|
 
     helper := HorizontalPanelView new.
+    helper borderWidth:0.
 
     aCol do:[:el |
         component := aBlock value:el.
@@ -4762,8 +4763,8 @@
      dialog open.
     "
 
-    "Modified: 9.2.1996 / 22:28:14 / cg"
     "Created: 31.5.1996 / 20:45:31 / cg"
+    "Modified: 17.7.1996 / 12:06:08 / cg"
 ! !
 
 !DialogBox methodsFor:'explicit focus control'!
@@ -5083,9 +5084,9 @@
     ]
 ! !
 
-!DialogBox class methodsFor:'documentation'!
+!DialogBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.84 1996-06-14 23:26:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.85 1996-07-17 10:09:58 cg Exp $'
 ! !
 DialogBox initialize!