steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove >r/r> usage from ui.cocoa

db4
Slava Pestov 2008-12-10 16:25:57 -06:00
parent 84675ad96d
commit 24a8cb0a95
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/ui/cocoa/views/views.factor
View File

@ -266,14 +266,9 @@ CLASS: {
{ "writeSelectionToPasteboard:types:" "char" { "id" "SEL" "id" "id" } { "writeSelectionToPasteboard:types:" "char" { "id" "SEL" "id" "id" }
[ [
CF>string-array NSStringPboardType swap member? [ CF>string-array NSStringPboardType swap member? [
>r drop window-focus gadget-selection dup [ [ drop window-focus gadget-selection ] dip over
r> set-pasteboard-string 1 [ set-pasteboard-string 1 ] [ 2drop 0 ] if
] [ ] [ 3drop 0 ] if
r> 2drop 0
] if
] [
3drop 0
] if
] ]
} }
@ -281,9 +276,7 @@ CLASS: {
[ [
pasteboard-string dup [ pasteboard-string dup [
[ drop window-focus ] dip swap user-input 1 [ drop window-focus ] dip swap user-input 1
] [ ] [ 3drop 0 ] if
3drop 0
] if
] ]
} }