Курсовая работа: Адресная книжка на Haskell
p1 <- panel nb []
--textBoxes
txt1 <- textEntry p1 [alignment := AlignLeft, text := "icq file name"]
txt2 <- textEntry p1 [alignment := AlignLeft, text := "e-mail file name"]
txt3 <- textEntry p1 [alignment := AlignLeft, text := "out file name"]
--buttons
ok <- button p1 [text := ">>", on command := do f1 <- get txt1 text;f2 <- get txt2 text;f3 <- get txt3 text; logMessage f1 ;logMessage f2;logMessage f3;outFile f1 f2 f3;]
quit <- button p1 [text := "Close", on command := close f]
-- specify layout
set f [layout :=
container p $
column 0
[ tabs nb
[tab "Sort Contakt List" $
container p1 $ margin 10 $ column 5 [hstretch $ widget txt1,hstretch $ widget txt2,hstretch $ widget txt3,row 5 [floatRight $ widget ok,floatLeft $ widget quit]]
]
, hfill $ minsize (sz 20 80) $ widget textlog
]
, clientSize := sz 400 300 ]
return ()
5. Тестирование программы
Изначальный вид приложения при запуске:
Рис.5.1
Введем Пути файлов в поля ввода:
Рис.5.2
После счелкаем кнопку >> и получаем html документ:
