chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Infra: Rudimentary setup system.
[clg]
/
gtk
/
gtktypes.lisp
diff --git
a/gtk/gtktypes.lisp
b/gtk/gtktypes.lisp
index 4a0a52ea9c07fda6d8fcaadba2665cc19b187a28..2bd3f9b78111fcb7d5a42f7455ce9dc083f1b415 100644
(file)
--- a/
gtk/gtktypes.lisp
+++ b/
gtk/gtktypes.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktypes.lisp,v 1.6
4 2008-05-06 00:09:03
espen Exp $
+;; $Id: gtktypes.lisp,v 1.6
5 2008-10-27 18:42:01
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-84,6
+84,9
@@
(defclass border (boxed)
:type int))
(:metaclass boxed-class))
:type int))
(:metaclass boxed-class))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (register-type 'border '|gtk_border_get_type|))
+
(defclass stock-item (struct)
((id
:allocation :alien
(defclass stock-item (struct)
((id
:allocation :alien
@@
-145,6
+148,11
@@
(define-type-method reader-function ((type position) &optional ref)
(declare (ignore type ref))
(reader-function 'int))
(declare (ignore type ref))
(reader-function 'int))
+;; Register GtkObject in advance so that eg GtkTooltips, which inherits from it,
+;; gets a proper supertype. TODO: This is a hack. Where is it supposed to
+;; happen?
+(register-type '%object "GtkObject")
+
(define-types-by-introspection "Gtk"
;; Manually defined
("GtkObject" :ignore t)
(define-types-by-introspection "Gtk"
;; Manually defined
("GtkObject" :ignore t)
@@
-154,6
+162,8
@@
(define-types-by-introspection "Gtk"
("GtkTreePath" :ignore t)
; ("GtkStyle" :ignore t)
("GtkTreePath" :ignore t)
; ("GtkStyle" :ignore t)
+ ("GtkMountOperation" :ignore t) ; Needs GIO
+
;; Manual override
("GtkWidget"
:slots
;; Manual override
("GtkWidget"
:slots