ui.clipboards: use new accessors

db4
Eduardo Cavazos 2008-08-29 15:47:36 -05:00
parent 708051b89d
commit e9f8379564
1 changed files with 2 additions and 2 deletions

View File

@ -1,6 +1,6 @@
! Copyright (C) 2006, 2007 Slava Pestov. ! Copyright (C) 2006, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel ui.gadgets ui.gestures namespaces ; USING: kernel accessors ui.gadgets ui.gestures namespaces ;
IN: ui.clipboards IN: ui.clipboards
! Two text transfer buffers ! Two text transfer buffers
@ -14,7 +14,7 @@ M: object paste-clipboard
GENERIC: copy-clipboard ( string gadget clipboard -- ) GENERIC: copy-clipboard ( string gadget clipboard -- )
M: object copy-clipboard nip set-clipboard-contents ; M: object copy-clipboard nip (>>contents) ;
SYMBOL: clipboard SYMBOL: clipboard
SYMBOL: selection SYMBOL: selection