Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

dsd1-10 / dsd-08=skill / pivo

.doc
Скачиваний:
64
Добавлен:
05.06.2015
Размер:
20.99 Кб
Скачать

load("two_1.il")

; pivka bi sha.... !!!

hiDeleteBannerMenu(hiGetCIWindow() 0)

g = "cadense"

Menu1 = hiCreateMenuItem(?name 'Menu1 ?itemText "kruzhka 1"

?callback "println(g)")

Menu2 = hiCreateMenuItem(?name 'Menu2 ?itemText "kruzhka 2"

?callback "println(2)")

Menu31 = hiCreateMenuItem(?name 'Menu31 ?itemText "kill 1"

?callback "println(31)")

form = "not form"

Field1 = hiCreateListField(?name 'Field1 ?prompt "Day mne list !!")

hiCreateAppForm(?name 'Form1

?fields '(Field1)

?callback "pingvin(Field1->value)"

?formTitle "Hy !!!"

)

Menu32 = hiCreateMenuItem(?name 'Menu32 ?itemText "lisiy 2"

?callback "hiDisplayForm('Form1)")

hiCreatePulldownMenu('pullMenu2 "Nuh champion" '(Menu31 Menu32))

SlideMenu = hiCreateSliderMenuItem(?name 'SlideMenu ?itemText "Nuh champion" ?subMenu pullMenu2)

hiCreatePulldownMenu('pullMenu "Pivo" '(Menu1 Menu2 SlideMenu))

hiInsertBannerMenu(hiGetCIWindow() 'pullMenu 0)

Соседние файлы в папке dsd-08=skill