projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version bump to 0.1.1
[cl-gtk2.git]
/
gtk
/
gtk.label.lisp
diff --git
a/gtk/gtk.label.lisp
b/gtk/gtk.label.lisp
index
c5d738a
..
bd84e4c
100644
(file)
--- a/
gtk/gtk.label.lisp
+++ b/
gtk/gtk.label.lisp
@@
-1,16
+1,14
@@
(in-package :gtk)
(in-package :gtk)
-(defcfun gtk-label-get-layout-offsets :void
+(defcfun (%gtk-label-get-layout-offsets "gtk_label_get_layout_offsets") :void
(label (g-object label))
(x (:pointer :int))
(y (:pointer :int)))
(label (g-object label))
(x (:pointer :int))
(y (:pointer :int)))
-(defun label-layout-offsets (label)
+(defun gtk-label-get-layout-offsets (label)
(with-foreign-objects ((x :int) (y :int))
(with-foreign-objects ((x :int) (y :int))
- (gtk-label-get-layout-offsets label x y)
- (values (mem-ref x :int) (mem-ref y :int))))
-
-(export 'label-layout-offsets)
+ (%gtk-label-get-layout-offsets label x y)
+ (list (mem-ref x :int) (mem-ref y :int))))
(defcfun (label-select-region "gtk_label_select_region") :void
(label (g-object label))
(defcfun (label-select-region "gtk_label_select_region") :void
(label (g-object label))
@@
-19,7
+17,12
@@
(export 'label-select-region)
(export 'label-select-region)
-(defcfun (label-layout "gtk_label_get_layout") g-object ;(g-object pango-layout)
- (label (g-object label)))
+(defcfun (%gtk-label-get-selection-bounds "gtk_label_get_selection_bounds") :boolean
+ (label (g-object label))
+ (start (:pointer :int))
+ (end (:pointer :int)))
-(export 'label-layout)
\ No newline at end of file
+(defun gtk-label-get-selection-bounds (label)
+ (with-foreign-objects ((start :int) (end :int))
+ (when (%gtk-label-get-selection-bounds label start end)
+ (list (mem-ref start :int) (mem-ref end :int)))))