~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
25dcfb1
)
Bug fix
author
espen
<espen>
Wed, 2 Jan 2008 16:01:17 +0000
(16:01 +0000)
committer
espen
<espen>
Wed, 2 Jan 2008 16:01:17 +0000
(16:01 +0000)
gtk/gtkselection.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gtk/gtkselection.lisp
b/gtk/gtkselection.lisp
index
457cbe9
..
1b7dfc5
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
3 2007/12/13 14:34:41
espen Exp $
+;; $Id: gtkselection.lisp,v 1.1
4 2008/01/02 16:01:17
espen Exp $
(in-package "GTK")
(in-package "GTK")
@@
-211,7
+211,7
@@
((register-user-data (cons get-func clear-func)) unsigned-int))
(defun clipboard-set-contents (clipboard targets get-func &optional clear-func)
((register-user-data (cons get-func clear-func)) unsigned-int))
(defun clipboard-set-contents (clipboard targets get-func &optional clear-func)
- (
%
clipboard-set-with-data clipboard (ensure-target-table targets)
+ (clipboard-set-with-data clipboard (ensure-target-table targets)
get-func (or clear-func #'(lambda ()))))
(defbinding clipboard-clear () nil
get-func (or clear-func #'(lambda ()))))
(defbinding clipboard-clear () nil