June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
|
|
@ -0,0 +1 @@
|
|||
PopUpOk("Goodbye, World!");
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
link graphics
|
||||
procedure main()
|
||||
WOpen("size=100,20") | stop("No window")
|
||||
WWrites("Goodbye, World!")
|
||||
WDone()
|
||||
end
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
import gui
|
||||
$include "guih.icn"
|
||||
|
||||
class WindowApp : Dialog ()
|
||||
|
||||
# -- automatically called when the dialog is created
|
||||
method component_setup ()
|
||||
# add 'hello world' label
|
||||
label := Label("label=Hello world","pos=0,0")
|
||||
add (label)
|
||||
|
||||
# make sure we respond to close event
|
||||
connect(self, "dispose", CLOSE_BUTTON_EVENT)
|
||||
end
|
||||
end
|
||||
|
||||
# create and show the window
|
||||
procedure main ()
|
||||
w := WindowApp ()
|
||||
w.show_modal ()
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue