Commit c0cefc05 authored by Robert Sprowson's avatar Robert Sprowson
Browse files

Delete some dead code

The ctl part of RISC_OSLib is long abandoned, and has been switched out as far back as CVS history goes. Delete it.
Tagged as Edit-1_73-1, since the binary is unchanged.
parent d05d00c7
...@@ -44,9 +44,6 @@ ...@@ -44,9 +44,6 @@
#define PRINT 1 #define PRINT 1
#define CTL FALSE
/* Not using the ctl module yet. */
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
...@@ -89,10 +86,6 @@ ...@@ -89,10 +86,6 @@
#include "visdelay.h" #include "visdelay.h"
#include "pointer.h" #include "pointer.h"
#if CTL
#include "ctl.h"
#endif
#if BASIC #if BASIC
static int Edit_Strip = TRUE; static int Edit_Strip = TRUE;
static int Edit_Incrm = 10; static int Edit_Incrm = 10;
...@@ -150,33 +143,8 @@ static void arcedit__clickproc(wimp_i i) { ...@@ -150,33 +143,8 @@ static void arcedit__clickproc(wimp_i i) {
static void arcedit__iconmenuproc(void *handle, char *hit) { static void arcedit__iconmenuproc(void *handle, char *hit) {
txtedit_state *s; txtedit_state *s;
handle=handle;
#if CTL
ctl_decode_state state;
state.index = 1;
while (ctl_decode("IconControl", wimpt_last_event(), &state))
{
#if FALSE
switch ctl_switch("IconControl", "go think find foo fum", action, TRUE) {
1: /+ go +/
... logical action for action "go" ...
break;
2: /+ think +/
... logical action for action "think" ...
... other actions ...
default:
/+ error message already produced by ctl_switch +/
};
#else
werr(FALSE, "edit: ctl suggests event %i", state.code);
#endif
};
if (state.index != 0) /* otherwise, try old handlers. */
#endif
{
handle=handle;
switch (hit[0]) { switch (hit[0]) {
case MProg: case MProg:
if (hit[1] != 0) if (hit[1] != 0)
...@@ -257,7 +225,6 @@ static void arcedit__iconmenuproc(void *handle, char *hit) { ...@@ -257,7 +225,6 @@ static void arcedit__iconmenuproc(void *handle, char *hit) {
if (txtedit_mayquit()) exit(0); if (txtedit_mayquit()) exit(0);
#endif #endif
}; };
};
} }
static menu edit__main_menu_maker(void *handle) static menu edit__main_menu_maker(void *handle)
...@@ -269,10 +236,6 @@ static menu edit__main_menu_maker(void *handle) ...@@ -269,10 +236,6 @@ static menu edit__main_menu_maker(void *handle)
if (Edit_Menu == 0) if (Edit_Menu == 0)
{ {
#if CTL
Edit_Menu = ctl_menu("IconControl");
#else
#if BASIC #if BASIC
Edit_Menu = menu_new(msgs_lookup("ED1"), msgs_lookup("ED2a")); Edit_Menu = menu_new(msgs_lookup("ED1"), msgs_lookup("ED2a"));
Edit_Options = menu_new(msgs_lookup("ED2b"), msgs_lookup("ED2c")); Edit_Options = menu_new(msgs_lookup("ED2b"), msgs_lookup("ED2c"));
...@@ -296,7 +259,6 @@ static menu edit__main_menu_maker(void *handle) ...@@ -296,7 +259,6 @@ static menu edit__main_menu_maker(void *handle)
sizeitem->iconflags &= ~wimp_IHCENTRE; sizeitem->iconflags &= ~wimp_IHCENTRE;
} }
menu_submenu(Edit_Menu, MCreate, create_submenu); menu_submenu(Edit_Menu, MCreate, create_submenu);
#endif
} }
help_register_handler(help_simplehandler, "IHELP"); help_register_handler(help_simplehandler, "IHELP");
...@@ -718,11 +680,6 @@ int main(int argc, char *argv[]) ...@@ -718,11 +680,6 @@ int main(int argc, char *argv[])
} }
#endif #endif
#if CTL
trace_on();
ctl_init();
#endif
#if FALSE #if FALSE
/* Need to be able to move the hot keys template off the screen, dbox prevents /* Need to be able to move the hot keys template off the screen, dbox prevents
this at the moment... */ this at the moment... */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment