equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 "{ Package: 'stx:libtool2' }" |
13 |
|
14 |
13 |
15 "{ NameSpace: NewInspector }" |
14 "{ NameSpace: NewInspector }" |
16 |
15 |
17 SimpleView subclass:#NewInspectorPanelView |
16 SimpleView subclass:#NewInspectorPanelView |
18 instanceVariableNames:'frames labelViews listViews scrollBar maxDepth leftHistory |
17 instanceVariableNames:'frames labelViews listViews scrollBar maxDepth leftHistory |
320 labelMenu |
319 labelMenu |
321 "popup menu required by any label. Delegate the request to the corresponding label |
320 "popup menu required by any label. Delegate the request to the corresponding label |
322 " |
321 " |
323 |sqNr view| |
322 |sqNr view| |
324 |
323 |
325 view := (WindowGroup lastEventQuerySignal raise) view. |
324 view := (WindowGroup lastEventQuerySignal query) view. |
326 sqNr := labelViews findFirst:[:v| v == view]. |
325 sqNr := labelViews findFirst:[:v| v == view]. |
327 |
326 |
328 sqNr ~~ 0 ifTrue:[ |
327 sqNr ~~ 0 ifTrue:[ |
329 view := labelViews at:sqNr. |
328 view := labelViews at:sqNr. |
330 |
329 |
491 viewMenu |
490 viewMenu |
492 "popup menu required by any view. Delegate the request to the corresponding view |
491 "popup menu required by any view. Delegate the request to the corresponding view |
493 " |
492 " |
494 |sqNr view| |
493 |sqNr view| |
495 |
494 |
496 view := (WindowGroup lastEventQuerySignal raise) view. |
495 view := (WindowGroup lastEventQuerySignal query) view. |
497 sqNr := listViews findFirst:[:v| v == view]. |
496 sqNr := listViews findFirst:[:v| v == view]. |
498 |
497 |
499 sqNr notNil ifTrue:[^ self viewMenu:sqNr] |
498 sqNr notNil ifTrue:[^ self viewMenu:sqNr] |
500 ifFalse:[^ nil] |
499 ifFalse:[^ nil] |
501 ! |
500 ! |