diff options
Diffstat (limited to 'otherlibs/labltk/example/hello.ml')
| -rw-r--r-- | otherlibs/labltk/example/hello.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/otherlibs/labltk/example/hello.ml b/otherlibs/labltk/example/hello.ml new file mode 100644 index 000000000..5e890aada --- /dev/null +++ b/otherlibs/labltk/example/hello.ml @@ -0,0 +1,20 @@ +(* LablTk4 Demonstration by JPF *) + +(* First, open this modules for convenience *) +open Tk + +(* initialization of Tk --- the result is a toplevel widget *) +let top = openTk () + +(* create a button on top *) +(* Button.create : use of create function defined in button.ml *) +(* But you shouldn't open Button module for other widget class modules use *) +let b = Button.create parent: top text: "Hello, LablTk!" () + +(* Lack of toplevel expressions in lsl, you must use dummy let exp. *) +let _ = pack [coe b] + +(* Last, you must call mainLoop *) +(* You can write just let _ = mainLoop () *) +(* But Printexc.print will help you *) +let _ = Printexc.print mainLoop () |