diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor index 1bc174907f..5d51db71d1 100644 --- a/basis/webbrowser/webbrowser-tests.factor +++ b/basis/webbrowser/webbrowser-tests.factor @@ -1,4 +1,4 @@ -USING: io.pathnames tools.test ; +USING: io.pathnames tools.test urls ; IN: webbrowser { t } [ "http://reddit.com" url-string? ] unit-test @@ -8,3 +8,4 @@ IN: webbrowser { f } [ 123 url-string? ] unit-test { } [ "" absolute-path open-item ] unit-test +{ } [ URL" http://www.google.com" open-item ] unit-test diff --git a/basis/webbrowser/windows/windows.factor b/basis/webbrowser/windows/windows.factor index 705de35b9c..7a7a7dee99 100644 --- a/basis/webbrowser/windows/windows.factor +++ b/basis/webbrowser/windows/windows.factor @@ -1,9 +1,8 @@ ! Copyright (C) 2011 John Benediktsson ! See http://factorcode.org/license.txt for BSD license -USING: io.pathnames kernel present system webbrowser windows.shell32 -windows.user32 ; +USING: kernel present system webbrowser windows.shell32 windows.user32 ; IN: webbrowser.windows M: windows open-item ( item -- ) - absolute-path [ f "open" ] dip present f f + [ f "open" ] dip present f f SW_SHOWNORMAL ShellExecute drop ;