Mercurial Mercurial > hg > stx-libwidg / 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.
use #invalidate instead of #redraw
authorClaus Gittinger <cg@exept.de>
Wed, 29 May 1996 16:40:41 +0200
changeset 722 3f297a438fec
parent 721 4a01084cf643
child 723 0b046279e21b
use #invalidate instead of #redraw
SelListV.st file | annotate | diff | comparison | revisions
SelectionInListView.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- a/SelListV.st	Wed May 29 16:38:27 1996 +0200
+++ b/SelListV.st	Wed May 29 16:40:41 1996 +0200
@@ -2580,11 +2580,11 @@
     multipleSelectOk ifTrue:[
         oldSelection := selection.
         selection := OrderedCollection withAll:(1 to:self size).
-        shown ifTrue:[self redraw].
+        self invalidate.
         self selectionChangedFrom:oldSelection.
     ]
 
-    "Modified: 25.5.1996 / 13:04:57 / cg"
+    "Modified: 29.5.1996 / 16:39:07 / cg"
 !
 
 selectElement:anObject
@@ -2841,5 +2841,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.75 1996-05-28 19:17:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.76 1996-05-29 14:39:30 cg Exp $'
 ! !
--- a/SelectionInListView.st	Wed May 29 16:38:27 1996 +0200
+++ b/SelectionInListView.st	Wed May 29 16:40:41 1996 +0200
@@ -2580,11 +2580,11 @@
     multipleSelectOk ifTrue:[
         oldSelection := selection.
         selection := OrderedCollection withAll:(1 to:self size).
-        shown ifTrue:[self redraw].
+        self invalidate.
         self selectionChangedFrom:oldSelection.
     ]
 
-    "Modified: 25.5.1996 / 13:04:57 / cg"
+    "Modified: 29.5.1996 / 16:39:07 / cg"
 !
 
 selectElement:anObject
@@ -2841,5 +2841,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.75 1996-05-28 19:17:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.76 1996-05-29 14:39:30 cg Exp $'
 ! !
--- a/TextView.st	Wed May 29 16:38:27 1996 +0200
+++ b/TextView.st	Wed May 29 16:40:41 1996 +0200
@@ -320,11 +320,11 @@
     selectionBgColor := color2 on:device.
     shown ifTrue:[
         self hasSelection ifTrue:[
-            self redraw
+            self invalidate
         ]
     ]
 
-    "Modified: 28.5.1996 / 22:20:19 / cg"
+    "Modified: 29.5.1996 / 16:22:15 / cg"
 ! !
 
 !TextView methodsFor:'accessing-mvc'!
@@ -2214,5 +2214,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.57 1996-05-29 12:55:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.58 1996-05-29 14:40:11 cg Exp $'
 ! !
--- a/VarPanel.st	Wed May 29 16:38:27 1996 +0200
+++ b/VarPanel.st	Wed May 29 16:40:41 1996 +0200
@@ -495,11 +495,11 @@
         shown ifTrue:[
             self cursor:cursor.
             self sizeChanged:nil.
-           self redraw.
+            self invalidate.
         ]
     ]
 
-    "Modified: 6.3.1996 / 18:09:22 / cg"
+    "Modified: 29.5.1996 / 16:22:35 / cg"
 !
 
 removeSubView:aView
@@ -566,27 +566,28 @@
      individual views to be manipulated."
 
     (styleSymbol ~~ handleStyle) ifTrue:[
-	handleStyle := styleSymbol.
-	handleStyle == #next ifTrue:[
-	    shadowForm := self class shadowFormOn:device.
-	    lightForm := self class lightFormOn:device.
-	] ifFalse:[
-	    shadowForm := lightForm := nil
-	].
+        handleStyle := styleSymbol.
+        handleStyle == #next ifTrue:[
+            shadowForm := self class shadowFormOn:device.
+            lightForm := self class lightFormOn:device.
+        ] ifFalse:[
+            shadowForm := lightForm := nil
+        ].
 
-	shadowForm notNil ifTrue:[
-	    (self is3D and:[handleStyle ~~ #motif]) ifTrue:[
-		self barHeight:(shadowForm height + 2).
-		barWidth := shadowForm width
-	    ]
-	].
-	shown ifTrue:[
-	    self resizeSubviews.
-	    self redraw
-	]
+        shadowForm notNil ifTrue:[
+            (self is3D and:[handleStyle ~~ #motif]) ifTrue:[
+                self barHeight:(shadowForm height + 2).
+                barWidth := shadowForm width
+            ]
+        ].
+        shown ifTrue:[
+            self resizeSubviews.
+            self invalidate
+        ]
     ]
 
     "Created: 24.2.1996 / 19:04:07 / cg"
+    "Modified: 29.5.1996 / 16:22:24 / cg"
 !
 
 style:styleSymbol
@@ -1178,5 +1179,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.11 1996-04-27 18:20:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.12 1996-05-29 14:40:41 cg Exp $'
 ! !
--- a/VariablePanel.st	Wed May 29 16:38:27 1996 +0200
+++ b/VariablePanel.st	Wed May 29 16:40:41 1996 +0200
@@ -495,11 +495,11 @@
         shown ifTrue:[
             self cursor:cursor.
             self sizeChanged:nil.
-           self redraw.
+            self invalidate.
         ]
     ]
 
-    "Modified: 6.3.1996 / 18:09:22 / cg"
+    "Modified: 29.5.1996 / 16:22:35 / cg"
 !
 
 removeSubView:aView
@@ -566,27 +566,28 @@
      individual views to be manipulated."
 
     (styleSymbol ~~ handleStyle) ifTrue:[
-	handleStyle := styleSymbol.
-	handleStyle == #next ifTrue:[
-	    shadowForm := self class shadowFormOn:device.
-	    lightForm := self class lightFormOn:device.
-	] ifFalse:[
-	    shadowForm := lightForm := nil
-	].
+        handleStyle := styleSymbol.
+        handleStyle == #next ifTrue:[
+            shadowForm := self class shadowFormOn:device.
+            lightForm := self class lightFormOn:device.
+        ] ifFalse:[
+            shadowForm := lightForm := nil
+        ].
 
-	shadowForm notNil ifTrue:[
-	    (self is3D and:[handleStyle ~~ #motif]) ifTrue:[
-		self barHeight:(shadowForm height + 2).
-		barWidth := shadowForm width
-	    ]
-	].
-	shown ifTrue:[
-	    self resizeSubviews.
-	    self redraw
-	]
+        shadowForm notNil ifTrue:[
+            (self is3D and:[handleStyle ~~ #motif]) ifTrue:[
+                self barHeight:(shadowForm height + 2).
+                barWidth := shadowForm width
+            ]
+        ].
+        shown ifTrue:[
+            self resizeSubviews.
+            self invalidate
+        ]
     ]
 
     "Created: 24.2.1996 / 19:04:07 / cg"
+    "Modified: 29.5.1996 / 16:22:24 / cg"
 !
 
 style:styleSymbol
@@ -1178,5 +1179,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.11 1996-04-27 18:20:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.12 1996-05-29 14:40:41 cg Exp $'
 ! !
hg/stx-libwidg