summaryrefslogtreecommitdiff
path: root/amiga/dist/Rexx
diff options
context:
space:
mode:
Diffstat (limited to 'amiga/dist/Rexx')
-rw-r--r--amiga/dist/Rexx/CloseTabs.nsrx47
-rw-r--r--amiga/dist/Rexx/SMTube.nsrx29
-rw-r--r--amiga/dist/Rexx/ShowTitles.nsrx18
-rwxr-xr-xamiga/dist/Rexx/viewsource.nsrx24
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