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.
.
authorclaus
Wed, 30 Aug 1995 20:36:12 +0200
changeset 128 6eb4cc559360
parent 127 03477a403b7a
child 129 d5446f5f565c
.
ChangeSetBrowser.st file | annotate | diff | comparison | revisions
ChgSetBrwsr.st file | annotate | diff | comparison | revisions
ClassInspV.st file | annotate | diff | comparison | revisions
ClassInspectorView.st file | annotate | diff | comparison | revisions
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions
DictInspV.st file | annotate | diff | comparison | revisions
DictionaryInspectorView.st file | annotate | diff | comparison | revisions
DiffTextView.st file | annotate | diff | comparison | revisions
DiffTxtV.st file | annotate | diff | comparison | revisions
DirBrwsr.st file | annotate | diff | comparison | revisions
EvMonitor.st file | annotate | diff | comparison | revisions
EventMonitor.st file | annotate | diff | comparison | revisions
ImageInspectorView.st file | annotate | diff | comparison | revisions
ImgInspV.st file | annotate | diff | comparison | revisions
InspView.st file | annotate | diff | comparison | revisions
InspectorView.st file | annotate | diff | comparison | revisions
Launcher.st file | annotate | diff | comparison | revisions
MemMonitor.st file | annotate | diff | comparison | revisions
MemUsageV.st file | annotate | diff | comparison | revisions
MemoryMonitor.st file | annotate | diff | comparison | revisions
MemoryUsageView.st file | annotate | diff | comparison | revisions 
--- a/ChangeSetBrowser.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ChangeSetBrowser.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Browsers'
 !
 
-ChangeSetBrowser comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.7 1995-08-10 18:37:11 claus Exp $
-'!
-
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.7 1995-08-10 18:37:11 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.8 1995-08-30 18:35:28 claus Exp $
 "
 !
 
--- a/ChgSetBrwsr.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ChgSetBrwsr.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Browsers'
 !
 
-ChangeSetBrowser comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.7 1995-08-10 18:37:11 claus Exp $
-'!
-
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.7 1995-08-10 18:37:11 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.8 1995-08-30 18:35:28 claus Exp $
 "
 !
 
--- a/ClassInspV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ClassInspV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-ClassInspectorView  comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/ClassInspV.st,v 1.4 1995-08-10 18:37:14 claus Exp $
-'!
-
 !ClassInspectorView methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ClassInspV.st,v 1.4 1995-08-10 18:37:14 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ClassInspV.st,v 1.5 1995-08-30 18:35:31 claus Exp $
 "
 !
 
--- a/ClassInspectorView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ClassInspectorView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-ClassInspectorView  comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.4 1995-08-10 18:37:14 claus Exp $
-'!
-
 !ClassInspectorView methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.4 1995-08-10 18:37:14 claus Exp $
+$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.5 1995-08-30 18:35:31 claus Exp $
 "
 !
 
--- a/ConInspV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ConInspV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,13 +19,6 @@
 	 category:'Interface-Inspector'
 !
 
-ContextInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.14 1995-08-28 16:12:56 claus Exp $
-'!
-
 !ContextInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -44,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.14 1995-08-28 16:12:56 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.15 1995-08-30 18:35:37 claus Exp $
 "
 !
 
--- a/ContextInspectorView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ContextInspectorView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,13 +19,6 @@
 	 category:'Interface-Inspector'
 !
 
-ContextInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.14 1995-08-28 16:12:56 claus Exp $
-'!
-
 !ContextInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -44,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.14 1995-08-28 16:12:56 claus Exp $
+$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.15 1995-08-30 18:35:37 claus Exp $
 "
 !
 
--- a/DictInspV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/DictInspV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-DictionaryInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.15 1995-08-10 18:37:29 claus Exp $
-'!
-
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.15 1995-08-10 18:37:29 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.16 1995-08-30 18:35:41 claus Exp $
 "
 !
 
@@ -155,7 +148,7 @@
 						k displayString
 					       ]
 					 ].
-    aList := keys asOrderedCollection.
+    aList := aList asOrderedCollection.
     aList addFirst:'self'.
     ^ aList
 !
--- a/DictionaryInspectorView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/DictionaryInspectorView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-DictionaryInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.15 1995-08-10 18:37:29 claus Exp $
-'!
-
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.15 1995-08-10 18:37:29 claus Exp $
+$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.16 1995-08-30 18:35:41 claus Exp $
 "
 !
 
@@ -155,7 +148,7 @@
 						k displayString
 					       ]
 					 ].
-    aList := keys asOrderedCollection.
+    aList := aList asOrderedCollection.
     aList addFirst:'self'.
     ^ aList
 !
--- a/DiffTextView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/DiffTextView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Views-Text'
 !
 
-DiffTextView comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.7 1995-08-10 18:37:33 claus Exp $
-'!
-
 !DiffTextView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.7 1995-08-10 18:37:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/DiffTextView.st,v 1.8 1995-08-30 18:35:44 claus Exp $
 "
 !
 
--- a/DiffTxtV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/DiffTxtV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Views-Text'
 !
 
-DiffTextView comment:'
-COPYRIGHT (c) 1994 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/DiffTxtV.st,v 1.7 1995-08-10 18:37:33 claus Exp $
-'!
-
 !DiffTextView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/DiffTxtV.st,v 1.7 1995-08-10 18:37:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/DiffTxtV.st,v 1.8 1995-08-30 18:35:44 claus Exp $
 "
 !
 
--- a/DirBrwsr.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/DirBrwsr.st	Wed Aug 30 20:36:12 1995 +0200
@@ -18,13 +18,6 @@
 	 category:'Interface-Browsers'
 !
 
-DirectoryBrowser comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/DirBrwsr.st,v 1.11 1995-08-10 18:37:36 claus Exp $
-'!
-
 !DirectoryBrowser class methodsFor:'documentation'!
 
 copyright
@@ -43,7 +36,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/DirBrwsr.st,v 1.11 1995-08-10 18:37:36 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/DirBrwsr.st,v 1.12 1995-08-30 18:35:47 claus Exp $
 "
 !
 
--- a/EvMonitor.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/EvMonitor.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,13 +19,6 @@
 	 category:'Interface-Tools'
 !
 
-EventMonitor comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.8 1995-08-10 18:37:40 claus Exp $
-'!
-
 !EventMonitor class methodsFor:'documentation'!
 
 copyright
@@ -44,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.8 1995-08-10 18:37:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/EvMonitor.st,v 1.9 1995-08-30 18:35:50 claus Exp $
 "
 !
 
--- a/EventMonitor.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/EventMonitor.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,13 +19,6 @@
 	 category:'Interface-Tools'
 !
 
-EventMonitor comment:'
-COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.8 1995-08-10 18:37:40 claus Exp $
-'!
-
 !EventMonitor class methodsFor:'documentation'!
 
 copyright
@@ -44,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.8 1995-08-10 18:37:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.9 1995-08-30 18:35:50 claus Exp $
 "
 !
 
--- a/ImageInspectorView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ImageInspectorView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,15 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-ImageInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-this class allows better inspection of images
-
-$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.6 1995-08-10 18:37:49 claus Exp $
-'!
-
 !ImageInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +33,16 @@
 "
 !
 
+documentation
+"
+    this class allows better inspection of images,
+    by adding another subView, which displays the image.
+"
+!
+
 version
 "
-$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.6 1995-08-10 18:37:49 claus Exp $
+$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.7 1995-08-30 18:35:54 claus Exp $
 "
 ! !
 
--- a/ImgInspV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/ImgInspV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -17,15 +17,6 @@
 	 category:'Interface-Inspector'
 !
 
-ImageInspectorView comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-this class allows better inspection of images
-
-$Header: /cvs/stx/stx/libtool/Attic/ImgInspV.st,v 1.6 1995-08-10 18:37:49 claus Exp $
-'!
-
 !ImageInspectorView class methodsFor:'documentation'!
 
 copyright
