[Caml-list] probleme de liaison avec un canvas

[Caml-list] probleme de liaison avec un canvas

[Sebastien Gandia - maitrise]

Bonjour, je travaille avec la librairie LablTK, et je desire associer a
un canvas un evenement.
Cet evenement est par exemple :

-quand on clique dans le canvas , on recupere les coordonnées de la zone
cliquée

ça peut-etre aussi une action associée.

J'ai essayé avec canvas.bind mais ça n'a aucun effet.
Ainsi pourriez vous me donner un exemple de code utilisant canvas.bind
pour que je puisse comparer son implementation avec la mienne, car je
pense que la solution est là.

Merci
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners

[Caml-list] Re: probleme de liaison avec un canvas

[Michaël Grünewald]

Sebastien Gandia - maitrise <gandias@ifsic.univ-rennes1.fr> writes:

> Bonjour, je travaille avec la librairie LablTK, et je desire associer a
> un canvas un evenement.
> Cet evenement est par exemple :
> 
> -quand on clique dans le canvas , on recupere les coordonnées de la zone
> cliquée
> 
> ça peut-etre aussi une action associée.
> 
> J'ai essayé avec canvas.bind mais ça n'a aucun effet.
> Ainsi pourriez vous me donner un exemple de code utilisant canvas.bind
> pour que je puisse comparer son implementation avec la mienne, car je
> pense que la solution est là.

Avec plaisir, dans la distribution de Tk il y a une floppée d'exemples, pour
faire connaissance avec ocamltk, je me suis entraîné à les
traduire. Exercice recommandé, il me semble.

Je me suis arrêté à un, le voici :

(* simple_graph *)

open Tk;;

let font_label = "arial";;
let font_plot = "Helvetica 18";;

let toplevel = opentk ();;

let w_msg = Label.create 
        ~font:font_label 
        ~justify:`Left 
        ~takefocus:false 
	~text:("This windows displays a canvas widget containing"
                ^" a simple two dimensional plot." toplevel)
;;
pack [w_msg];;

(* frame and buttons *)
let w_frame = Frame.create toplevel;;
let b_dismiss = Button.create ~text:"Dismiss" w_frame;;
let b_seecode = Button.create ~text:"See Code" w_frame;;

pack ~side:`Bottom ~fill:`X [w_frame];;
pack ~side:`Left ~fill:`X [b_seecode; b_dismiss];;

(* canvas *)
let canvas = Canvas.create ~relief:`Raised  ~width:450 ~height:450 toplevel;;

pack ~side:`Top [canvas];;

(* oh le joli dessin *)
(* les axes *)

Canvas.create_line ~width:2 ~xys:[100,250; 400,250] canvas;;
Canvas.create_line ~width:2 ~xys:[100,250; 100,50]  canvas;;

for k = 0 to 10 do 
	ignore(Canvas.create_line ~width:2 
				  ~xys:[100+k*30,250;100+k*30,245] canvas)
	done;;

for k = 0 to 5 do 
	ignore(Canvas.create_line ~width:2 
				  ~xys:[100,250-k*40;105,250-k*40] canvas)
	done;;

let point_list = [12,56;20,94;33,98;32,120;61,180;75,160;98,223];;
let place_point (x,y) =
	let true_x = 100 + 3 * x in
	let true_y = 250 - (4*y)/5 in
	let r = 6 in
	let item = Canvas.create_oval 
		~x1:(true_x - r) 
		~x2:(true_x + r)
		~y1:(true_y - r)
		~y2:(true_y + r)
		~width:1
		~fill:(`Color "Orange")
		~outline:(`Color "Black")
		canvas
		in
	Canvas.addtag canvas ~tag:"point" ~specs:[`Withtag item]
	in

List.iter place_point point_list;;

(* Note: le tag "current" est géré par Tk, c'est l'objet en cours, par
   exemple, celui sous le pointeur. *)     
let change_color color = 
    Canvas.configure_oval ~fill:(`Color color) canvas (`Tag "current")
  ;;


type plot_t = {mutable lastX:int;
	       mutable lastY:int;
	       }
  ;;

let plot = {lastX = 0; lastY = 0; }
  ;;

let plot_down x y = 
    begin
      Canvas.dtag canvas (`Tag "selected" ) "selected"; 
      Canvas.addtag canvas ~tag:"selected" ~specs:[`Withtag (`Tag "current")];
      Canvas.raise canvas (`Tag "current");
      plot.lastX <- x;
      plot.lastY <- y;
   end
	;;

let plot_move x y =
    begin
      Canvas.move canvas (`Tag "selected") (x - plot.lastX)
			  (y - plot.lastY);
      plot.lastX <- x;
      plot.lastY <- y;

   
   end
  ;;

Canvas.bind ~events:[`Enter] 
		     ~fields:[]
		     ~action:(function x ->  change_color "Red"; () )
		     canvas
		     (`Tag "point");;

Canvas.bind ~events:[`Leave] 
		     ~fields:[]
		     ~action:(function x ->  change_color "Orange"; () )
		     canvas
		     (`Tag "point");;

Canvas.bind ~events:[`ButtonPressDetail 1]
	~fields:[`MouseX;`MouseY]
	~action:(function x -> plot_down x.ev_MouseX x.ev_MouseY)
	canvas 
	(`Tag "point")
  ;;

Canvas.bind ~events:[`ButtonReleaseDetail 1]
	~fields:[`MouseX;`MouseY]
	~action:(function x -> Canvas.dtag canvas (`Tag "selected") "selected")
	canvas 
	(`Tag "point")
  ;;

Canvas.bind ~events:[`Motion]
	~fields:[`MouseX;`MouseY]
	~action:(function x -> plot_move x.ev_MouseX x.ev_MouseY)
	canvas
	(`Tag "point")
;;

mainLoop();;
-- 
Michaël Grünewald <michael-grunewald@wanadoo.fr>  - RSA PGP Key ID: 0x20D90C12
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners