basis/webbrowser/windows/windows.factor

   1 ! Copyright (C) 2011 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: kernel present system webbrowser windows.shell32 windows.user32 ;
   4 IN: webbrowser.windows
   5
   6 M: windows open-item ( item -- )
   7     [ f "open" ] dip present f f
   8     SW_SHOWNORMAL ShellExecute drop ;