From: Dmitry Kalyanov Date: Sat, 3 Oct 2009 19:10:21 +0000 (+0400) Subject: Add bindings; add information on bindings coverage X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3dbac943322ccf649b137fd1e8c2d29e108ba79c;p=cl-gtk2.git Add bindings; add information on bindings coverage --- diff --git a/.gitignore b/.gitignore index 2f6ec56..168975e 100644 --- a/.gitignore +++ b/.gitignore @@ -7,3 +7,4 @@ *~ *.fasl +bugs/html/ diff --git a/api.ods b/api.ods new file mode 100644 index 0000000..eb1e679 Binary files /dev/null and b/api.ods differ diff --git a/bugs/issue-0749e4c3cb64863c22480499d203fe68d4141885.yaml b/bugs/issue-0749e4c3cb64863c22480499d203fe68d4141885.yaml new file mode 100644 index 0000000..4b487ae --- /dev/null +++ b/bugs/issue-0749e4c3cb64863c22480499d203fe68d4141885.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: fix running on clozure +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 19:33:27.068743 Z +references: [] + +id: 0749e4c3cb64863c22480499d203fe68d4141885 +log_events: +- - 2009-10-02 19:33:28.028531 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-21b2b215170ebc35876fa3a350518b7f9700bd78.yaml b/bugs/issue-21b2b215170ebc35876fa3a350518b7f9700bd78.yaml new file mode 100644 index 0000000..7571a0a --- /dev/null +++ b/bugs/issue-21b2b215170ebc35876fa3a350518b7f9700bd78.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkWidget binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 01:23:31.425523 Z +references: [] + +id: 21b2b215170ebc35876fa3a350518b7f9700bd78 +log_events: +- - 2009-10-03 01:23:32.209292 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-22aa16299e7c1ecd68d2ce7852a768929028e3f3.yaml b/bugs/issue-22aa16299e7c1ecd68d2ce7852a768929028e3f3.yaml new file mode 100644 index 0000000..9610085 --- /dev/null +++ b/bugs/issue-22aa16299e7c1ecd68d2ce7852a768929028e3f3.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make GtkCellRenderer interface binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:04:21.830719 Z +references: [] + +id: 22aa16299e7c1ecd68d2ce7852a768929028e3f3 +log_events: +- - 2009-10-02 21:04:22.647103 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-23861ef1324f6316848582a5636055e9497cbd92.yaml b/bugs/issue-23861ef1324f6316848582a5636055e9497cbd92.yaml new file mode 100644 index 0000000..59e0149 --- /dev/null +++ b/bugs/issue-23861ef1324f6316848582a5636055e9497cbd92.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make binding to GtkListStore +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:13:30.969849 Z +references: [] + +id: 23861ef1324f6316848582a5636055e9497cbd92 +log_events: +- - 2009-10-02 21:13:33.001426 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-24992d0ce785d18d70ee0aeb17c5a5fdecdc5354.yaml b/bugs/issue-24992d0ce785d18d70ee0aeb17c5a5fdecdc5354.yaml new file mode 100644 index 0000000..69dd782 --- /dev/null +++ b/bugs/issue-24992d0ce785d18d70ee0aeb17c5a5fdecdc5354.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make GtkCellLayout interface implementor binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:01:20.927960 Z +references: [] + +id: 24992d0ce785d18d70ee0aeb17c5a5fdecdc5354 +log_events: +- - 2009-10-02 21:01:21.663782 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml b/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml new file mode 100644 index 0000000..1c65f00 --- /dev/null +++ b/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkContainer binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 00:58:04.994858 Z +references: [] + +id: 25a39c12de2cd7101903148ee7dafdc3e5d790ae +log_events: +- - 2009-10-03 00:58:06.106586 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-27f069ca44609eacd23170c3ab5129a3912e76b8.yaml b/bugs/issue-27f069ca44609eacd23170c3ab5129a3912e76b8.yaml new file mode 100644 index 0000000..b361df5 --- /dev/null +++ b/bugs/issue-27f069ca44609eacd23170c3ab5129a3912e76b8.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: fix running on ecl +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 19:33:58.167071 Z +references: [] + +id: 27f069ca44609eacd23170c3ab5129a3912e76b8 +log_events: +- - 2009-10-02 19:33:59.062857 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-2f4e005e8d303828a7607922edd996b9faf0c5d9.yaml b/bugs/issue-2f4e005e8d303828a7607922edd996b9faf0c5d9.yaml new file mode 100644 index 0000000..de0af40 --- /dev/null +++ b/bugs/issue-2f4e005e8d303828a7607922edd996b9faf0c5d9.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: add GtkTreeView drag-and-drop binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 20:29:13.250523 Z +references: [] + +id: 2f4e005e8d303828a7607922edd996b9faf0c5d9 +log_events: +- - 2009-10-02 20:29:14.586319 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-39d60c033f5310200786db0a8c3974d754e051de.yaml b/bugs/issue-39d60c033f5310200786db0a8c3974d754e051de.yaml new file mode 100644 index 0000000..d174859 --- /dev/null +++ b/bugs/issue-39d60c033f5310200786db0a8c3974d754e051de.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make GtkTreeModelSort binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 20:56:39.451716 Z +references: [] + +id: 39d60c033f5310200786db0a8c3974d754e051de +log_events: +- - 2009-10-02 20:56:40.331508 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml b/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml new file mode 100644 index 0000000..a1cc1f5 --- /dev/null +++ b/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: add GtkTreeRowReference binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-01 20:09:17.851799 Z +references: [] + +id: 63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae +log_events: +- - 2009-10-01 20:09:18.939592 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-66999cce178a0179fddcb4e1b9d6ac6ba2473190.yaml b/bugs/issue-66999cce178a0179fddcb4e1b9d6ac6ba2473190.yaml new file mode 100644 index 0000000..1e566c2 --- /dev/null +++ b/bugs/issue-66999cce178a0179fddcb4e1b9d6ac6ba2473190.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: add public API for copying GBoxed to and from C structures +desc: "" +type: :task +component: cl-gtk2 +release: +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 19:04:44.190664 Z +references: [] + +id: 66999cce178a0179fddcb4e1b9d6ac6ba2473190 +log_events: +- - 2009-10-03 19:04:45.142658 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-81334381f6a1febaf00a4374413bb963a3338708.yaml b/bugs/issue-81334381f6a1febaf00a4374413bb963a3338708.yaml new file mode 100644 index 0000000..2c41c99 --- /dev/null +++ b/bugs/issue-81334381f6a1febaf00a4374413bb963a3338708.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make bindings to GtkHSV +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 23:20:29.355658 Z +references: [] + +id: 81334381f6a1febaf00a4374413bb963a3338708 +log_events: +- - 2009-10-02 23:20:30.179437 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml b/bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml new file mode 100644 index 0000000..d674100 --- /dev/null +++ b/bugs/issue-851f4edcff20a72b77b2ab9894724ffa3604711a.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkTreeView binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 20:28:42.648171 Z +references: [] + +id: 851f4edcff20a72b77b2ab9894724ffa3604711a +log_events: +- - 2009-10-02 20:28:43.743906 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml b/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml new file mode 100644 index 0000000..2761b35 --- /dev/null +++ b/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkTreePath bindings +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-01 20:07:26.739035 Z +references: [] + +id: 88756a6cd1cd743ffaecede0345087107030e3a5 +log_events: +- - 2009-10-01 20:07:27.762845 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-88836c61db109ee78dec552d38cde9fc66deac35.yaml b/bugs/issue-88836c61db109ee78dec552d38cde9fc66deac35.yaml new file mode 100644 index 0000000..7ac0c45 --- /dev/null +++ b/bugs/issue-88836c61db109ee78dec552d38cde9fc66deac35.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make bindings for GtkBuildable +desc: "" +type: :task +component: cl-gtk2 +release: +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 19:01:23.359691 Z +references: [] + +id: 88836c61db109ee78dec552d38cde9fc66deac35 +log_events: +- - 2009-10-03 19:01:23.879643 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml b/bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml new file mode 100644 index 0000000..635fc80 --- /dev/null +++ b/bugs/issue-9d580aeb583e4c619dc06c8318232242fe7d3438.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkFileChooser binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 23:26:28.059405 Z +references: [] + +id: 9d580aeb583e4c619dc06c8318232242fe7d3438 +log_events: +- - 2009-10-02 23:26:29.281302 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-a2340a465d5e5475ce246455ca8a3254760d0154.yaml b/bugs/issue-a2340a465d5e5475ce246455ca8a3254760d0154.yaml new file mode 100644 index 0000000..2f74c20 --- /dev/null +++ b/bugs/issue-a2340a465d5e5475ce246455ca8a3254760d0154.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkMenu bindings (gtk_menu_attach_to_widget) +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:47:03.781363 Z +references: [] + +id: a2340a465d5e5475ce246455ca8a3254760d0154 +log_events: +- - 2009-10-02 21:47:04.621156 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-ac7fa2746fbaed907e43aa3a690a744062fc7392.yaml b/bugs/issue-ac7fa2746fbaed907e43aa3a690a744062fc7392.yaml new file mode 100644 index 0000000..00a03fe --- /dev/null +++ b/bugs/issue-ac7fa2746fbaed907e43aa3a690a744062fc7392.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make binding to Printing +desc: "" +type: :task +component: cl-gtk2 +release: +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 00:20:51.439501 Z +references: [] + +id: ac7fa2746fbaed907e43aa3a690a744062fc7392 +log_events: +- - 2009-10-03 00:20:52.367292 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-b04f8b7353dd92900dacb7c30562331c34561171.yaml b/bugs/issue-b04f8b7353dd92900dacb7c30562331c34561171.yaml new file mode 100644 index 0000000..3f2bc43 --- /dev/null +++ b/bugs/issue-b04f8b7353dd92900dacb7c30562331c34561171.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish bindings to GtkColorSelection +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 23:18:52.109533 Z +references: [] + +id: b04f8b7353dd92900dacb7c30562331c34561171 +log_events: +- - 2009-10-02 23:18:53.021324 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-bb8c71d21d73d1ad594c73f0ac5ac8a6db82729c.yaml b/bugs/issue-bb8c71d21d73d1ad594c73f0ac5ac8a6db82729c.yaml new file mode 100644 index 0000000..1ef53c0 --- /dev/null +++ b/bugs/issue-bb8c71d21d73d1ad594c73f0ac5ac8a6db82729c.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make binding to GtkTreeStore +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:13:54.989400 Z +references: [] + +id: bb8c71d21d73d1ad594c73f0ac5ac8a6db82729c +log_events: +- - 2009-10-02 21:13:55.957193 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-cd59e8bd909376222bd16cf13c8558a3a024a309.yaml b/bugs/issue-cd59e8bd909376222bd16cf13c8558a3a024a309.yaml new file mode 100644 index 0000000..ed109e4 --- /dev/null +++ b/bugs/issue-cd59e8bd909376222bd16cf13c8558a3a024a309.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: finish GtkIconView binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 20:54:04.688339 Z +references: [] + +id: cd59e8bd909376222bd16cf13c8558a3a024a309 +log_events: +- - 2009-10-02 20:54:06.039958 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-ceea6984eef15f2ae49e03107ece93c2b5bf665a.yaml b/bugs/issue-ceea6984eef15f2ae49e03107ece93c2b5bf665a.yaml new file mode 100644 index 0000000..ba604ac --- /dev/null +++ b/bugs/issue-ceea6984eef15f2ae49e03107ece93c2b5bf665a.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make GtkTreeSortable binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 20:55:06.732780 Z +references: [] + +id: ceea6984eef15f2ae49e03107ece93c2b5bf665a +log_events: +- - 2009-10-02 20:55:07.596600 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-d0e2cd10341f9ea26673090eba5698c19c01eaa2.yaml b/bugs/issue-d0e2cd10341f9ea26673090eba5698c19c01eaa2.yaml new file mode 100644 index 0000000..844bab0 --- /dev/null +++ b/bugs/issue-d0e2cd10341f9ea26673090eba5698c19c01eaa2.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make bindings of Recent Manager +desc: "" +type: :task +component: cl-gtk2 +release: +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-03 18:58:38.399224 Z +references: [] + +id: d0e2cd10341f9ea26673090eba5698c19c01eaa2 +log_events: +- - 2009-10-03 18:58:39.079051 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-df143d2fb5d923fc265fff6b8cdba490af89633f.yaml b/bugs/issue-df143d2fb5d923fc265fff6b8cdba490af89633f.yaml new file mode 100644 index 0000000..ff42618 --- /dev/null +++ b/bugs/issue-df143d2fb5d923fc265fff6b8cdba490af89633f.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: fix running on clisp +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 19:33:46.049295 Z +references: [] + +id: df143d2fb5d923fc265fff6b8cdba490af89633f +log_events: +- - 2009-10-02 19:33:46.873122 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-ed99e9ad80242712fe92e0a6d8f3925ae30bd3ed.yaml b/bugs/issue-ed99e9ad80242712fe92e0a6d8f3925ae30bd3ed.yaml new file mode 100644 index 0000000..a754746 --- /dev/null +++ b/bugs/issue-ed99e9ad80242712fe92e0a6d8f3925ae30bd3ed.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: make GtkCellEditable interface binding +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 21:04:55.400564 Z +references: [] + +id: ed99e9ad80242712fe92e0a6d8f3925ae30bd3ed +log_events: +- - 2009-10-02 21:04:56.352332 Z + - Kalyanov Dmitry + - created + - "" diff --git a/bugs/issue-f26913fe08284ee04e9d0a3f6acd36faa2341aae.yaml b/bugs/issue-f26913fe08284ee04e9d0a3f6acd36faa2341aae.yaml new file mode 100644 index 0000000..11bdfc6 --- /dev/null +++ b/bugs/issue-f26913fe08284ee04e9d0a3f6acd36faa2341aae.yaml @@ -0,0 +1,18 @@ +--- !ditz.rubyforge.org,2008-03-06/issue +title: fix running on win32 +desc: "" +type: :task +component: cl-gtk2 +release: "0.1" +reporter: Kalyanov Dmitry +status: :unstarted +disposition: +creation_time: 2009-10-02 19:33:09.967891 Z +references: [] + +id: f26913fe08284ee04e9d0a3f6acd36faa2341aae +log_events: +- - 2009-10-02 19:33:11.063621 Z + - Kalyanov Dmitry + - created + - "" diff --git a/generating.lisp b/generating.lisp index bf3bd5a..45d4723 100644 --- a/generating.lisp +++ b/generating.lisp @@ -138,7 +138,9 @@ (:cffi gtk::mode gtk::tree-selection-mode gtk::selection-mode "gtk_tree_selection_get_mode" "gtk_tree_selection_set_mode") (:cffi gtk::select-function gtk::tree-selection-select-function nil - gtk::tree-selection-get-selection-function gtk::tree-selection-set-select-function)) + gtk::tree-selection-get-selection-function gtk::tree-selection-set-select-function) + (:cffi gtk::tree-view gtk::tree-selection-tree-view (g-object gtk::tree-view) + "gtk_tree_selection_get_tree_view" nil)) ("GtkTreeView" (:cffi gtk::selection gtk::tree-view-selection g-object "gtk_tree_view_get_selection" nil) @@ -156,15 +158,21 @@ nil gtk::tree-view-set-row-separartor-func)) ("GtkCellView" (:cffi gtk::displayed-row gtk::cell-view-displayed-row (g-boxed-foreign gtk::tree-path) - "gtk_cell_view_get_displayed_row" "gtk_cell_view_set_displayed_row")) + "gtk_cell_view_get_displayed_row" "gtk_cell_view_set_displayed_row") + (:cffi gtk::cell-renderers gtk::cell-view-cell-renderers (glist (g-object gtk::cell-renderer) :free-from-foreign t) + "gtk_cell_view_get_cell_renderers" nil)) ("GtkComboBox" (:cffi gtk::active-iter gtk::combo-box-active-iter (g-boxed-foreign gtk::tree-iter) gtk::combo-box-get-active-iter "gtk_combo_box_set_active_iter") (:cffi gtk::row-separator-func gtk::combo-box-separator-func nil - nil gtk::combo-box-set-separator-func)) + nil gtk::combo-box-set-separator-func) + (:cffi gtk::title gtk::combo-box-title (:string :free-from-foreign nil :free-to-foreign t) + "gtk_combo_box_get_title" "gtk_combo_box_set_title")) ("GtkMenu" (:cffi gtk::screen gtk::menu-screen g-object - nil "gtk_menu_set_screen")) + nil "gtk_menu_set_screen") + (:cffi gtk::title gtk::menu-title (:string :free-from-foreign nil :free-to-foreign t) + "gtk_menu_get_title" "gtk_menu_set_title")) ("GtkToolItem" (:cffi gtk::expand gtk::tool-item-expand :boolean "gtk_tool_item_get_expand" "gtk_tool_item_set_expand") @@ -233,14 +241,18 @@ "gtk_layout_get_bin_window" nil)) ("GtkCalendar" (:cffi gtk::detail-function gtk::calendar-detail-function nil - nil gtk::calendar-set-detail-function)) + nil gtk::calendar-set-detail-function) + (:cffi gtk::display-options gtk::calendar-display-options gtk::calendar-display-options + "gtk_calendar_get_display_options" "gtk_calendar_set_display_options")) ("GtkContainer" (:cffi gtk::focus-child gtk::container-focus-child g-object "gtk_container_get_focus_child" "gtk_container_set_focus_child") (:cffi gtk::focus-vadjustment gtk::container-focus-vadjustment g-object "gtk_container_get_focus_vadjustment" "gtk_container_set_focus_vadjustment") (:cffi gtk::focus-hadjustment gtk::container-focus-hadjustment g-object - "gtk_container_get_focus_hadjustment" "gtk_container_set_focus_hadjustment")) + "gtk_container_get_focus_hadjustment" "gtk_container_set_focus_hadjustment") + (:cffi gtk::reallocate-redraws gtk::container-reallocate-redraws :boolean + nil "gtk_container_set_reallocate_redraws")) ("GtkWidget" (:cffi gtk::parent-window gtk::widget-parent-window (g-object gdk::gdk-window) "gtk_widget_get_parent_window" "gtk_widget_set_parent_window") @@ -330,7 +342,29 @@ "gtk_text_mark_get_buffer" nil)) ("GtkTextBuffer" (:cffi gtk::modified gtk::text-buffer-modified :boolean - "gtk_text_buffer_get_modified" "gtk_text_buffer_set_modified")))))) + "gtk_text_buffer_get_modified" "gtk_text_buffer_set_modified")) + ("GtkToolShell" + (:cffi gtk::icon-size gtk::tool-shell-icon-size gtk::icon-size + "gtk_tool_shell_get_icon_size" nil) + (:cffi gtk::orientation gtk::tool-shell-orientation gtk::orientation + "gtk_tool_shell_get_orientation" nil) + (:cffi gtk::relief-style gtk::tool-shell-relief-style gtk::relief-style + "gtk_tool_shell_get_relief_style" nil) + (:cffi gtk::style gtk::tool-shell-style gtk::toolbar-style + "gtk_tool_shell_get_style" nil)) + ("GtkColorSelection" + (:cffi gtk::previous-alpha gtk::color-selection-previous-alpha :uint16 + "gtk_color_selection_get_previous_alpha" "gtk_color_selection_set_previous_alpha") + (:cffi gtk::previous-color gtk::color-selection-previous-color (g-boxed-foreign gdk::color) + gtk::gtk-color-selection-get-previous-color gtk::gtk-color-selection-set-previous-color)) + ("GtkScrolledWindow" + (:cffi gtk::hscrollbar gtk::scrolled-window-hscrollbar (g-object gtk::widget) + "gtk_scrolled_window_get_hscrollbar" nil) + (:cffi gtk::vscrollbar gtk::scrolled-window-vscrollbar (g-object gtk::widget) + "gtk_scrolled_window_get_vscrollbar" nil)) + ("GtkBin" + (:cffi gtk::child gtk::bin-child (g-object gtk::widget) + "gtk_bin_get_child" nil)))))) (defun gtk-generate-child-properties (filename) (with-open-file (stream filename :direction :output :if-exists :supersede) diff --git a/gtk/cl-gtk2-gtk.asd b/gtk/cl-gtk2-gtk.asd index 6dd4847..b5991fe 100644 --- a/gtk/cl-gtk2-gtk.asd +++ b/gtk/cl-gtk2-gtk.asd @@ -39,7 +39,6 @@ (:file "gtk.calendar") (:file "gtk.size-group") (:file "gtk.tooltip") - (:file "gtk.bin") (:file "gtk.box") (:file "gtk.container") (:file "gtk.paned") diff --git a/gtk/gtk.base-classes.lisp b/gtk/gtk.base-classes.lisp index 0d38a0d..c5ec8d3 100644 --- a/gtk/gtk.base-classes.lisp +++ b/gtk/gtk.base-classes.lisp @@ -1,2 +1,31 @@ (in-package :gtk) +(defcfun (scale-get-layout "gtk_scale_get_layout") g-object + (scale (g-object scale))) + +(export 'scale-get-layout) + +(defcfun gtk-scale-get-layout-offsets :void + (scale (g-object scale)) + (x (:pointer :int)) + (y (:pointer :int))) + +(defun scale-get-layout-offsets (scale) + (with-foreign-objects ((x :int) (y :int)) + (gtk-scale-get-layout-offsets scale x y) + (values (mem-ref x :int) (mem-ref y :int)))) + +(export 'scale-get-layout-offsets) + +(defcfun (scale-add-mark "gtk_scale_add_mark") :void + (scale (g-object scale)) + (value :double) + (position position-type) + (markup :string)) + +(export 'scale-add-mark) + +(defcfun (scale-clear-marks "gtk_scale_clear_marks") :void + (scale (g-object scale))) + +(export 'scale-clear-marks) diff --git a/gtk/gtk.bin.lisp b/gtk/gtk.bin.lisp deleted file mode 100644 index 2f99f8a..0000000 --- a/gtk/gtk.bin.lisp +++ /dev/null @@ -1,6 +0,0 @@ -(in-package :gtk) - -(defcfun (bin-child "gtk_bin_get_child") g-object - (bin g-object)) - -(export 'bin-child) \ No newline at end of file diff --git a/gtk/gtk.cell-renderer.lisp b/gtk/gtk.cell-renderer.lisp index 1578a7f..4f8d4a6 100644 --- a/gtk/gtk.cell-renderer.lisp +++ b/gtk/gtk.cell-renderer.lisp @@ -28,4 +28,10 @@ ; TODO: GtkCellRendererText -; TODO: GtkCellRendererToggle \ No newline at end of file +; TODO: GtkCellRendererToggle + +(defcfun (cell-renderer-text-set-fixed-height-from-font "gtk_cell_renderer_text_set_fixed_height_from_font") :void + (renderer (g-object cell-renderer-text)) + (number-of-rows :int)) + +(export 'cell-renderer-text-set-fixed-height-from-font) diff --git a/gtk/gtk.combo-box.lisp b/gtk/gtk.combo-box.lisp index 5e58ee5..c403750 100644 --- a/gtk/gtk.combo-box.lisp +++ b/gtk/gtk.combo-box.lisp @@ -39,4 +39,6 @@ (gtk-combo-box-set-row-separator-func combo-box (callback gtk-tree-view-row-separator-func-callback) (allocate-stable-pointer func) - (callback stable-pointer-free-destroy-notify-callback))) \ No newline at end of file + (callback stable-pointer-free-destroy-notify-callback))) + + diff --git a/gtk/gtk.container.lisp b/gtk/gtk.container.lisp index 23f99ee..67e557e 100644 --- a/gtk/gtk.container.lisp +++ b/gtk/gtk.container.lisp @@ -49,25 +49,24 @@ (defcfun (container-children "gtk_container_get_children") (glist g-object :free-from-foreign t) (container g-object)) -; TODO: ownership issues - (export 'container-children) -; TODO: gtk_container_set_reallocate_redraws - (defcfun (container-resize-children "gtk_container_resize_children") :void (container g-object)) (export 'container-resize-children) -(defcfun gtk-container-child-type g-type +(defcfun (container-child-type "gtk_container_child_type") g-type-designator (container g-object)) -; TODO: export gtk-container-child-type, requires better interface +(export 'container-child-type) -; TODO: child properties +(defcfun (container-propagate-expose "gtk_container_propagate_expose") :void + (container (g-object container)) + (child (g-object widget)) + (event (g-boxed-foreign event))) -; TODO: gtk_container_propagate_expose +(export 'container-propagate-expose) ; TODO: gtk_container_get_focus_chain diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp index e6faf8f..daee837 100644 --- a/gtk/gtk.generated-classes.lisp +++ b/gtk/gtk.generated-classes.lisp @@ -1146,7 +1146,14 @@ (define-g-interface "GtkToolShell" tool-shell - (:export t :type-initializer "gtk_tool_shell_get_type")) + (:export t :type-initializer "gtk_tool_shell_get_type") + (:cffi icon-size tool-shell-icon-size icon-size + "gtk_tool_shell_get_icon_size" nil) + (:cffi orientation tool-shell-orientation orientation + "gtk_tool_shell_get_orientation" nil) + (:cffi relief-style tool-shell-relief-style relief-style + "gtk_tool_shell_get_relief_style" nil) + (:cffi style tool-shell-style toolbar-style "gtk_tool_shell_get_style" nil)) (define-g-interface "GtkOrientable" orientable @@ -1531,7 +1538,11 @@ "show-week-numbers" "gboolean" t t) (year calendar-year "year" "gint" t t) (:cffi detail-function calendar-detail-function nil nil - calendar-set-detail-function))) + calendar-set-detail-function) + (:cffi display-options calendar-display-options + calendar-display-options + "gtk_calendar_get_display_options" + "gtk_calendar_set_display_options"))) (define-g-object-class "GtkCellView" cell-view (:superclass widget :export t :interfaces @@ -1547,7 +1558,10 @@ (:cffi displayed-row cell-view-displayed-row (g-boxed-foreign tree-path) "gtk_cell_view_get_displayed_row" - "gtk_cell_view_set_displayed_row"))) + "gtk_cell_view_set_displayed_row") + (:cffi cell-renderers cell-view-cell-renderers + (glist (g-object cell-renderer) :free-from-foreign t) + "gtk_cell_view_get_cell_renderers" nil))) (define-g-object-class "GtkContainer" container (:superclass widget :export t :interfaces @@ -1566,13 +1580,16 @@ "gtk_container_set_focus_vadjustment") (:cffi focus-hadjustment container-focus-hadjustment g-object "gtk_container_get_focus_hadjustment" - "gtk_container_set_focus_hadjustment"))) + "gtk_container_set_focus_hadjustment") + (:cffi reallocate-redraws container-reallocate-redraws + :boolean nil "gtk_container_set_reallocate_redraws"))) (define-g-object-class "GtkBin" bin (:superclass container :export t :interfaces ("AtkImplementorIface" "GtkBuildable") :type-initializer "gtk_bin_get_type") - nil) + ((:cffi child bin-child (g-object widget) + "gtk_bin_get_child" nil))) (define-g-object-class "GtkAlignment" alignment (:superclass bin :export t :interfaces @@ -1711,7 +1728,10 @@ (g-boxed-foreign tree-iter) combo-box-get-active-iter "gtk_combo_box_set_active_iter") (:cffi row-separator-func combo-box-separator-func nil - nil combo-box-set-separator-func))) + nil combo-box-set-separator-func) + (:cffi title combo-box-title + (:string :free-from-foreign nil :free-to-foreign t) + "gtk_combo_box_get_title" "gtk_combo_box_set_title"))) (define-g-object-class "GtkComboBoxEntry" combo-box-entry (:superclass combo-box :export t :interfaces @@ -1863,7 +1883,13 @@ "window-placement" "GtkCornerType" t t) (window-placement-set scrolled-window-window-placement-set - "window-placement-set" "gboolean" t t))) + "window-placement-set" "gboolean" t t) + (:cffi hscrollbar scrolled-window-hscrollbar + (g-object widget) "gtk_scrolled_window_get_hscrollbar" + nil) + (:cffi vscrollbar scrolled-window-vscrollbar + (g-object widget) "gtk_scrolled_window_get_vscrollbar" + nil))) (define-g-object-class "GtkToolItem" tool-item (:superclass bin :export t :interfaces @@ -2257,7 +2283,14 @@ color-selection-has-opacity-control "has-opacity-control" "gboolean" t t) (has-palette color-selection-has-palette "has-palette" - "gboolean" t t))) + "gboolean" t t) + (:cffi previous-alpha color-selection-previous-alpha + :uint16 "gtk_color_selection_get_previous_alpha" + "gtk_color_selection_set_previous_alpha") + (:cffi previous-color color-selection-previous-color + (g-boxed-foreign color) + gtk-color-selection-get-previous-color + gtk-color-selection-set-previous-color))) (define-g-object-class "GtkFileChooserWidget" file-chooser-widget (:superclass v-box :export t :interfaces @@ -2363,7 +2396,10 @@ (tearoff-title menu-tearoff-title "tearoff-title" "gchararray" t t) (:cffi screen menu-screen g-object nil - "gtk_menu_set_screen"))) + "gtk_menu_set_screen") + (:cffi title menu-title + (:string :free-from-foreign nil :free-to-foreign t) + "gtk_menu_get_title" "gtk_menu_set_title"))) (define-g-object-class "GtkRecentChooserMenu" recent-chooser-menu (:superclass menu :export t :interfaces @@ -3504,7 +3540,10 @@ "gtk_tree_selection_set_mode") (:cffi select-function tree-selection-select-function nil tree-selection-get-selection-function - tree-selection-set-select-function))) + tree-selection-set-select-function) + (:cffi tree-view tree-selection-tree-view + (g-object tree-view) + "gtk_tree_selection_get_tree_view" nil))) (define-g-object-class "GtkTreeStore" tree-store (:superclass g-object :export t :interfaces diff --git a/gtk/gtk.icon-view.lisp b/gtk/gtk.icon-view.lisp index d8bb61f..4984848 100644 --- a/gtk/gtk.icon-view.lisp +++ b/gtk/gtk.icon-view.lisp @@ -1,6 +1,6 @@ (in-package :gtk) -(defcfun (icon-view-get-path-at-pos "gtk_icon_view_get_path_at_pos") g-object +(defcfun (icon-view-get-path-at-pos "gtk_icon_view_get_path_at_pos") (g-boxed-foreign tree-path :return) (icon-view g-object) (x :int) (y :int)) diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp index 4a8ba7e..6062169 100644 --- a/gtk/gtk.menu.lisp +++ b/gtk/gtk.menu.lisp @@ -60,11 +60,27 @@ ; TODO: gtk_menu_attach_to_widget -; TODO: gtk_menu_detach +(defcfun (menu-detach "gtk_menu_detach") :void + (menu (g-object menu))) -; TODO: gtk_menu_get_attach_widget +(export 'menu-detach) -; TODO: gtk_menu_get_for_attach_widget +; TODO: gtk_menu_get_attach_to_widget + +(defcfun (menu-attached-to-widget "gtk_menu_get_for_attach_widget") (glist (g-object menu) :free-from-foreign nil) + (width (g-object widget))) + +(export 'menu-attached-to-widget) + +(defcfun (radio-menu-item-group "gtk_radio_menu_item_get_group") (glist (g-object radio-menu-item) :free-from-foreign nil) + (radio-menu-item (g-object radio-menu-item))) + +(export 'radio-menu-item-group) + +(defcfun (tool-shell-rebuild-menu "gtk_tool_shell_rebuild_menu") :void + (shell (g-object tool-shell))) + +(export 'tool-shell-rebuild-menu) (defcfun (menu-shell-append "gtk_menu_shell_append") :void (menu-shell g-object) @@ -184,3 +200,6 @@ (export 'tool-item-rebuild-menu) +(defcfun (radio-tool-button-get-group "gtk_radio_tool_button_get_group") + (gslist (g-object radio-tool-button) :free-from-foreign nil) + (button (g-object radio-tool-button))) diff --git a/gtk/gtk.objects.lisp b/gtk/gtk.objects.lisp index abbe492..5dc5980 100644 --- a/gtk/gtk.objects.lisp +++ b/gtk/gtk.objects.lisp @@ -84,4 +84,25 @@ (define-g-enum "PangoEllipsizeMode" pango-ellipsize-mode (:export t :type-initializer "pango_ellipsize_mode_get_type") - (:none 0) (:start 1) (:middle 2) (:end 3)) \ No newline at end of file + (:none 0) (:start 1) (:middle 2) (:end 3)) + +(defcfun (adjustment-clamp-page "gtk_adjustment_clamp_page") :void + (adjustment (g-object adjustment)) + (lower :double) + (upper :double)) + +(export 'adjustment-clamp-page) + +(define-g-boxed-cstruct requisition "GtkRequisition" + (width :int :initform 0) + (height :int :initform 0)) + +(export (boxed-related-symbols 'requisition)) + +(define-g-boxed-cstruct allocation "GtkAllocation" + (x :int :initform 0) + (y :int :initform 0) + (width :int :initform 0) + (height :int :initform 0)) + +(export (boxed-related-symbols 'allocation)) diff --git a/gtk/gtk.selectors.lisp b/gtk/gtk.selectors.lisp index 7fb7125..9544206 100644 --- a/gtk/gtk.selectors.lisp +++ b/gtk/gtk.selectors.lisp @@ -1,11 +1,43 @@ (in-package :gtk) +(defcfun (%gtk-color-selection-get-previous-color "gtk_color_selection_get_previous_color") :void + (color-selection (g-object color-selection)) + (color (g-boxed-foreign color))) + +(defun gtk-color-selection-get-previous-color (color-selection) + (let ((color (make-color))) + (%gtk-color-selection-get-previous-color color-selection color) + color)) + +(defcfun gtk-color-selection-set-previous-color :void + (color-selection (g-object color-selection)) + (color (g-boxed-foreign color))) + (defcfun (color-selection-adjusting-p "gtk_color_selection_is_adjusting") :boolean (color-selection g-object)) (export 'color-selection-adjusting-p) -; TODO: gtk_color_selection_palette_from_string +(defcfun gtk-color-selection-palette-from-string :boolean + (str :string) + (colors :pointer) + (n-colors :pointer)) + +(defun color-selection-palette-from-string (str) + (with-foreign-objects ((colors :pointer) (n-colors :int)) + (when (gtk-color-selection-palette-from-string str colors n-colors) + (iter (with colors-ar = (mem-ref colors :pointer)) + (for i from 0 below (mem-ref n-colors :int)) + (for color-ptr = + (inc-pointer colors-ar + (* i (foreign-type-size 'gdk::color-cstruct)))) + (for color = (convert-from-foreign color-ptr '(g-boxed-foreign color))) + (collect color) + (finally (g-free colors-ar)))))) + +(defcfun gtk-color-selection-palette-to-string (g-string :free-from-foreign t) + (colors :pointer) + (n-colors :int)) ; TODO: gtk_color_selection_palette_to_string diff --git a/gtk/gtk.tree-view-column.lisp b/gtk/gtk.tree-view-column.lisp index bf81801..da1e3a1 100644 --- a/gtk/gtk.tree-view-column.lisp +++ b/gtk/gtk.tree-view-column.lisp @@ -75,9 +75,34 @@ (is-expander :boolean) (is-expanded :boolean)) -(export 'tree-view-column-set-cell-data) +(export 'tree-view-column-cell-set-data) + +(defcfun gtk-tree-view-column-cell-get-size :void + (tree-column (g-object tree-view-column)) + (cell-area (g-boxed-foreign rectangle)) + (x-offset (:pointer :int)) + (y-offset (:pointer :int)) + (width (:pointer :int)) + (height (:pointer :int))) + +(defun tree-view-column-cell-size (tree-column cell-area) + (with-foreign-objects ((x :int) (y :int) (width :int) (height :int)) + (gtk-tree-view-column-cell-get-size tree-column cell-area x y width height) + (values (mem-ref x :int) (mem-ref y :int) (mem-ref width :int) (mem-ref height :int)))) + +(export 'tree-view-column-cell-size) + +(defcfun gtk-tree-view-column-cell-get-position :boolean + (tree-column (g-object tree-view-column)) + (cell-renderer (g-object cell-renderer)) + (start-pos (:pointer :int)) + (width (:pointer :int))) + +(defun tree-view-column-cell-position (tree-column cell-renderer) + (with-foreign-objects ((start :int) (width :int)) + (when (gtk-tree-view-column-cell-get-position tree-column cell-renderer start width) + (list (mem-ref start :int) (mem-ref width :int))))) -;; TODO gtk_tree_view_column_cell_get_size () gtk_tree_view_column_cell_get_position () (defcfun (tree-view-column-focus-cell "gtk_tree_view_column_focus_cell") :void (tree-column (g-object tree-view-column)) diff --git a/gtk/gtk.tree-view.lisp b/gtk/gtk.tree-view.lisp index f9a1e19..34cf773 100644 --- a/gtk/gtk.tree-view.lisp +++ b/gtk/gtk.tree-view.lisp @@ -452,4 +452,16 @@ (export 'tree-view-get-tooltip-context) -; TODO: GtkTreeView drag-and-drop \ No newline at end of file +; TODO: GtkTreeView drag-and-drop + +(defcfun gtk-cell-view-get-size-of-row :boolean + (cell-view (g-object cell-view)) + (path (g-boxed-foreign tree-path)) + (requisition (g-boxed-foreign requisition))) + +(defun cell-view-get-size-of-row (cell-view path) + (let ((requisition (make-requisition))) + (gtk-cell-view-get-size-of-row cell-view path requisition) + requisition)) + +(export 'cell-view-get-size-of-row) diff --git a/gtk/gtk.ui-manager.lisp b/gtk/gtk.ui-manager.lisp index 99e2348..9bbdb4a 100644 --- a/gtk/gtk.ui-manager.lisp +++ b/gtk/gtk.ui-manager.lisp @@ -200,6 +200,16 @@ (export 'action-disconnect-accelerator) +(defcfun (action-block-activate "gtk_action_block_activate") :void + (action (g-object action))) + +(export 'action-block-activate) + +(defcfun (action-unblock-activate "gtk_action_unblock_activate") :void + (action (g-object action))) + +(export 'action-unblock-activate) + (defcfun (action-block-activate-from "gtk_action_block_activate_from") :void (action g-object) (proxy g-object)) @@ -210,4 +220,9 @@ (action g-object) (proxy g-object)) -(export 'action-unblock-activate-from) \ No newline at end of file +(export 'action-unblock-activate-from) + +(defcfun (radio-action-get-group "gtk_radio_action_get_group") (gslist (g-object radio-action) :free-from-foreign nil) + (action (g-object radio-action))) + +(export 'radio-action-get-group) diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp index 69a459c..25df5fb 100644 --- a/gtk/gtk.widget.lisp +++ b/gtk/gtk.widget.lisp @@ -12,16 +12,6 @@ (export 'widget-flags) -(defcstruct %gtk-requisition - (:width :int) - (:height :int)) - -(defcstruct %gtk-allocation - (:x :int) - (:y :int) - (:width :int) - (:height :int)) - (defcstruct %gtk-widget (:object %gtk-object) (:private-flags :uint16) @@ -29,8 +19,8 @@ (:saved-state state-type) (:name (:pointer :char)) (:style :pointer) - (:requisition %gtk-requisition) - (:allocation %gtk-allocation) + (:requisition requisition-cstruct) + (:allocation allocation-cstruct) (:window :pointer) (:parent :pointer))