FileBrowser.st
changeset 13739 66d6ac42cb9f
parent 13441 053847a47ec1
child 13769 7827c1eebc29
--- a/FileBrowser.st	Sun Jan 05 14:20:00 2014 +0100
+++ b/FileBrowser.st	Sun Jan 05 14:20:19 2014 +0100
@@ -3381,13 +3381,13 @@
     lbl := hardOrSoftSymbol == #soft 
             ifTrue:['Create symbolic link to:']
             ifFalse:['Create hard link from:'].
-    (box addTextLabel:(resources string:lbl)) adjust:#left.
+    box addTextLabel:(resources string:lbl) adjust:#left.
     if1 := box addFilenameInputFieldOn:name1 in:currentDirectory tabable:true.
 
     lbl := hardOrSoftSymbol == #soft 
             ifTrue:['as']
             ifFalse:['to:'].
-    (box addTextLabel:(resources string:lbl)) adjust:#left.
+    box addTextLabel:(resources string:lbl) adjust:#left.
     if2 := box addFilenameInputFieldOn:name2 in:currentDirectory tabable:true.
 
     box addAbortAndOkButtons.
@@ -3532,9 +3532,9 @@
     here := currentDirectory pathName.
 
     box := DialogBox new.
-    (box addTextLabel:'Show difference between:\\file1 (empty for views contents):' withCRs) adjust:#left.
+    box addTextLabel:'Show difference between:\\file1 (empty for views contents):' withCRs adjust:#left.
     box addFilenameInputFieldOn:name1 in:here tabable:true.
-    (box addTextLabel:'and file2:') adjust:#left.
+    box addTextLabel:'and file2:' adjust:#left.
     box addFilenameInputFieldOn:name2 in:here tabable:true.
 
     box addAbortAndOkButtons.
@@ -7511,10 +7511,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.653 2014-01-05 13:20:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.652 2013-08-31 19:28:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.653 2014-01-05 13:20:19 cg Exp $'
 ! !