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.
show wait cursor while generating display string
authorClaus Gittinger <cg@exept.de>
Wed, 22 Nov 1995 13:43:00 +0100
changeset 188 247042d21994
parent 187 781f0c88e196
child 189 561b4ef50d70
show wait cursor while generating display string
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions
InspView.st file | annotate | diff | comparison | revisions
InspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Tue Nov 21 14:39:12 1995 +0100
+++ b/ConInspV.st	Wed Nov 22 13:43:00 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.16 1995-11-11 15:39:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.17 1995-11-22 12:43:00 cg Exp $'
 !
 
 documentation
@@ -213,10 +213,8 @@
 showSelection:lineNr
     "user clicked on an entry - show value in workspace"
 
-    workspace replace:(values at:lineNr) displayString.
+    self showValue:(values at:lineNr).
     selectedLine := lineNr
-
-
 !
 
 showTemporaries
--- a/ContextInspectorView.st	Tue Nov 21 14:39:12 1995 +0100
+++ b/ContextInspectorView.st	Wed Nov 22 13:43:00 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.16 1995-11-11 15:39:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.17 1995-11-22 12:43:00 cg Exp $'
 !
 
 documentation
@@ -213,10 +213,8 @@
 showSelection:lineNr
     "user clicked on an entry - show value in workspace"
 
-    workspace replace:(values at:lineNr) displayString.
+    self showValue:(values at:lineNr).
     selectedLine := lineNr
-
-
 !
 
 showTemporaries
--- a/InspView.st	Tue Nov 21 14:39:12 1995 +0100
+++ b/InspView.st	Wed Nov 22 13:43:00 1995 +0100
@@ -37,7 +37,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.30 1995-11-11 15:40:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.31 1995-11-22 12:42:56 cg Exp $'
 !
 
 documentation
@@ -259,11 +259,18 @@
 	self inspect:inspectedObject.
     ].
     val := self valueAtLine:lineNr.
-    string := val displayString.
-    workspace replace:string.
+    self showValue:val.
     selectedLine := lineNr.
 !
 
+showValue:someValue 
+    "user clicked on an entry - show value in workspace"
+
+    self topView withWaitCursorDo:[
+	workspace replace:someValue displayString.
+    ].
+!
+
 destroy
     inspectedObject := nil.
     monitorProcess notNil ifTrue:[
--- a/InspectorView.st	Tue Nov 21 14:39:12 1995 +0100
+++ b/InspectorView.st	Wed Nov 22 13:43:00 1995 +0100
@@ -37,7 +37,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.30 1995-11-11 15:40:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.31 1995-11-22 12:42:56 cg Exp $'
 !
 
 documentation
@@ -259,11 +259,18 @@
 	self inspect:inspectedObject.
     ].
     val := self valueAtLine:lineNr.
-    string := val displayString.
-    workspace replace:string.
+    self showValue:val.
     selectedLine := lineNr.
 !
 
+showValue:someValue 
+    "user clicked on an entry - show value in workspace"
+
+    self topView withWaitCursorDo:[
+	workspace replace:someValue displayString.
+    ].
+!
+
 destroy
     inspectedObject := nil.
     monitorProcess notNil ifTrue:[
hg/stx-libtool