blob: 5b5df35ab4e68110f4bb074ecd85dc715c4874aa (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# HELLO.GUI -- Graphics user interface for the "hello world" demo task.
reset-server
appInitialize hello Hello {
!
! Application defaults for the hello world program.
!
Hello*objects:\
toplevel Form helloForm\
helloForm Label helloLabel\
helloForm Command quitButton
Hello*helloForm*background: bisque
Hello*helloForm*helloLabel.label: Hello, world!
Hello*helloForm*quitButton.fromHoriz: helloLabel
Hello*helloForm*quitButton.label: Quit
}
createObjects
proc quit args { send client gkey q; deactivate unmap }
send quitButton addCallback quit
activate
|