@@ -42,9 +33,16 @@
 "
 !
 
+documentation
+"
+    this class allows better inspection of images,
+    by adding another subView, which displays the image.
+"
+!
+
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ImgInspV.st,v 1.6 1995-08-10 18:37:49 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ImgInspV.st,v 1.7 1995-08-30 18:35:54 claus Exp $
 "
 ! !
 
--- a/InspView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/InspView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -20,13 +20,6 @@
 	 category:'Interface-Inspector'
 !
 
-InspectorView comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.28 1995-08-10 18:37:52 claus Exp $
-'!
-
 !InspectorView class methodsFor:'documentation'!
 
 copyright
@@ -45,7 +38,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.28 1995-08-10 18:37:52 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.29 1995-08-30 18:35:57 claus Exp $
 "
 !
 
--- a/InspectorView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/InspectorView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -20,13 +20,6 @@
 	 category:'Interface-Inspector'
 !
 
-InspectorView comment:'
-COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.28 1995-08-10 18:37:52 claus Exp $
-'!
-
 !InspectorView class methodsFor:'documentation'!
 
 copyright
@@ -45,7 +38,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.28 1995-08-10 18:37:52 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.29 1995-08-30 18:35:57 claus Exp $
 "
 !
 
--- a/Launcher.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/Launcher.st	Wed Aug 30 20:36:12 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.34 1995-08-29 23:46:56 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.35 1995-08-30 18:36:12 claus Exp $
 "
 !
 
@@ -1540,30 +1540,53 @@
 objectModuleDialog
     |allModules moduleNames subModuleNames getModules
      box registered l unloadButton
-     moduleList list1 list2 listView1 listView2
-     frame y|
+     moduleList list1 list2 listView1 listView2 frame infoView
+     y|
 
