blob: d5e3d010c95f0eb801ccd4d6ecabd06af3494e6d (
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
|
module support_text
import StdEnv, StdIO
Start :: *World -> *World
Start world
# (id, world) = openId world
# texts = [
TextControl "Hide" [ControlHide],
TextControl "Id" [ControlId id],
TextControl "Pos" [ControlPos (Left, zero)],
TextControl "Tip" [ControlTip "Some tip"],
TextControl "Width" [ControlWidth (PixelWidth 500)]
]
# controls = ListLS texts
# dialog = Dialog "Support - TextControl" controls [WindowClose (noLS closeProcess)]
= startIO NDI Void (initialise dialog) [] world
where
initialise dialog pst
# (error,pst) = openDialog 0 dialog pst
| error <> NoError = closeProcess pst
| otherwise = pst
|
