Re: Activating window using cursor [message #7201] |
Mon, 21 October 1996 00:00  |
paul
Messages: 22 Registered: June 1991
|
Junior Member |
|
|
In article <3266495F.250F537C@tls-tautenburg.de> Bringfried Stecklum <stecklum@tls-tautenburg.de> writes:
Hi,
I didn't find a solution for the following problem in the manuals.
So, here's the question. I want to make a random choice of images
being displayed in individual windows. How can I pass the window
ID to IDL just by moving the cursor onto the window (and perhaps
clicking there)? Usually, the cursor works only on the activated
window. Any solution without widgets?
This works for me:
pro wselect
;+
; ROUTINE: wselect
;
; PURPOSE: wset to window selected by a mouse click
;
; USEAGE: wselect
;
; INPUT: none
;
; OUTPUT: none
;
; SIDE EFFECTS:
; changes current window (changes value of !d.window)
;
; author: Paul Ricchiazzi 11jan94
; Institute for Computational Earth System Science
; University of California, Santa Barbara
;-
;
device,window_state=ws
nw=n_elements(ws)
chosen=-1
repeat begin
for i=0,nw-1 do begin
if ws(i) eq 1 then begin
wset,i
cursor,xdum,ydum,/device,/nowait
if !err ne 0 then chosen=i
endif
endfor
endrep until chosen ne -1
wset,chosen
cursor,xdum,ydum,/device,/up
end
--
____________________________________________________________ _______________
Paul Ricchiazzi
Institute for Computational Earth System Science (ICESS)
University of California, Santa Barbara
email: paul@icess.ucsb.edu
____________________________________________________________ _______________
|
|
|