Re: my favourite dot command [message #63490 is a reply to message #63374] |
Fri, 07 November 2008 11:10   |
Vince Hradil
Messages: 574 Registered: December 1999
|
Senior Member |
|
|
On Nov 7, 12:56 pm, Vince Hradil <vincehra...@gmail.com> wrote:
> On Nov 7, 12:43 pm, David Fanning <n...@dfanning.com> wrote:
>
>
>
>> gsever writes:
>>> I am on RHEL v5.2, and with the latest IDL Workbench update v7.0.3. It
>>> is working here :)
>
>>> Check the screenshot:
>
>>> http://img384.imageshack.us/my.php?image=3Dsearchra1.png
>
>>> Search window is opened by clicking the flashlight symbol.
>
>> Ah, I missed the flashlight. :-)
>
>> Yes, I guess it works, but it didn't find all those
>> Execute's Vince is talking about. :-(
>
>> Cheers,
>
>> David
>
>> --
>> David Fanning, Ph.D.
>> Coyote's Guide to IDL Programming (www.dfanning.com)
>> Sepore ma de ni thui. ("Perhaps thou speakest truth.")
>
> Do I have some outdated code on my machine? Never!...
display.pro, line 7:
Pro Display_Event, event
;
; Very simple event handler. Get array, execute the "command".
;
Widget_Control, event.top, Get_UValue=array
Widget_Control, event.id, Get_UValue=command
result = Execute(command)
END ;---------------------------------------------------------
fsc_psconfig__define.pro, line 468 and line 471:
values = self.fontnameID->GetValues()
selection = self.fontnameID->GetSelection()
index = Where(StrUpCase(values) EQ StrUpCase(selection))
FOR j=1,7 DO BEGIN
cmd = "self." + values[j] + " = 0"
ok = Execute(cmd)
IF NOT ok THEN ok = Dialog_Message("Problem executing statment:
" + cmd)
ENDFOR
IF index[0] NE 0 THEN ok = Execute("self." + values[index[0]] + " =
1")
self.fontnameSet = values[index[0]]
ps_form.pro, line 339 (plus 4 more):
FOR j=0,N_Elements(names)-1 DO BEGIN
IF names(j) NE 'YOFF' THEN BEGIN
str = names(j) + '= defaults.' + names(j)
dummy = Execute(str)
ENDIF
ENDFOR
xwindow.pro, line 637 (plus 7 more):
'Create PostScript File': BEGIN
keywords = info.ps
thisDevice = !D.NAME
TVLCT, r, g, b, /GET
SET_PLOT, 'PS'
!P.Background = info.background
TVLCT, info.r, info.g, info.b, info.bottom
DEVICE, _EXTRA=keywords
ok = EXECUTE(plotObj.thisCommand)
|
|
|