~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:
5d18000
)
Added missing read-time conditional testing for Gtk+ version
author
espen
<espen>
Mon, 22 Oct 2007 09:21:50 +0000
(09:21 +0000)
committer
espen
<espen>
Mon, 22 Oct 2007 09:21:50 +0000
(09:21 +0000)
gtk/gtktext.lisp
patch
|
blob
|
blame
|
history
gtk/gtktree.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtktext.lisp
b/gtk/gtktext.lisp
index
c56ba91
..
c61bfbc
100644
(file)
--- a/
gtk/gtktext.lisp
+++ b/
gtk/gtktext.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: gtktext.lisp,v 1.
9 2007/10/17 14:52:19
espen Exp $
+;; $Id: gtktext.lisp,v 1.
10 2007/10/22 09:21:50
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-343,6
+343,7
@@
;;; Text Iter
;;; Text Iter
+#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.10.0")
(defmethod allocate-foreign ((text-iter text-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of text-iter))))
(defmethod allocate-foreign ((text-iter text-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of text-iter))))
diff --git
a/gtk/gtktree.lisp
b/gtk/gtktree.lisp
index
efbfbcf
..
1e238b6
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
1 2007/10/17 14:47:1
0 espen Exp $
+;; $Id: gtktree.lisp,v 1.3
2 2007/10/22 09:21:5
0 espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-385,6
+385,7
@@
(iter tree-iter :in/return)
(path tree-path))
(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))))
(defmethod allocate-foreign ((tree-iter tree-iter) &rest initargs)
(declare (ignore initargs))
(let ((size (foreign-size (class-of tree-iter))))