?????????????? ?????? ? ????????? ?????????? ??????? ?????

! будет обрабатывать данные виджета с идентификатором ID_FIL. То есть будет
! обрабатывать имя файла с исходными данными. Необходимость использования
! SWGCBK связана с тем, что обработка данных, введенных в виджетах,
! производится после обращения к п/программе WGFIN. Чтобы обработать данные
! до этого обращения, следует обратиться к подпрограмме SWGCBK.
CALL SWGCBK (ID_FIL, ROUTINE)
CALL WGLAB (IP2, 'данные записываются в файл', ID2)
! вывод второй надписи в главном меню при развороте кнопки File. На
! кнопке будет написано 'записать в файл'. После нажатия на эту кнопку появится
! окно с предложением записать файл. При этом будет указана маска *.txt для
! записываемых файлов. Имя введенного файла вместе с путем к нему будет
! сохранено в переменной CFIL2. Это имя будет отображено в виджете с
! идентификатором ID_FIL2. Этот виджет будет расположен сразу под надписью
! 'данные записываются в файл'.
CALL WGFIL (IP2, 'записать в файл', CFIL2, '*.txt', ID_FIL2)
CALL WGLAB(IP2, 'Расчетная схема', ID_BUT)
! объявление виджета для рисунка
CALL WGDRAW(ip2, id_draw1);
! задание оконного режима виджета для рисунка
CALL SETXID(id_draw1, 'WIDGET'); CALL METAFL('XWIN ')
! инициализация библиотеки и очистка окна рисунка
CALL DISINI; CALL ERASE
! задание белого фона для рисунка
CALL PAGFLL(255)
! вставка в виджет рисунка из текущей папки
CALL INCFIL ('rc01.bmp')
! закрытие библиотеки
CALL DISFIN
! вывод кнопки с надписью ОК для продолжения работы программы и кнопки с
! надписью QUIT для отмены работы с программой.
CALL WGOK (IP1, ID_OK); CALL WGQUIT (IP1, ID_Q)
! завершение работы с установкой виджетов. Теперь можно получать данные с
! введенной информацией.
CALL WGFIN
! проверка на ноль переменной ios. Эта переменная передается через общий модуль
! и сообщает о правильности ввода данных из файла. Если ios равна нулю, то сбоя
! не было и происходит обращение к п/программе GWGFIL для получения
! информации об имени открытого файла в виджете ID_FIL. Имя было сохранено в
! переменной CFIL1.
if (ios==0) then ; call GWGFIL (ID_FIL, CFIL1)
! иначе, если переменная ios не равна нулю,то произошел сбой при вводе. Как
! правило, это пустой файл, открытый для ввода данных. Переменной CFIL1
! присваивается пробел, для того чтобы при вариантном счете имя сбойного файла
! не появлялось в виджете ID_FIL.
else; CFIL1=' '; endif
! получение информации об имени файла для записи данных в виджете ID_FIL2.
! Имя было сохранено в переменной CFIL2.
CALL GWGFIL(ID_FIL2,CFIL2)
! объявляет цикл для записи введенных в окнах данных в массив исходных данных
! vhod
do i=1,kolpar
! считывание данных из виджетов в текстовый массив texts(7). Теперь данные,
! введенные в window-окне становятся доступными в этом текстовом массиве.
151