oops - dont delay update if occurring during startup;
dont offer definition menu-item for autoloaded classes.
--- a/BrowserView.st Sun Jan 05 03:22:50 1997 +0100
+++ b/BrowserView.st Sun Jan 05 14:43:00 1997 +0100
@@ -359,7 +359,7 @@
!
update:something with:someArgument from:changedObject
- |argList|
+ |argList sensor|
(changedObject == ObjectMemory) ifTrue:[
(something == #earlyRestart
@@ -377,6 +377,12 @@
^ self
].
+ (sensor := self sensor) isNil ifTrue:[
+ "/ mhmh - an update, but I am not yet visible
+
+ ^ self delayedUpdate:something with:someArgument from:changedObject
+ ].
+
"/
"/ if such an update is already in the queue, ignore it.
"/ Otherwise push it as an event, to be handled when I am back
@@ -1856,7 +1862,6 @@
] ifFalse:[
currentClass isLoaded ifFalse:[
labels := #(
- 'definition'
'documentation'
'-'
'class refs'
@@ -1866,7 +1871,6 @@
'load'
).
selectors := #(
- classDefinition
classDocumentation
nil
classRefs
@@ -2008,7 +2012,7 @@
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: 4.1.1997 / 15:48:15 / cg"
+ "Modified: 5.1.1997 / 14:32:56 / cg"
!
classNewClass
@@ -9055,6 +9059,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.245 1997-01-05 13:43:00 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Sun Jan 05 03:22:50 1997 +0100
+++ b/BrwsrView.st Sun Jan 05 14:43:00 1997 +0100
@@ -359,7 +359,7 @@
!
update:something with:someArgument from:changedObject
- |argList|
+ |argList sensor|
(changedObject == ObjectMemory) ifTrue:[
(something == #earlyRestart
@@ -377,6 +377,12 @@
^ self
].
+ (sensor := self sensor) isNil ifTrue:[
+ "/ mhmh - an update, but I am not yet visible
+
+ ^ self delayedUpdate:something with:someArgument from:changedObject
+ ].
+
"/
"/ if such an update is already in the queue, ignore it.
"/ Otherwise push it as an event, to be handled when I am back
@@ -1856,7 +1862,6 @@
] ifFalse:[
currentClass isLoaded ifFalse:[
labels := #(
- 'definition'
'documentation'
'-'
'class refs'
@@ -1866,7 +1871,6 @@
'load'
).
selectors := #(
- classDefinition
classDocumentation
nil
classRefs
@@ -2008,7 +2012,7 @@
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: 4.1.1997 / 15:48:15 / cg"
+ "Modified: 5.1.1997 / 14:32:56 / cg"
!
classNewClass
@@ -9055,6 +9059,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.244 1997-01-05 02:22:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.245 1997-01-05 13:43:00 cg Exp $'
! !
BrowserView initialize!