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.
*** empty log message ***
authorclaus
Wed, 13 Oct 1993 02:01:11 +0100
changeset 1 4bb1d231596f
parent 0 571fd5eee315
child 2 b583ff9ac659
*** empty log message ***
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/CBrowser.st	Fri Jul 16 11:44:07 1993 +0200
+++ b/CBrowser.st	Wed Oct 13 02:01:11 1993 +0100
@@ -28,7 +28,7 @@
 
 this class implements a changes browser.
 
-%W% %E%
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.2 1993-10-13 01:01:11 claus Exp $
 written jan 90 by claus
 '!
 
@@ -89,7 +89,7 @@
 initializeMiddleButtonMenu
     |labels|
 
-    labels := Resources array:#(
+    labels := resources array:#(
                                'apply change'
                                'apply changes to end'
                                'apply all changes'
@@ -333,7 +333,7 @@
                 ]
             ]
         ].
-        changeClassNames := OrderedCollection new:(changeChunks size).
+        changeClassNames := VariableArray new:(changeChunks size).
         aStream close
     ]
 !
@@ -390,12 +390,12 @@
     aStream isNil ifTrue:[^ self].
     sawExcla := aStream peekFor:(aStream class chunkSeparator).
     chunk := aStream nextChunk.
-    codeView abortAction:[Class updateChanges. 
+    upd := Class updateChanges:false.
+    codeView abortAction:[Class updateChanges:upd. 
                           codeView abortAction:nil. 
                           aStream close. 
                           ^self]. 
     changeNrProcessed := changeNr.
-    upd := Class updateChanges:false.
     [
         sawExcla ifFalse:[
             Compiler evaluate:chunk notifying:self
@@ -543,7 +543,7 @@
 noChangesAllowed
     "show a warning that changes cannot be changed"
 
-    self warn:(Resources at:'changes are not allowed to be changed')
+    self warn:(resources at:'changes are not allowed to be changed')
 !
 
 changeSelection:lineNr
@@ -573,9 +573,9 @@
     yesNoBox isNil ifTrue:[
         yesNoBox := YesNoBox new
     ].
-    yesNoBox title:(Resources at:'Warning: this operation cannot be undone').
-    yesNoBox okText:(Resources at:'apply').
-    yesNoBox noText:(Resources at:'abort').
+    yesNoBox title:(resources at:'Warning: this operation cannot be undone').
+    yesNoBox okText:(resources at:'apply').
+    yesNoBox noText:(resources at:'abort').
     yesNoBox okAction:[
                   changeNr := changeListView selection.
                   changeNr notNil ifTrue:[
@@ -727,7 +727,7 @@
 
     anyChanges ifTrue:[
         closeBox isNil ifTrue:[closeBox := YesNoBox new].
-        closeBox title:(Resources at:'Quit without updating changeFile ?').
+        closeBox title:(resources at:'Quit without updating changeFile ?').
         closeBox yesAction:[self destroy] noAction:nil.
         closeBox showAtPointer
     ] ifFalse:[
--- a/ChangesBrowser.st	Fri Jul 16 11:44:07 1993 +0200
+++ b/ChangesBrowser.st	Wed Oct 13 02:01:11 1993 +0100
@@ -28,7 +28,7 @@
 
 this class implements a changes browser.
 
-%W% %E%
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.2 1993-10-13 01:01:11 claus Exp $
 written jan 90 by claus
 '!
 
@@ -89,7 +89,7 @@
 initializeMiddleButtonMenu
     |labels|
 
-    labels := Resources array:#(
+    labels := resources array:#(
                                'apply change'
                                'apply changes to end'
                                'apply all changes'
@@ -333,7 +333,7 @@
                 ]
             ]
         ].
-        changeClassNames := OrderedCollection new:(changeChunks size).
+        changeClassNames := VariableArray new:(changeChunks size).
         aStream close
     ]
 !
@@ -390,12 +390,12 @@
     aStream isNil ifTrue:[^ self].
     sawExcla := aStream peekFor:(aStream class chunkSeparator).
     chunk := aStream nextChunk.
-    codeView abortAction:[Class updateChanges. 
+    upd := Class updateChanges:false.
+    codeView abortAction:[Class updateChanges:upd. 
                           codeView abortAction:nil. 
                           aStream close. 
                           ^self]. 
     changeNrProcessed := changeNr.
-    upd := Class updateChanges:false.
     [
         sawExcla ifFalse:[
             Compiler evaluate:chunk notifying:self
@@ -543,7 +543,7 @@
 noChangesAllowed
     "show a warning that changes cannot be changed"
 
-    self warn:(Resources at:'changes are not allowed to be changed')
+    self warn:(resources at:'changes are not allowed to be changed')
 !
 
 changeSelection:lineNr
@@ -573,9 +573,9 @@
     yesNoBox isNil ifTrue:[
         yesNoBox := YesNoBox new
     ].
-    yesNoBox title:(Resources at:'Warning: this operation cannot be undone').
-    yesNoBox okText:(Resources at:'apply').
-    yesNoBox noText:(Resources at:'abort').
+    yesNoBox title:(resources at:'Warning: this operation cannot be undone').
+    yesNoBox okText:(resources at:'apply').
+    yesNoBox noText:(resources at:'abort').
     yesNoBox okAction:[
                   changeNr := changeListView selection.
                   changeNr notNil ifTrue:[
@@ -727,7 +727,7 @@
 
     anyChanges ifTrue:[
         closeBox isNil ifTrue:[closeBox := YesNoBox new].
-        closeBox title:(Resources at:'Quit without updating changeFile ?').
+        closeBox title:(resources at:'Quit without updating changeFile ?').
         closeBox yesAction:[self destroy] noAction:nil.
         closeBox showAtPointer
     ] ifFalse:[
hg/stx-libtool