Mercurial Mercurial > hg > stx-libview / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SimpleView.st
changeset 8711 918f955af3e1
parent 8699 b3741d330884
child 8720 c15f7ef8f31b 
--- a/SimpleView.st	Fri Jun 28 09:08:36 2019 +0200
+++ b/SimpleView.st	Fri Jun 28 09:19:28 2019 +0200
@@ -4179,9 +4179,11 @@
     "return my name component to be used for resource-access"
 
     name isNil ifTrue:[
-	name := self class name "asString" asLowercaseFirst
+        name := self className "asString" asLowercaseFirst
     ].
     ^ name
+
+    "Modified: / 28-06-2019 / 09:14:26 / Claus Gittinger"
 !
 
 name:aString
@@ -4912,23 +4914,25 @@
     "remove all subviews"
 
     subViews notNil ifTrue:[
-	subViews copy do:[:aSubView |
-	    aSubView destroy.
-	].
-
-	"/ paranoia ;-)
-	subViews size ~~ 0 ifTrue:[
-	    (self class name , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
-	    subViews := nil
-	].
+        subViews copy do:[:aSubView |
+            aSubView destroy.
+        ].
+
+        "/ paranoia ;-)
+        subViews size ~~ 0 ifTrue:[
+            (self className , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
+            subViews := nil
+        ].
     ].
 
     components notNil ifTrue:[
-	components copy do:[:aComponent |
-	    aComponent destroy.
-	].
-	components := nil.
+        components copy do:[:aComponent |
+            aComponent destroy.
+        ].
+        components := nil.
     ]
+
+    "Modified: / 28-06-2019 / 09:14:18 / Claus Gittinger"
 !
 
 removeComponent:aComponent
@@ -4964,14 +4968,15 @@
 
     aView container:self.
     (aView graphicsDevice ~~ device) ifTrue:[
-	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
-	') has different device than me (' errorPrint.
-	self class name errorPrint. ').' errorPrintCR.
-	aView device:device
-    ].
-
-    "Created: 9.5.1996 / 00:46:59 / cg"
-    "Modified: 10.1.1997 / 18:06:49 / cg"
+        'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
+        ') has different device than me (' errorPrint.
+        self className errorPrint. ').' errorPrintCR.
+        aView device:device
+    ].
+
+    "Created: / 09-05-1996 / 00:46:59 / cg"
+    "Modified: / 10-01-1997 / 18:06:49 / cg"
+    "Modified: / 28-06-2019 / 09:14:34 / Claus Gittinger"
 ! !
 
 !SimpleView methodsFor:'change & update'!
@@ -8105,7 +8110,7 @@
     "/ self originChangedFlag:false extentChangedFlag:false cornerChangedFlag:false.
 
     name isNil ifTrue:[
-        name := self class name.
+        name := self className.
     ].
     bitGravity := #NorthWest. "/ nil.
     viewGravity := nil.
@@ -8120,7 +8125,7 @@
 
     "Modified: / 08-02-2017 / 00:26:52 / cg"
     "Modified: / 18-03-2017 / 00:20:40 / stefan"
-    "Modified: / 16-01-2019 / 13:00:50 / Claus Gittinger"
+    "Modified: / 28-06-2019 / 09:14:22 / Claus Gittinger"
 !
 
 initializeMiddleButtonMenu
@@ -9754,16 +9759,16 @@
 
     myClass := self class.
     (myClass == View or:[myClass == SimpleView]) ifTrue:[
-	^ ViewSpec "/ CompositeSpecCollection
+        ^ ViewSpec "/ CompositeSpecCollection
     ].
 
     "/ try: appending 'Spec' to my classes name
 
-    myName := self class name.
+    myName := self className.
     cls := Smalltalk classNamed:(myName , 'Spec').
     cls notNil ifTrue:[
-	cls := cls autoload.
-	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
+        cls := cls autoload.
+        (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
     ].
 
     (myName endsWith:'View') ifTrue:[
@@ -9774,12 +9779,12 @@
 "/            (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
 "/        ].
 
-	"/ try with 'View' replaced by 'Spec'
-	cls := Smalltalk classNamed:((myName copyButLast:4) , 'View').
-	cls notNil ifTrue:[
-	    cls := cls autoload.
-	    (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
-	]
+        "/ try with 'View' replaced by 'Spec'
+        cls := Smalltalk classNamed:((myName copyButLast:4) , 'View').
+        cls notNil ifTrue:[
+            cls := cls autoload.
+            (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
+        ]
     ].
 
     "/ fall back for all others
@@ -9790,7 +9795,8 @@
      FramedBox new specClass
     "
 
-    "Modified: / 31.10.1997 / 19:44:55 / cg"
+    "Modified: / 31-10-1997 / 19:44:55 / cg"
+    "Modified: / 28-06-2019 / 09:14:38 / Claus Gittinger"
 !
 
 windowStyle
@@ -10302,7 +10308,7 @@
     self drawableId isNil ifTrue:[
         self create.
         self drawableId isNil ifTrue:[
-            ('SimpleView [warning]: could not create view: ' , self class name) errorPrintCR.
+            ('SimpleView [warning]: could not create view: ' , self className) errorPrintCR.
             ^ self
         ]
     ].
@@ -10395,9 +10401,10 @@
 
     self postRealize
 
-    "Modified: / 23.8.1996 / 15:07:16 / stefan"
-    "Created: / 24.7.1997 / 13:10:17 / cg"
-    "Modified: / 27.7.1998 / 20:01:02 / cg"
+    "Modified: / 23-08-1996 / 15:07:16 / stefan"
+    "Created: / 24-07-1997 / 13:10:17 / cg"
+    "Modified: / 27-07-1998 / 20:01:02 / cg"
+    "Modified: / 28-06-2019 / 09:14:30 / Claus Gittinger"
 !
 
 recreate
hg/stx-libview