Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
no borders in labels
authorClaus Gittinger <cg@exept.de>
Mon, 04 Dec 1995 01:12:03 +0100
changeset 228 5590115a282c
parent 227 4c0d12e2a3dc
child 229 0e4161763050
no borders in labels
Launcher.st file | annotate | diff | comparison | revisions 
--- a/Launcher.st	Mon Dec 04 00:53:18 1995 +0100
+++ b/Launcher.st	Mon Dec 04 01:12:03 1995 +0100
@@ -600,20 +600,20 @@
 
     warnEnabler := Plug new.
     warnEnabler
-	respondTo:#check 
-	with:[warnings value ifTrue:[
-		warnSTXBox enable. 
-		warnOldStyleBox enable.
-		allowUnderscore value ifTrue:[
-		    warnUnderscoreBox enable.
-		] ifFalse:[
-		    warnUnderscoreBox disable.
-		].
-	      ] ifFalse:[
-		warnSTXBox disable. 
-		warnUnderscoreBox disable.
-		warnOldStyleBox disable.
-	      ]].
+        respondTo:#check 
+        with:[warnings value ifTrue:[
+                warnSTXBox enable. 
+                warnOldStyleBox enable.
+                allowUnderscore value ifTrue:[
+                    warnUnderscoreBox enable.
+                ] ifFalse:[
+                    warnUnderscoreBox disable.
+                ].
+              ] ifFalse:[
+                warnSTXBox disable. 
+                warnUnderscoreBox disable.
+                warnOldStyleBox disable.
+              ]].
 
     warnings onChangeSend:#check to:warnEnabler.
     allowUnderscore onChangeSend:#check to:warnEnabler.
@@ -632,7 +632,7 @@
 
     y := box yPosition.
     component := box addTextLabel:(resources string:'stc include directories:').
-    component width:0.5; adjust:#right.
+    component width:0.5; adjust:#right; borderWidth:0.
     box yPosition:y.
     component := box addInputFieldOn:stcIncludes tabable:true.
     component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -640,7 +640,7 @@
     box addVerticalSpace.
     y := box yPosition.
     component := box addTextLabel:'stc defines:'.
-    component width:0.5; adjust:#right.
+    component width:0.5; adjust:#right; borderWidth:0.
     box yPosition:y.
     component := box addInputFieldOn:stcDefines tabable:true.
     component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -648,7 +648,7 @@
     box addVerticalSpace.
     y := box yPosition.
     component := box addTextLabel:'stc options:'.
-    component width:0.5; adjust:#right.
+    component width:0.5; adjust:#right; borderWidth:0.
     box yPosition:y.
     component := box addInputFieldOn:stcOptions tabable:true.
     component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -656,7 +656,7 @@
     box addVerticalSpace.
     y := box yPosition.
     component := box addTextLabel:'stc C-libraries:'.
-    component width:0.5; adjust:#right.
+    component width:0.5; adjust:#right; borderWidth:0.
     box yPosition:y.
     component := box addInputFieldOn:stcLibraries tabable:true.
     component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -667,8 +667,8 @@
     "/ if there is no compiler around,
     "/ change to compile nothing, and disable the checkBoxes
     Compiler canCreateMachineCode ifFalse:[
-	stcCompilation selectionIndex:3.
-	compilationList disable.
+        stcCompilation selectionIndex:3.
+        compilationList disable.
     ].
 
     box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
@@ -693,28 +693,29 @@
     box showAtPointer.
 
     box accepted ifTrue:[
-	HistoryManager notNil ifTrue:[
-	    historyLines value ifTrue:[
-		HistoryManager activate
-	    ] ifFalse:[
-		HistoryManager deactivate
-	    ].
-	].
-	Class catchMethodRedefinitions:catchRedefs value.
-	Compiler warnings:warnings value.
-	Compiler warnSTXSpecials:warnSTX value.
-	Compiler warnOldStyleAssignment:warnOldStyle value.
-	Compiler warnUnderscoreInIdentifier:warnUnderscore value.
-	Compiler allowUnderscoreInIdentifier:allowUnderscore value.
-	Compiler arraysAreImmutable:immutableArrays value.
-	Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
-	Compiler stcCompilationIncludes:stcIncludes value.
-	Compiler stcCompilationDefines:stcDefines value.
-	Compiler stcCompilationOptions:stcOptions value.
-	ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
+        HistoryManager notNil ifTrue:[
+            historyLines value ifTrue:[
+                HistoryManager activate
+            ] ifFalse:[
+                HistoryManager deactivate
+            ].
+        ].
+        Class catchMethodRedefinitions:catchRedefs value.
+        Compiler warnings:warnings value.
+        Compiler warnSTXSpecials:warnSTX value.
+        Compiler warnOldStyleAssignment:warnOldStyle value.
+        Compiler warnUnderscoreInIdentifier:warnUnderscore value.
+        Compiler allowUnderscoreInIdentifier:allowUnderscore value.
+        Compiler arraysAreImmutable:immutableArrays value.
+        Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
+        Compiler stcCompilationIncludes:stcIncludes value.
+        Compiler stcCompilationDefines:stcDefines value.
+        Compiler stcCompilationOptions:stcOptions value.
+        ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
     ]
 
     "Modified: 10.9.1995 / 19:19:18 / claus"
+    "Modified: 4.12.1995 / 01:11:23 / cg"
 !
 
 keyboardSetting 
@@ -925,7 +926,7 @@
     box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
     y := box yPosition.
     component := box addTextLabel:(resources string:'change file:').
-    component width:0.5; adjust:#right.
+    component width:0.5; adjust:#right; borderWidth:0.
     box yPosition:y.
     component := box addInputFieldOn:changeFileName tabable:true.
     component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false.
@@ -935,8 +936,8 @@
     box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
     check := box addCheckBox:(resources string:'if present, load binary objects when autoloading') on:loadBinaries.
     ObjectFileLoader isNil ifTrue:[
-	loadBinaries value:false.
-	check disable
+        loadBinaries value:false.
+        check disable
     ].
     box addHorizontalLine.
 
@@ -947,16 +948,16 @@
     box showAtPointer.
 
     box accepted ifTrue:[
-	Smalltalk logDoits:logDoits value.
-	PopUpView shadows:shadows value.
-	Class updateChanges:updChanges value.
-	Autoload compileLazy:compileLazy value.
-	Smalltalk loadBinaries:loadBinaries value.
-	StandardSystemView includeHostNameInLabel:hostNameInLabel value.
-	ObjectMemory nameForChanges:changeFileName value.
+        Smalltalk logDoits:logDoits value.
+        PopUpView shadows:shadows value.
+        Class updateChanges:updChanges value.
+        Autoload compileLazy:compileLazy value.
+        Smalltalk loadBinaries:loadBinaries value.
+        StandardSystemView includeHostNameInLabel:hostNameInLabel value.
+        ObjectMemory nameForChanges:changeFileName value.
     ]
 
-    "Modified: 11.11.1995 / 15:02:05 / cg"
+    "Modified: 4.12.1995 / 01:10:49 / cg"
 !
 
 viewStyleSetting 
@@ -1902,5 +1903,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.55 1995-12-03 23:53:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.56 1995-12-04 00:12:03 cg Exp $'
 ! !
hg/stx-libtool