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

tidy up load errors in ui.backend.x11

db4
Joe Groff 2010-02-24 00:51:02 -08:00
parent 2a3bf53af7
commit 3bf5eeddf9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/backend/x11/x11.factor
View File

@ -329,10 +329,10 @@ M: x11-ui-backend beep ( -- )
<PRIVATE <PRIVATE
: escape-' ( string -- string' ) : escape-' ( string -- string' )
[ dup CHAR: ' = [ drop "'\''" ] [ 1string ] if ] { } map-as concat ; [ dup CHAR: ' = [ drop "'\\''" ] [ 1string ] if ] { } map-as concat ;
: xmessage ( string -- ) : xmessage ( string -- )
escape-' "/usr/X11R6/bin/xmessage '" "'" surround system ; escape-' "/usr/X11R6/bin/xmessage '" "'" surround system drop ;
PRIVATE> PRIVATE>
M: x11-ui-backend system-alert M: x11-ui-backend system-alert