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

webbrowser.windows: calling absolute-path doesnt work on urls (#1759)

char-rename
Björn Lindqvist 2016-12-18 04:13:37 +01:00
parent 6f555a7b2c
commit 663697f058
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/webbrowser/webbrowser-tests.factor
View File

@ -1,4 +1,4 @@
USING: io.pathnames tools.test ; USING: io.pathnames tools.test urls ;
IN: webbrowser IN: webbrowser
{ t } [ "http://reddit.com" url-string? ] unit-test { t } [ "http://reddit.com" url-string? ] unit-test
@ -8,3 +8,4 @@ IN: webbrowser
{ f } [ 123 url-string? ] unit-test { f } [ 123 url-string? ] unit-test
{ } [ "" absolute-path open-item ] unit-test { } [ "" absolute-path open-item ] unit-test
{ } [ URL" http://www.google.com" open-item ] unit-test

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

@ -1,9 +1,8 @@
! 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-item ( item -- ) M: windows open-item ( item -- )
absolute-path [ f "open" ] dip present f f [ f "open" ] dip present f f
SW_SHOWNORMAL ShellExecute drop ; SW_SHOWNORMAL ShellExecute drop ;