examples
authorClaus Gittinger <cg@exept.de>
Sat, 27 Apr 1996 19:55:36 +0200
changeset 516 f007fd40377a
parent 515 3f2035620126
child 517 cc3d4e0fc758
examples
ImageInspectorView.st
ImgInspV.st
ProjectV.st
ProjectView.st
--- a/ImageInspectorView.st	Fri Apr 26 17:50:37 1996 +0200
+++ b/ImageInspectorView.st	Sat Apr 27 19:55:36 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 InspectorView subclass:#ImageInspectorView
-	 instanceVariableNames:'imageView'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Inspector'
+	instanceVariableNames:'imageView'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Inspector'
 !
 
 !ImageInspectorView class methodsFor:'documentation'!
@@ -38,10 +38,6 @@
     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.8 1995-11-11 15:40:10 cg Exp $'
 ! !
 
 !ImageInspectorView methodsFor:'accessing'!
@@ -84,3 +80,9 @@
      ImageInspectorView inspect:(Image fromFile:'bitmaps/claus.gif')
     "
 ! !
+
+!ImageInspectorView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.9 1996-04-27 17:55:05 cg Exp $'
+! !
--- a/ImgInspV.st	Fri Apr 26 17:50:37 1996 +0200
+++ b/ImgInspV.st	Sat Apr 27 19:55:36 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 InspectorView subclass:#ImageInspectorView
-	 instanceVariableNames:'imageView'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Inspector'
+	instanceVariableNames:'imageView'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Inspector'
 !
 
 !ImageInspectorView class methodsFor:'documentation'!
@@ -38,10 +38,6 @@
     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.8 1995-11-11 15:40:10 cg Exp $'
 ! !
 
 !ImageInspectorView methodsFor:'accessing'!
@@ -84,3 +80,9 @@
      ImageInspectorView inspect:(Image fromFile:'bitmaps/claus.gif')
     "
 ! !
+
+!ImageInspectorView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ImgInspV.st,v 1.9 1996-04-27 17:55:05 cg Exp $'
+! !
--- a/ProjectV.st	Fri Apr 26 17:50:37 1996 +0200
+++ b/ProjectV.st	Sat Apr 27 19:55:36 1996 +0200
@@ -484,8 +484,8 @@
 
     (self confirm:(resources
                         string:'About to remove %1 classes and %2 additional methods.\\Are you certain you want this ?'
-                        with:classesToRemove size printString
-                        with:methodsToRemove size printString) withCRs)
+                        with:classesToRemove size
+                        with:methodsToRemove size) withCRs)
         ifTrue:[
             classesToRemove do:[:aClass |
                 ('PROJECT: removing ' , aClass name) infoPrintNL.
@@ -611,5 +611,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.28 1996-04-26 15:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.29 1996-04-27 17:55:36 cg Exp $'
 ! !
--- a/ProjectView.st	Fri Apr 26 17:50:37 1996 +0200
+++ b/ProjectView.st	Sat Apr 27 19:55:36 1996 +0200
@@ -484,8 +484,8 @@
 
     (self confirm:(resources
                         string:'About to remove %1 classes and %2 additional methods.\\Are you certain you want this ?'
-                        with:classesToRemove size printString
-                        with:methodsToRemove size printString) withCRs)
+                        with:classesToRemove size
+                        with:methodsToRemove size) withCRs)
         ifTrue:[
             classesToRemove do:[:aClass |
                 ('PROJECT: removing ' , aClass name) infoPrintNL.
@@ -611,5 +611,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.28 1996-04-26 15:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.29 1996-04-27 17:55:36 cg Exp $'
 ! !