comp.lang.idl-pvwave archive - RDF feed
type: channel
description: Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado
items: WIDGEt_CONTROL, /TIMER - HOW?

WIDGEt_CONTROL, /TIMER - HOW?
type: item
description: Hi I fail to use the WIDGET_CONTROL, timer=x - feature. What's wrong with the follwing code ? (I expect to get the actual time every second, but it happens just once). Thank you for your answers, Karlheinz ____________________________________________________________ __________________ __ ____ __ / // _ \ / / Karlheinz Knipp phone: +49 511 - 762 4922 / // /_/ // / University of Hannover fax: +49 511 - 762 2483 / // ____// / Institute for Photogrammetry / // / / / Nienburger Str.1 /_//_/ /_/ FRG 30167 Hannover e-mail: knipp@ipi.uni-hannover.de SNIP vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv vvvvvvvvvvvvv ;+ ; ; test timer-feature in widgets ; ;- ; ============================================================ ================= ; event handling of routine WMX_GTXT pro wmx_x_event, event ; ------------------------------------------------------------ ------------------ ; common for passing parameters between routine and _event common wmx_x_comm, mbase, done_b ; ------------------------------------------------------------ ------------------ ; widget control name = tag_names (event, /structure_name) WIDGET_CONTROL, event.id, GET_UVALUE = uvalue print, systime(0), ': ', uvalue, ' ', name if uvalue eq 'UPDATE' then print, ' TIMER ... ', systime(0) ; ------------------------------------------------------------ ----------------- ; which event case name of "WIDGET_BUTTON": begin if uvalue eq 'DONE' then WIDGET_CONTROL, event.top, /DESTROY end "WIDGET_TIMER": print, systime(0) else: message, name + ' ???? ', /info endcase ; ------------------------------------------------------------ ----------------- ; end of routine_event ( do NOT use return ) end ; ============================================================ ================= ; internal main pro wmx_x, d1, d2 ; ------------------------------------------------------------ ------------------ ; check input if n_params() ne 0 then return ; ------------------------------------------------------------ --------------…
creator: knipp
date: 1994-07-05T12:30:16-00:00