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.
dont skip unchanged methods when loading from
authorClaus Gittinger <cg@exept.de>
Fri, 14 Feb 1997 18:31:44 +0100
changeset 1038 1368758e6934
parent 1037 2e9961e2fe15
child 1039 5777986bc03a
dont skip unchanged methods when loading from the repository (privacy etc. could have changed)
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Feb 14 01:06:53 1997 +0100
+++ b/BrowserView.st	Fri Feb 14 18:31:44 1997 +0100
@@ -3193,7 +3193,7 @@
 
             [
                 Class withoutUpdatingChangesDo:[
-                    |saveIt|
+                    |saveIt prevSkip|
 
                     saveIt := Dialog confirmWithCancel:'keep a save-copy of the existing class ?
 
@@ -3206,7 +3206,13 @@
                         Smalltalk renameClass:currentClass to:className , '_saved'.
                     ].
 
-                    aStream fileIn.
+                    prevSkip := ClassCategoryReader skipUnchangedMethods.
+                    ClassCategoryReader skipUnchangedMethods:false.
+                    [
+                        aStream fileIn.
+                    ] valueNowOrOnUnwindDo:[
+                        ClassCategoryReader skipUnchangedMethods:prevSkip
+                    ].
 
                     "/ did that work ?
                     newClass := Smalltalk at:className ifAbsent:nil.
@@ -3246,7 +3252,7 @@
     ]
 
     "Created: 14.11.1995 / 16:43:15 / cg"
-    "Modified: 12.10.1996 / 17:22:40 / cg"
+    "Modified: 14.2.1997 / 18:30:14 / cg"
 !
 
 classModifyContainer
@@ -9618,6 +9624,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.268 1997-02-13 19:30:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.269 1997-02-14 17:31:44 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Feb 14 01:06:53 1997 +0100
+++ b/BrwsrView.st	Fri Feb 14 18:31:44 1997 +0100
@@ -3193,7 +3193,7 @@
 
             [
                 Class withoutUpdatingChangesDo:[
-                    |saveIt|
+                    |saveIt prevSkip|
 
                     saveIt := Dialog confirmWithCancel:'keep a save-copy of the existing class ?
 
@@ -3206,7 +3206,13 @@
                         Smalltalk renameClass:currentClass to:className , '_saved'.
                     ].
 
-                    aStream fileIn.
+                    prevSkip := ClassCategoryReader skipUnchangedMethods.
+                    ClassCategoryReader skipUnchangedMethods:false.
+                    [
+                        aStream fileIn.
+                    ] valueNowOrOnUnwindDo:[
+                        ClassCategoryReader skipUnchangedMethods:prevSkip
+                    ].
 
                     "/ did that work ?
                     newClass := Smalltalk at:className ifAbsent:nil.
@@ -3246,7 +3252,7 @@
     ]
 
     "Created: 14.11.1995 / 16:43:15 / cg"
-    "Modified: 12.10.1996 / 17:22:40 / cg"
+    "Modified: 14.2.1997 / 18:30:14 / cg"
 !
 
 classModifyContainer
@@ -9618,6 +9624,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.268 1997-02-13 19:30:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.269 1997-02-14 17:31:44 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool