~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d6ae92
)
Bug fixes
author
espen
<espen>
Fri, 11 Apr 2008 18:38:56 +0000
(18:38 +0000)
committer
espen
<espen>
Fri, 11 Apr 2008 18:38:56 +0000
(18:38 +0000)
gtk/gtkselection.lisp
patch
|
blob
|
blame
|
history
gtk/gtktypes.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtkselection.lisp
b/gtk/gtkselection.lisp
index
df2bebd
..
3a95cb5
100644
(file)
--- a/
gtk/gtkselection.lisp
+++ b/
gtk/gtkselection.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: gtkselection.lisp,v 1.1
4 2008-01-02 16:01:17
espen Exp $
+;; $Id: gtkselection.lisp,v 1.1
5 2008-04-11 18:38:56
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-169,7
+169,7
@@
(multiple-value-bind (valid-p targets)
(%selection-data-get-targets selection-data)
(when valid-p
(multiple-value-bind (valid-p targets)
(%selection-data-get-targets selection-data)
(when valid-p
- (map
-into targets
#'gdk:atom-name targets))))
+ (map
'vector
#'gdk:atom-name targets))))
#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(defbinding selection-data-targets-include-image-p (selection-data &optional writable-p) boolean
#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(defbinding selection-data-targets-include-image-p (selection-data &optional writable-p) boolean
@@
-269,7
+269,7
@@
((clipboard pointer) (atoms (vector gdk:atom n-atoms))
(n-atoms unsigned-int) (callback-id unsigned-int))
(declare (ignore clipboard))
((clipboard pointer) (atoms (vector gdk:atom n-atoms))
(n-atoms unsigned-int) (callback-id unsigned-int))
(declare (ignore clipboard))
- (funcall (find-user-data callback-id) (map
-into atoms
#'gdk:atom-name atoms)))
+ (funcall (find-user-data callback-id) (map
'vector
#'gdk:atom-name atoms)))
(defbinding clipboard-request-targets (clipboard callback) nil
(clipboard clipboard)
(defbinding clipboard-request-targets (clipboard callback) nil
(clipboard clipboard)
@@
-303,7
+303,7
@@
(multiple-value-bind (valid-p targets)
(%clipboard-wait-for-targets clipboard)
(when valid-p
(multiple-value-bind (valid-p targets)
(%clipboard-wait-for-targets clipboard)
(when valid-p
- (map
-into targets
#'gdk:atom-name targets))))
+ (map
'vector
#'gdk:atom-name targets))))
#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(defbinding clipboard-wait-is-target-available-p (clipboard target) boolean
#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
(defbinding clipboard-wait-is-target-available-p (clipboard target) boolean
@@
-461,7
+461,7
@@
(defbinding %drag-source-set-icon-stock () nil
(widget widget)
(defbinding %drag-source-set-icon-stock () nil
(widget widget)
- (
pixbuf gdk:pixbuf
))
+ (
stock-id string
))
(defun drag-source-set-icon (widget icon)
(etypecase icon
(defun drag-source-set-icon (widget icon)
(etypecase icon
diff --git
a/gtk/gtktypes.lisp
b/gtk/gtktypes.lisp
index
908eb0b
..
3572b35
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
2 2008-01-10 22:11:15
espen Exp $
+;; $Id: gtktypes.lisp,v 1.6
3 2008-04-11 18:40:23
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-884,7
+884,7
@@
:allocation :virtual
:getter "gtk_tree_view_get_columns"
:reader tree-view-columns
:allocation :virtual
:getter "gtk_tree_view_get_columns"
:reader tree-view-columns
- :type (glist
tree-view-column
))
+ :type (glist
(copy-of tree-view-column)
))
(selection
:allocation :virtual
:getter "gtk_tree_view_get_selection"
(selection
:allocation :virtual
:getter "gtk_tree_view_get_selection"
@@
-1096,7
+1096,7
@@
(markup-column
:allocation :virtual
:getter %icon-view-get-markup-column
(markup-column
:allocation :virtual
:getter %icon-view-get-markup-column
- :setter %icon-view-set-
t
markup-column
+ :setter %icon-view-set-markup-column
:boundp %icon-view-markup-column-boundp
:initarg :markup-column
:accessor icon-view-markup-column)
:boundp %icon-view-markup-column-boundp
:initarg :markup-column
:accessor icon-view-markup-column)