grammar
authortz
Sat, 02 May 1998 12:55:49 +0200
changeset 1630 0303b4b6a5ce
parent 1629 04c5cc863e8a
child 1631 8e46cb066849
grammar
ApplicationBuilder.st
LibraryBuilder.st
--- a/ApplicationBuilder.st	Wed Apr 29 19:30:47 1998 +0200
+++ b/ApplicationBuilder.st	Sat May 02 12:55:49 1998 +0200
@@ -719,22 +719,22 @@
                                                             [
                                                                 task isNil 
                                                                     ifTrue: [self inform: 'Application build.' asBoldText]
-                                                                    ifFalse: [self informTargetBuildingFailured].
+                                                                    ifFalse: [self informTargetBuildingFailed].
                                                                 Display beep.
                                                             ]   
-                                                        ] ifFalse: [self informTargetBuildingFailured]
+                                                        ] ifFalse: [self informTargetBuildingFailed]
                                                     ]
-                                                ] ifFalse: [self informTargetBuildingFailured]
+                                                ] ifFalse: [self informTargetBuildingFailed]
                                             ]
-                                        ] ifFalse: [self informTargetBuildingFailured]
+                                        ] ifFalse: [self informTargetBuildingFailed]
                                     ]
-                                ] ifFalse: [self informTargetBuildingFailured]
+                                ] ifFalse: [self informTargetBuildingFailed]
                             ]
-                        ] ifFalse: [self informTargetBuildingFailured]
+                        ] ifFalse: [self informTargetBuildingFailed]
                     ]           
-                ] ifFalse: [self informTargetBuildingFailured]
+                ] ifFalse: [self informTargetBuildingFailed]
             ]
-        ] ifFalse: [self informTargetBuildingFailured]
+        ] ifFalse: [self informTargetBuildingFailed]
     ]
 !
 
@@ -776,7 +776,7 @@
     [
         task isNil 
             ifTrue: [self inform: 'Application build.' asBoldText]
-            ifFalse:[self informTargetBuildingFailured].
+            ifFalse:[self informTargetBuildingFailed].
         Display beep.
     ]
 !
@@ -888,10 +888,10 @@
 
 !
 
-informTargetBuildingFailured
+informTargetBuildingFailed
     "informs that something went wrong"
 
-    self inform: 'Application building failured.' asBoldText.
+    self inform: 'Application building failed.' asBoldText.
     task := nil
 ! !
 
@@ -1207,7 +1207,7 @@
     (libraries includes: library) not & library notEmpty
     ifTrue:
     [   
-        libraries addFirst: library
+        libraries add: library
     ]
 
 
@@ -1357,5 +1357,5 @@
 !ApplicationBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ApplicationBuilder.st,v 1.6 1998-04-20 22:38:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ApplicationBuilder.st,v 1.7 1998-05-02 10:55:49 tz Exp $'
 ! !
--- a/LibraryBuilder.st	Wed Apr 29 19:30:47 1998 +0200
+++ b/LibraryBuilder.st	Sat May 02 12:55:49 1998 +0200
@@ -637,19 +637,19 @@
                                             [
                                                 task isNil 
                                                     ifTrue: [self inform: 'Library build.' asBoldText]
-                                                    ifFalse: [self informTargetBuildingFailured].
+                                                    ifFalse: [self informTargetBuildingFailed].
                                                 task := nil.
                                                 Display beep.
                                             ]   
-                                        ] ifFalse: [self informTargetBuildingFailured]
+                                        ] ifFalse: [self informTargetBuildingFailed]
                                     ]
-                                ] ifFalse: [self informTargetBuildingFailured]
+                                ] ifFalse: [self informTargetBuildingFailed]
                             ]
-                        ] ifFalse: [self informTargetBuildingFailured]
+                        ] ifFalse: [self informTargetBuildingFailed]
                     ]           
-                ] ifFalse: [self informTargetBuildingFailured]
+                ] ifFalse: [self informTargetBuildingFailed]
             ]
-        ] ifFalse: [self informTargetBuildingFailured]
+        ] ifFalse: [self informTargetBuildingFailed]
     ].
 
 
@@ -735,10 +735,10 @@
 
 !
 
-informTargetBuildingFailured
+informTargetBuildingFailed
     "informs that something went wrong"
 
-    self inform: 'Library building failured.' asBoldText.
+    self inform: 'Library building failed.' asBoldText.
     task := nil
 !
 
@@ -1064,5 +1064,5 @@
 !LibraryBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/LibraryBuilder.st,v 1.5 1998-04-20 22:39:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/LibraryBuilder.st,v 1.6 1998-05-02 10:55:38 tz Exp $'
 ! !