chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reintroduced SERVE-EVENT based asynchronous event handling for SBCL 1.0.15.6
[clg]
/
gtk
/
gtktree.lisp
diff --git
a/gtk/gtktree.lisp
b/gtk/gtktree.lisp
index bf47a0fcb8e22a08d3e0d147dd73e278ba5a3f4a..19eb0d4ba18098a6f5a4565a100154df8c9b6fc9 100644
(file)
--- a/
gtk/gtktree.lisp
+++ b/
gtk/gtktree.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: gtktree.lisp,v 1.3
0 2007-09-06 14:32:0
3 espen Exp $
+;; $Id: gtktree.lisp,v 1.3
3 2008-02-27 21:48:5
3 espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-384,6
+384,12
@@
(defbinding tree-model-get-iter (model path &optional (iter (make-instance 'tree
(model tree-model)
(iter tree-iter :in/return)
(path tree-path))
(model tree-model)
(iter tree-iter :in/return)
(path tree-path))
+
+#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0")
+(defmethod allocate-foreign ((tree-iter tree-iter) &rest initargs)
+ (declare (ignore initargs))
+ (let ((size (foreign-size (class-of tree-iter))))
+ (slice-alloc size)))
(defun ensure-tree-iter (model row)
(etypecase row
(defun ensure-tree-iter (model row)
(etypecase row
@@
-569,15
+575,15
@@
(defbinding %tree-selection-path-is-selected () boolean
(defbinding %tree-selection-select-iter () nil
(tree-selection tree-selection)
(defbinding %tree-selection-select-iter () nil
(tree-selection tree-selection)
- (tree-
path tree-path
))
+ (tree-
iter tree-iter
))
(defbinding %tree-selection-unselect-iter () nil
(tree-selection tree-selection)
(defbinding %tree-selection-unselect-iter () nil
(tree-selection tree-selection)
- (tree-
path tree-path
))
+ (tree-
iter tree-iter
))
(defbinding %tree-selection-iter-is-selected () boolean
(tree-selection tree-selection)
(defbinding %tree-selection-iter-is-selected () boolean
(tree-selection tree-selection)
- (tree-
path tree-path
))
+ (tree-
iter tree-iter
))
(defun tree-selection-select (selection row)
(etypecase row
(defun tree-selection-select (selection row)
(etypecase row