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.
! 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
! Two text transfer buffers
@ -14,7 +14,7 @@ M: object paste-clipboard
GENERIC: copy-clipboard ( string gadget clipboard -- )
M: object copy-clipboard nip set-clipboard-contents ;
M: object copy-clipboard nip (>>contents) ;
SYMBOL: clipboard
SYMBOL: selection