2011-11-12 19:18:52 -05:00
|
|
|
! Copyright (C) 2011 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
2016-08-21 20:02:22 -04:00
|
|
|
USING: io.pathnames kernel present system webbrowser windows.shell32
|
2013-11-17 15:57:11 -05:00
|
|
|
windows.user32 ;
|
2011-11-12 19:18:52 -05:00
|
|
|
IN: webbrowser.windows
|
|
|
|
|
|
|
|
|
|
M: windows open-file ( path -- )
|
2016-08-21 20:02:22 -04:00
|
|
|
absolute-path [ f "open" ] dip present f f
|
2013-11-17 15:57:11 -05:00
|
|
|
SW_SHOWNORMAL ShellExecute drop ;
|
