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

Use bi instead of dup/swap in a couple of places

db4
U-SLAVA-DFB8FF805\Slava 2008-12-01 18:20:32 -06:00
parent 6d8d4b3098
commit ef0410ef50
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/x11/x11.factor Normal file → Executable file
View File

@ -117,7 +117,7 @@ M: world button-up-event
} at ;
M: world wheel-event
[ dup mouse-event>scroll-direction swap mouse-event-loc ] dip
[ [ mouse-event>scroll-direction ] [ mouse-event-loc ] bi ] dip
send-wheel ;
M: world enter-event motion-event ;
@ -125,7 +125,7 @@ M: world enter-event motion-event ;
M: world leave-event 2drop forget-rollover ;
M: world motion-event
[ dup XMotionEvent-x swap XMotionEvent-y 2array ] dip
[ [ XMotionEvent-x ] [ XMotionEvent-y ] bi 2array ] dip
move-hand fire-motion ;
M: world focus-in-event
@ -146,10 +146,10 @@ M: world selection-notify-event
: clipboard-for-atom ( atom -- clipboard )
{
{ [ dup XA_PRIMARY = ] [ drop selection get ] }
{ [ dup XA_CLIPBOARD = ] [ drop clipboard get ] }
{ XA_PRIMARY [ selection get ] }
{ XA_CLIPBOARD [ clipboard get ] }
[ drop <clipboard> ]
} cond ;
} case ;
: encode-clipboard ( string type -- bytes )
XSelectionRequestEvent-target