--- a/NewInspectorPanelView.st Tue Mar 27 17:39:21 2007 +0200
+++ b/NewInspectorPanelView.st Mon Apr 02 13:46:42 2007 +0200
@@ -9,8 +9,7 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
+"{ Package: 'stx:libtool2' }"
"{ NameSpace: NewInspector }"
@@ -322,7 +321,7 @@
"
|sqNr view|
- view := (WindowGroup lastEventQuerySignal raise) view.
+ view := (WindowGroup lastEventQuerySignal query) view.
sqNr := labelViews findFirst:[:v| v == view].
sqNr ~~ 0 ifTrue:[
@@ -493,7 +492,7 @@
"
|sqNr view|
- view := (WindowGroup lastEventQuerySignal raise) view.
+ view := (WindowGroup lastEventQuerySignal query) view.
sqNr := listViews findFirst:[:v| v == view].
sqNr notNil ifTrue:[^ self viewMenu:sqNr]