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

webbrowser.windows: using absolute-path to make opening relative paths work

char-rename
Björn Lindqvist 2016-08-22 02:02:22 +02:00
parent f17fc68a7e
commit d12c03f759
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/webbrowser/windows/windows.factor
View File

@ -1,11 +1,9 @@
! Copyright (C) 2011 John Benediktsson ! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: io.pathnames kernel present system webbrowser windows.shell32
USING: kernel present system webbrowser windows.shell32
windows.user32 ; windows.user32 ;
IN: webbrowser.windows IN: webbrowser.windows
M: windows open-file ( path -- ) M: windows open-file ( path -- )
[ f "open" ] dip present f f absolute-path [ f "open" ] dip present f f
SW_SHOWNORMAL ShellExecute drop ; SW_SHOWNORMAL ShellExecute drop ;