diff options
Diffstat (limited to 'amiga/dist/Rexx')
-rw-r--r-- | amiga/dist/Rexx/CloseTabs.nsrx | 47 | ||||
-rw-r--r-- | amiga/dist/Rexx/SMTube.nsrx | 29 | ||||
-rw-r--r-- | amiga/dist/Rexx/ShowTitles.nsrx | 18 | ||||
-rwxr-xr-x | amiga/dist/Rexx/viewsource.nsrx | 24 |
4 files changed, 0 insertions, 118 deletions
diff --git a/amiga/dist/Rexx/CloseTabs.nsrx b/amiga/dist/Rexx/CloseTabs.nsrx deleted file mode 100644 index 276ae11a3..000000000 --- a/amiga/dist/Rexx/CloseTabs.nsrx +++ /dev/null @@ -1,47 +0,0 @@ -/* - * Copyright 2010 Chris Young <chris@unsatisfactorysoftware.co.uk> - * - * This file is part of NetSurf, http://www.netsurf-browser.org/ - * - * NetSurf is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * NetSurf is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ - -/* This script closes all tabs other than the current one */ - -options results -address netsurf - -/* Find the currently active window and tab */ -active -awin = result -active tab -atab = result - -/* Find out how many tabs are in the active window */ -windows window awin -tabs = result - -if tabs=1 then exit - -/* Close all tabs above the current one */ -do t=tabs to atab+1 by -1 - close window awin tab t -end - -/* Close all tabs below the current one - * NB: The active tab number will change when lower-numbered tabs are closed! - */ - -do t=1 to atab-1 - close window awin tab 1 -end diff --git a/amiga/dist/Rexx/SMTube.nsrx b/amiga/dist/Rexx/SMTube.nsrx deleted file mode 100644 index 5f1ab209a..000000000 --- a/amiga/dist/Rexx/SMTube.nsrx +++ /dev/null @@ -1,29 +0,0 @@ -/* - * Copyright 2014 Chris Young <chris@unsatisfactorysoftware.co.uk> - * - * This file is part of NetSurf, http://www.netsurf-browser.org/ - * - * NetSurf is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * NetSurf is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ - -/* This script launches SMTube (OS4Depot:video/play/smtube) */ - -options results -geturl - -if open('smtube','APPDIR:SMTube','R') then do - close('smtube') - address COMMAND 'APPDIR:SMTube' result -end -else - address command 'requestchoice >NIL: "NetSurf" "SMTube must be installed for this script to function.*n*nIt can be downloaded from OS4Depot:video/play/smtube" "OK"' diff --git a/amiga/dist/Rexx/ShowTitles.nsrx b/amiga/dist/Rexx/ShowTitles.nsrx deleted file mode 100644 index 27de74122..000000000 --- a/amiga/dist/Rexx/ShowTitles.nsrx +++ /dev/null @@ -1,18 +0,0 @@ -/* Show all NetSurf windows and tabs open */ - -options results -address netsurf - -windows -wins = result - -do w=1 to wins - windows window w - tabs = result - say "Window" w "(" || tabs "tabs)" - - do t=1 to tabs - gettitle window w tab t - say " Tab" t || ":" result - end -end diff --git a/amiga/dist/Rexx/viewsource.nsrx b/amiga/dist/Rexx/viewsource.nsrx deleted file mode 100755 index 755e7a3b6..000000000 --- a/amiga/dist/Rexx/viewsource.nsrx +++ /dev/null @@ -1,24 +0,0 @@ -/* - * Copyright 2009 Chris Young <chris@unsatisfactorysoftware.co.uk> - * - * This file is part of NetSurf, http://www.netsurf-browser.org/ - * - * NetSurf is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * NetSurf is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ - -/* This scripts shows the source of the current page in Notepad */ -options results - -'save t:nstmp' -getscreenname -address command 'sys:utilities/notepad t:nstmp pubscreen' result |