chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
aa9cedd
)
Paned widget updated
author
espen
<espen>
Mon, 20 Dec 2004 20:00:07 +0000
(20:00 +0000)
committer
espen
<espen>
Mon, 20 Dec 2004 20:00:07 +0000
(20:00 +0000)
gtk/gtk.lisp
patch
|
blob
|
blame
|
history
gtk/gtktypes.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtk.lisp
b/gtk/gtk.lisp
index 0f7426d0cc01dfd946eb3f4c652ba43ec5083133..9e39a260bfe669d436786826a37ed6d93e641f9d 100644
(file)
--- a/
gtk/gtk.lisp
+++ b/
gtk/gtk.lisp
@@
-15,7
+15,7
@@
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gtk.lisp,v 1.2
2 2004-12-20 00:51:38
espen Exp $
+;; $Id: gtk.lisp,v 1.2
3 2004-12-20 20:00:07
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-1043,27
+1043,6
@@
(defbinding paned-pack2 () nil
(resize boolean)
(shrink boolean))
(resize boolean)
(shrink boolean))
-(defun (setf paned-child1) (child paned)
- (paned-pack1 paned child nil t)
- child)
-
-(defun (setf paned-child2) (child paned)
- (paned-pack2 paned child t t)
- child)
-
-;; Defined in gtkglue.c
-(defbinding paned-child1 () widget
- (paned paned)
- (resize boolean :out)
- (shrink boolean :out))
-
-;; Defined in gtkglue.c
-(defbinding paned-child2 () widget
- (paned paned)
- (resize boolean :out)
- (shrink boolean :out))
-
-
;;; Layout
;;; Layout
diff --git
a/gtk/gtktypes.lisp
b/gtk/gtktypes.lisp
index 3e72cad97f8cb71c070524f3941cad907b922831..3e068f77e46900dd4ceaf85674004e16aa599f26 100644
(file)
--- a/
gtk/gtktypes.lisp
+++ b/
gtk/gtktypes.lisp
@@
-15,7
+15,7
@@
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gtktypes.lisp,v 1.2
2 2004-12-17 00:42:55
espen Exp $
+;; $Id: gtktypes.lisp,v 1.2
3 2004-12-20 20:00:07
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-400,14
+400,16
@@
(default-widget
:slots
((child1
:allocation :virtual
:slots
((child1
:allocation :virtual
- :getter paned-child1
- :setter (setf paned-child1)
+ :getter "gtk_paned_get_child1"
+ :setter "gtk_paned_add1"
+ :accessor paned-child1
:initarg :child1
:type widget)
(child2
:allocation :virtual
:initarg :child1
:type widget)
(child2
:allocation :virtual
- :getter paned-child2
- :setter (setf paned-child2)
+ :getter "gtk_paned_get_child2"
+ :setter "gtk_paned_add2"
+ :accessor paned-child2
:initarg :child2
:type widget)))
:initarg :child2
:type widget)))