Mercurial Mercurial > hg > stx-libbasic3 / 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 Gittinger <cg@exept.de>
Thu, 09 Jan 1997 02:38:11 +0100
changeset 532 4595667ad448
parent 531 b0d7a291474d
child 533 53a982919a5e
*** empty log message ***
HistMgr.st file | annotate | diff | comparison | revisions
HistoryManager.st file | annotate | diff | comparison | revisions 
--- a/HistMgr.st	Thu Jan 09 02:29:05 1997 +0100
+++ b/HistMgr.st	Thu Jan 09 02:38:11 1997 +0100
@@ -146,7 +146,9 @@
     |mgr|
 
     mgr := TheOneAndOnlyInstance.
-    mgr releaseDependencies.
+    mgr notNil ifTrue:[
+        mgr releaseDependencies.
+    ].
     TheOneAndOnlyInstance := nil.
 
     "
@@ -661,6 +663,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.34 1997-01-09 01:29:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.35 1997-01-09 01:38:11 cg Exp $'
 ! !
 HistoryManager initialize!
--- a/HistoryManager.st	Thu Jan 09 02:29:05 1997 +0100
+++ b/HistoryManager.st	Thu Jan 09 02:38:11 1997 +0100
@@ -146,7 +146,9 @@
     |mgr|
 
     mgr := TheOneAndOnlyInstance.
-    mgr releaseDependencies.
+    mgr notNil ifTrue:[
+        mgr releaseDependencies.
+    ].
     TheOneAndOnlyInstance := nil.
 
     "
@@ -661,6 +663,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.34 1997-01-09 01:29:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.35 1997-01-09 01:38:11 cg Exp $'
 ! !
 HistoryManager initialize!
hg/stx-libbasic3