-    allModules := ObjectFileLoader moduleInfo asOrderedCollection.
+    allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
     "/ sorting by reverse id brings newest ones to the top (a side effect)
     allModules sort:[:a :b | (a at:#id) > (b at:#id)].
 
-    list1 := SelectionInList with:(allModules collect:[:entry | entry at:#name]).
+    list1 := SelectionInList with:(allModules collect:[:entry | (entry at:#name)]).
     list2 := SelectionInList new.
 
     box := Dialog new.
     box label:(resources string:'Package dialog').
 
-    l := box addTextLabel:(resources string:'objects:').
+    l := box addTextLabel:(resources string:'Objects:').
     l adjust:#left; borderWidth:0.
 
     listView1 := HVScrollableView for:SelectionInListView miniScrollerH:true.
     listView1 model:list1.
-    listView1 origin:0.0@0.0 corner:1.0@0.5. "/ ; inset:2.
+    listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
     listView1 action:[:sel |
-	|info|
+	|info classNames tabs|
 
 	info := allModules at:sel.
-	list2 list:(info at:#classNames) asSortedCollection.
+
+	tabs := TabulatorSpecification unit:#inch positions:#(0 3).
+
+	"/ fill bottom list with class-info
+
+	classNames := (info at:#classNames) asSortedCollection.
+	classNames := classNames collect:[:cName |
+			|cls entry rev listEntry|
+
+			listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
+			listEntry colAt:1 put:cName.
+
+			cls := Smalltalk classNamed:cName.
+			cls isNil ifTrue:[
+			    listEntry colAt:2 put:'(class removed)'.
+			] ifFalse:[
+			    rev := cls revision.
+			    rev notNil ifTrue:[
+				listEntry colAt:2 put:'(rev' , rev , ')'
+			    ].    
+			].
+			listEntry
+		      ].
+	list2 list:classNames.
 	(info at:#dynamic) ifTrue:[
 	    unloadButton enable.
 	] ifFalse:[
@@ -1572,17 +1595,18 @@
     ].
 
     box addComponent:listView1 tabable:true.
+    listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
 
     l := box addTextLabel:(resources string:'contained classes/subsets:').
     l adjust:#left; borderWidth:0.
-    l origin:0.0@0.5 corner:1.0@0.5.
+    l origin:0.0@0.4 corner:1.0@0.4.
     l topInset:(View viewSpacing).
-    l bottomInset:(l preferredExtent y negated - View viewSpacing).
+    l bottomInset:((l preferredExtent y) negated - View viewSpacing).
 
     listView2 := HVScrollableView for:SelectionInListView  miniScrollerH:true.
-    listView2 model:list2.
+    listView2 model:list2; printItems:false.
     box addComponent:listView2 tabable:true.
-    listView2 origin:0.0@0.5 corner:1.0@1.0. "/ ; inset:2.
+    listView2 origin:0.0@0.4 corner:1.0@1.0. "/ ; inset:2.
     listView2 disable.
 
     unloadButton := Button label:(resources string:'unload').
@@ -1593,7 +1617,7 @@
 	self withWaitCursorDo:[
 	    box withWaitCursorDo:[
 		ObjectFileLoader unloadObjectFile:(info at:#pathName).
-		allModules := ObjectFileLoader moduleInfo asOrderedCollection.
+		allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
 		allModules sort:[:a :b | (a at:#id) > (b at:#id)].
 
 		list1 list:(allModules collect:[:entry | entry at:#name]).
@@ -1611,10 +1635,10 @@
     listView2 topInset:(l preferredExtent y + 5).
     listView2 bottomInset:(box preferredExtent y - y).
 
-    box width:350; height:400; sizeFixed:true.
+    box width:400; height:400; sizeFixed:true.
     box showAtPointer.
 
-    "Modified: 28.8.1995 / 21:42:23 / claus"
+    "Modified: 30.8.1995 / 18:04:10 / claus"
 ! !
 
 !NewLauncher methodsFor:'actions - projects'!
--- a/MemMonitor.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/MemMonitor.st	Wed Aug 30 20:36:12 1995 +0200
@@ -21,13 +21,6 @@
 	 category:'Interface-Tools'
 !
 
-MemoryMonitor comment:'
- COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.20 1995-08-10 18:38:01 claus Exp $
-'!
-
 !MemoryMonitor class methodsFor:'documentation'!
 
 copyright
@@ -46,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.20 1995-08-10 18:38:01 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/MemMonitor.st,v 1.21 1995-08-30 18:36:02 claus Exp $
 "
 !
 
--- a/MemUsageV.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/MemUsageV.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,11 +19,6 @@
 	 category:'Interface-Tools'
 !
 
-MemoryUsageView comment:'
- COPYRIGHT (c) 1992 by Claus Gittinger
-	      All Rights Reserved
-'!
-
 !MemoryUsageView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/MemUsageV.st,v 1.11 1995-08-10 18:38:05 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/MemUsageV.st,v 1.12 1995-08-30 18:36:07 claus Exp $
 "
 !
 
--- a/MemoryMonitor.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/MemoryMonitor.st	Wed Aug 30 20:36:12 1995 +0200
@@ -21,13 +21,6 @@
 	 category:'Interface-Tools'
 !
 
-MemoryMonitor comment:'
- COPYRIGHT (c) 1991 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.20 1995-08-10 18:38:01 claus Exp $
-'!
-
 !MemoryMonitor class methodsFor:'documentation'!
 
 copyright
@@ -46,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.20 1995-08-10 18:38:01 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.21 1995-08-30 18:36:02 claus Exp $
 "
 !
 
--- a/MemoryUsageView.st	Wed Aug 30 02:12:54 1995 +0200
+++ b/MemoryUsageView.st	Wed Aug 30 20:36:12 1995 +0200
@@ -19,11 +19,6 @@
 	 category:'Interface-Tools'
 !
 
-MemoryUsageView comment:'
- COPYRIGHT (c) 1992 by Claus Gittinger
-	      All Rights Reserved
-'!
-
 !MemoryUsageView class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.11 1995-08-10 18:38:05 claus Exp $
+$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.12 1995-08-30 18:36:07 claus Exp $
 "
 !
hg/stx-libtool