IDL(программирование)

[Levsha100]

ЛЮЮЮди, кто-нибудь знаком с IDLем?
очень нужна помощь(((((

Да тут хелп есть, правда на английском..в этом и загвоздка(((
лит-ра то вроде есть,токо на англо языческом.

Странно .

[sbiten]

ЛЮДИ помогите пожалуйста с добавление элемента в линейный односвязный список на IDL!!! горит очень"!!!((((

[sbiten]

Сделала отдельно меню простое и при нажатии File разворачивается и появляется кнопка Import, ну и так далее..Оно у меня все открывается, а не могу сделать чтобы при новом нажатии Import файл загружался в тот же список((
HELP! вот код на IDL..


PRO disser_import,$
GROUP = GROUP,$
UPDATE_LIST=update_list,$
Event

COMPILE_OPT hidden, strictarr

catch,error_status
if (error_status ne 0) then begin
dummy = DIALOG_MESSAGE(!ERROR_STATE.msg, /ERROR, $
TITLE='Import_Image Error')
return
endif

files = DIALOG_READ_IMAGE(FILE=filename, QUERY=queryStr, IMAGE=image,RED=red,$
GREEN=green, BLUE=blue, GET_PATH=gp)

if (files eq '') then return


tempStr = { IMAGE: image, $
R: red, $
G: green, $
B: blue, $
QUERY: queryStr $
}


variname = import_create_varname(filename,gp)
(SCOPE_VARFETCH(variName, /ENTER, LEVEL=-1)) = TEMPORARY(tempStr)

wTLB = WIDGET_BASE(/COLUMN, TITLE='Available list ',$
XOFFSET=400, $
YOFFSET=200 , $
XSIZE = 250,$
YSIZE = 200)
wLis = WIDGET_BASE(wTLB)

wlist = WIDGET_LIST(wLis, VALUE=variname, YSIZE = 14, $
XSIZE = 43,$
/FRAME,$
UVALUE = 'list')


sState = {wlist: wList $
}
WIDGET_CONTROL, wTLB, SET_UVALUE=sState
WIDGET_CONTROL,wTLB, /REALIZE
XMANAGER,'disser_import',wTLB, /JUST_REG, /NO_BLOCK
END

pro disserta,sEvent
COMPILE_OPT idl2, hidden
WIDGET_CONTROL, sEvent.id, GET_UVALUE=uval
case uval of
'IMPORT': begin
disser_import
end

ENDCASE
end


pro disserta

base = WIDGET_BASE(TITLE = 'Window multiregistration index', $
XSIZE=500, $
FLOATING=floating, $
MBAR=wMenuBase, $
XOFFSET=400, $
YOFFSET=100)

wFileMenu = WIDGET_BUTTON(wMenuBase, Value='File', /Menu)
void = WIDGET_BUTTON($
wFileMenu, $
Value='Import File...', $
UNAME='import_image', $
Uvalue='IMPORT', $
EVENT_PRO='disser_import' $
)

; Realize the widgets:
WIDGET_CONTROL, base, /REALIZE

; Hand off control of the widget to the XMANAGER:
XMANAGER, "disserta", base, GROUP_LEADER = GROUP, /NO_BLOCK

END

[sbiten]

подскажите пожалуйста, как связать два одинаковых изображения на языке IDL, открытых в разных окнах и разного масштаба.. одно изображение уменьшенное с помощью CONGRID, а другое имеет исходный размер..