From e9f8379564a799704b29363a95e79ea294917542 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 29 Aug 2008 15:47:36 -0500 Subject: [PATCH] ui.clipboards: use new accessors --- basis/ui/clipboards/clipboards.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/clipboards/clipboards.factor b/basis/ui/clipboards/clipboards.factor index 4ee54cd833..5cd2974dbd 100644 --- a/basis/ui/clipboards/clipboards.factor +++ b/basis/ui/clipboards/clipboards.factor @@ -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