Toggle non cliquable.

Bonjour, j'essaie laborieusement de me débrouiller avec Gtk en utilisant un gtk_Tree_View.

J'ai remplis mon tableau mais les boite de contrôle (check box ou toggle) je sais plus très bien ne son pas clicable.
Je clique, je clique mais rien ne se passe.
Si vous pouviez jetter un oeil à mon code avec Ada s'il vous plait.

Code:

1
2
3
4
5
6
7
 
   Text_Column       : constant := 0;
   Editable_Column   : constant := 1;
   Active_Column     : constant := 2;
   Foreground_Column : constant := 3;
   Id_Column         : constant := 4;
   Type_Column       : constant := 5;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
      Gtk_New (Text_Render);
 
      Gtk_New (Col);
      Num := Append_Column (Ultrason.Plugins_Tree, Col);
      Set_Sort_Column_Id (Col, Text_Column);
      Set_Title (Col, "Names");
      Pack_Start (Col, Text_Render, True);
      Set_Sizing (Col, Tree_View_Column_Autosize);
      Add_Attribute (Col, Text_Render, "text", Text_Column);
      Add_Attribute (Col, Text_Render, "editable", Editable_Column);
 
 
      Gtk_New (Text_Render);
      Gtk_New (Col);
      Num := Append_Column (Ultrason.Plugins_Tree, Col);
 
      Set_Title (Col, "Ids");
      Pack_Start (Col, Text_Render, True);
      Set_Sizing (Col, Tree_View_Column_Autosize);
      Add_Attribute (Col, Text_Render, "text", Id_Column);
 
      Gtk_New (Col);
      Num := Append_Column (Ultrason.Plugins_Tree, Col);
 
      Gtk_New (Text_Render);
      Set_Title (Col, "Types");
      Pack_Start (Col, Text_Render, True);
      Set_Sizing (Col, Tree_View_Column_Autosize);
      Add_Attribute (Col, Text_Render, "text", Type_Column);
 
      Gtk_New (Toggle_Render);
      Gtk_New (Col);
      Set_Sort_Column_Id (Col, -1);  --  unsortable                                                                                                                                                                 
      Num := Append_Column (Ultrason.Plugins_Tree, Col);
      Set_Title (Col, "Edit");
      Pack_Start (Col, Toggle_Render, False);
      Add_Attribute (Col, Toggle_Render, "active", Active_Column);
      Add_Attribute (Col, Toggle_Render, "activatable", Editable_Column);

Merci.