"ocaml_beginners"::[] Ocaml-TK intro/tutorial?

Hello,

is there somewhere an introduction to
OCaml/Tk?

In the OCaml manual there are not all bindings
to the widgest explained.

TIA,
Oliver

Messages in this topic (1) Reply (via web post) | Start a new topic

.

Am Tue, 12 Jun 2007 19:13:55 +0200
schrieb Oliver Bandel < oliver%40first.in-berlin.de">oliverfirst.in-berlin.de>:

> Hello,
&gt;
> is there somewhere an introduction to
> OCaml/Tk?
>
> In the OCaml manual there are not all bindings
> to the widgest explained.
>

I had the same problem the solution is a good bokk about tk and
looking at ocaml-tk examples...

Michael

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Zitat von micha < micha-1%40fantasymail.de">micha-1fantasymail.de>:

> Am Tue, 12 Jun 2007 19:13:55 +0200
> schrieb Oliver Bandel < oliver%40first.in-berlin.de">oliverfirst.in-berlin.de>:
>;
> > Hello,
&gt; >
>; > is there somewhere an introduction to
> > OCaml/Tk?
> >
>; > In the OCaml manual there are not all bindings
> > to the widgest explained.
> >
>;
> I had the same problem the solution is a good bokk about tk and
> looking at ocaml-tk examples...
>
> Michael
>

OK, well, so after this bad bnews from you I had an idea...

I did the following:
$ ocaml -I +labltk labltk.cma| tee COPY

Heheh, then I typed:

module T = Camltk;;

And then I quitted the toplevel.

heheh, now I have the signature of the Tk-module in a textfile..

and just used caml2html to create a html of it.

heheh. This is at least the signature.
I had done Tcl/Tk many years ago, so I know the
rudiments of the Tk-stuff. Tcl sucks, but with OCaml it's OK
to work with Tk, I think.

Ciao,
Oliver

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Hi,

Zitat von micha < micha-1%40fantasymail.de">micha-1fantasymail.de>:

> Am Tue, 12 Jun 2007 19:13:55 +0200
> schrieb Oliver Bandel < oliver%40first.in-berlin.de">oliverfirst.in-berlin.de>:
>;
> > Hello,
&gt; >
>; > is there somewhere an introduction to
> > OCaml/Tk?
> >
>; > In the OCaml manual there are not all bindings
> > to the widgest explained.
> >
>;
> I had the same problem the solution is a good bokk about tk and
> looking at ocaml-tk examples...

Do you have an example to pack a widget inside
a widget that is not the mainwidget?

How to use pack (or other packers) to put
for example a button inside a frame (not main-widget)?

TIA,
Oliver

Messages in this topic (0) Reply (via web post) | Start a new topic

.

This does not what I expected:

=================================================================
open Camltk

let _ =

let mainwin = openTk() in
let f1 = Frame.create mainwin [] in
let b1 = Button.create mainwin [Text "Quitter 1"; Command closeTk] in
let b2 = Button.create mainwin [Text "Quitter 2"; Command closeTk] in
let b3 = Button.create mainwin [Text "Quitter 3"; Command closeTk] in
let b4 = Button.create mainwin [Text "Quitter 4"; Command closeTk] in
let b5 = Button.create f1 [Text "Quitter 5"; Command closeTk] in
let b6 = Button.create f1 [Text "Quitter 6"; Command closeTk] in
pack [ f1 ] [Side Side_Left];
pack [ b1; b2 ] [Side Side_Bottom];
pack [ b3; b4 ] [Side Side_Top];
mainLoop()
=================================================================

And I didn't got grid running.

maybe I misunderstand the type-definitions ?!

A simple example could help enormously...

Ciao,
Oliver

Messages in this topic (0) Reply (via web post) | Start a new topic

.

On Tue, 12 Jun 2007, Oliver Bandel wrote:

> This does not what I expected:
>
&gt; =================================================================
&gt; open Camltk
&gt;
> let _ =
>
> let mainwin = openTk() in
> let f1 = Frame.create mainwin [] in
> let b1 = Button.create mainwin [Text "Quitter 1"; Command closeTk] in
> let b2 = Button.create mainwin [Text "Quitter 2"; Command closeTk] in
> let b3 = Button.create mainwin [Text "Quitter 3"; Command closeTk] in
> let b4 = Button.create mainwin [Text "Quitter 4"; Command closeTk] in
> let b5 = Button.create f1 [Text "Quitter 5"; Command closeTk] in
> let b6 = Button.create f1 [Text "Quitter 6"; Command closeTk] in
> pack [ f1 ] [Side Side_Left];
> pack [ b1; b2 ] [Side Side_Bottom];
> pack [ b3; b4 ] [Side Side_Top];
> mainLoop()
> =================================================================

Before you pack "f1&quot;, you'll want to do something like this:

pack [ b5; b6 ] [Side Side_Top];

Usually, you want to pack starting with the innermost widgets and working
your way out to the toplevel window.

It might be helpful to read some introductory material on Tcl/Tk.

Dave

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Zitat von Dave Benjamin < ramen%40ramenfest.com">ramenramenfest.com>:

> On Tue, 12 Jun 2007, Oliver Bandel wrote:
&gt;
> > This does not what I expected:
> >
>; > =================================================================
&gt; > open Camltk
&gt; >
>; > let _ =
> >
>; > let mainwin = openTk() in
> > let f1 = Frame.create mainwin [] in
> > let b1 = Button.create mainwin [Text "Quitter 1"; Command closeTk] in
> > let b2 = Button.create mainwin [Text "Quitter 2"; Command closeTk] in
> > let b3 = Button.create mainwin [Text "Quitter 3"; Command closeTk] in
> > let b4 = Button.create mainwin [Text "Quitter 4"; Command closeTk] in
> > let b5 = Button.create f1 [Text "Quitter 5"; Command closeTk] in
> > let b6 = Button.create f1 [Text "Quitter 6"; Command closeTk] in
> > pack [ f1 ] [Side Side_Left];
> > pack [ b1; b2 ] [Side Side_Bottom];
> > pack [ b3; b4 ] [Side Side_Top];
> > mainLoop()
> > =================================================================
&gt;
> Before you pack "f1&quot;, you'll want to do something like this:
&gt;
> pack [ b5; b6 ] [Side Side_Top];
>
&gt; Usually, you want to pack starting with the innermost widgets and working
> your way out to the toplevel window.
>
> It might be helpful to read some introductory material on Tcl/Tk

Yes, maybe it's too long ago that I used Tk.
I've forgotten the details. :(

Ciao,
Oliver

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Am Tue, 12 Jun 2007 21:35:26 +0200
schrieb Oliver Bandel < oliver%40first.in-berlin.de">oliverfirst.in-berlin.de>:

> Do you have an example to pack a widget inside
&gt; a widget that is not the mainwidget?
>
> How to use pack (or other packers) to put
> for example a button inside a frame (not main-widget)?
>

this works for me (using findlib in the toplevel):

#use "topfind";;
#require "labltk";;

open Tk;;
let main = openTk();;
let f1 = Frame.create main ;;
let b1 = Button.create ~text:&quot;Quitter1&quot; ~command:(fun () ->
print_endline "hi 1") main ;;
let b2 = Button.create ~text:&quot;Quitter2&quot; ~command:(fun () ->
print_endline "hi 2") f1 ;;
let b3 = Button.create ~text:&quot;Quitter3&quot; ~command:(fun () ->
print_endline "hi 3") f1 ;;
pack [b2;b3] ~side: `Left ~expand:true ~fill:`X ;;
pack [f1] ~side:`Top ~expand:true ~fill:`Both ;;
pack [b1] ~side:`Bottom ~expand:true ~fill:`X;;
mainLoop();;

this display a window with three buttons...

here is a link:
http://www.cs.uiuc.edu/class/sp07/cs421/resources/labltk/

cheers,
Michael

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Zitat von micha < micha-1%40fantasymail.de">micha-1fantasymail.de>:

> Am Tue, 12 Jun 2007 21:35:26 +0200
> schrieb Oliver Bandel < oliver%40first.in-berlin.de">oliverfirst.in-berlin.de>:
>;
> > Do you have an example to pack a widget inside
&gt; > a widget that is not the mainwidget?
> >
>; > How to use pack (or other packers) to put
> > for example a button inside a frame (not main-widget)?
> >
>;
> this works for me (using findlib in the toplevel):
>
&gt; #use "topfind";;
> #require "labltk";;
>
&gt; open Tk;;
>; let main = openTk();;
> let f1 = Frame.create main ;;
> let b1 = Button.create ~text:&quot;Quitter1&quot; ~command:(fun () ->
&gt; print_endline "hi 1") main ;;
> let b2 = Button.create ~text:&quot;Quitter2&quot; ~command:(fun () ->
&gt; print_endline "hi 2") f1 ;;
> let b3 = Button.create ~text:&quot;Quitter3&quot; ~command:(fun () ->
&gt; print_endline "hi 3") f1 ;;
> pack [b2;b3] ~side: `Left ~expand:true ~fill:`X ;;
> pack [f1] ~side:`Top ~expand:true ~fill:`Both ;;
> pack [b1] ~side:`Bottom ~expand:true ~fill:`X;;
> mainLoop();;
>
>
>; this display a window with three buttons...

Fine.

A lot of different types ijh there.

I tried this:

let b1 = Button.create mainwin [Height (Pixels 5); Text "Quitter 1"; Command
closeTk] in

and it worked (even if it looked different than expected.

Then I tried this:

let b1 = Button.create mainwin [Height (Millimeters 5.0); Text "Quitter 1";
Command closeTk] in

and got:

Fatal error: exception Protocol.TkError(&quot;expected integer but got "5m&quot;")

why this?

In the signature I found:

type units =
CTk.units =
Pixels of int
| Centimeters of float
| Inches of float
| Millimeters of float
| PrinterPoint of float

So, why didn't it worked?!

Ciao,
Oliver

Messages in this topic (0) Reply (via web post) | Start a new topic

.

Shalom, Oliver.

OB> Do you have an example to pack a widget inside
OB> a widget that is not the mainwidget?

If I understood correctly, you should use "coe&quot;
function. For example, see
$camlsrc/otherlibs/labltk/examples_labltk/tetris.ml:

pack [f];
pack [coe c; coe r; coe r'] ~side: `Left ~fill: `Y;
pack [coe nl; coe nc] ~side: `Top;
pack [coe scl; coe sc; coe lnl; coe ln; coe levl;
coe lev; coe newg] ~side: `Top;

--
WBR,
dmitry mailto: gds-mlsts%40moldavcable.com">gds-mlstsmoldavcable.com

Messages in this topic (0) Reply (via web post) | Start a new topic

.