]> gitweb.factorcode.org Git - factor.git/commitdiff
webbrowser.windows: using absolute-path to make opening relative paths work
authorBjörn Lindqvist <bjourne@gmail.com>
Mon, 22 Aug 2016 00:02:22 +0000 (02:02 +0200)
committerBjörn Lindqvist <bjourne@gmail.com>
Mon, 22 Aug 2016 00:02:22 +0000 (02:02 +0200)
basis/webbrowser/windows/windows.factor

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