From c714c442442ef137f20ca4ff9707d5480cb9ba7a Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Wed, 29 Apr 2015 15:19:07 +0100 Subject: remove obsolete minitel, but leave source as example --- appl/examples/minitel/swkeyb.m | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 appl/examples/minitel/swkeyb.m (limited to 'appl/examples/minitel/swkeyb.m') diff --git a/appl/examples/minitel/swkeyb.m b/appl/examples/minitel/swkeyb.m new file mode 100644 index 00000000..52206801 --- /dev/null +++ b/appl/examples/minitel/swkeyb.m @@ -0,0 +1,21 @@ +### +### This data and information is not to be used as the basis of manufacture, +### or be reproduced or copied, or be distributed to another party, in whole +### or in part, without the prior written consent of Lucent Technologies. +### +### (C) Copyright 1997 Lucent Technologies +### +### Written by N. W. Knauft +### + +# Revisions Copyright © 1998 Vita Nuova Limited. + +Keyboard: module +{ + PATH: con "/dis/wm/minitel/swkeyb.dis"; + + initialize: fn(t: ref Tk->Toplevel, ctxt : ref Draw->Context, + dot: string): chan of string; + chaninit: fn(t: ref Tk->Toplevel, ctxt : ref Draw->Context, + dot: string, rc: chan of string): chan of string; +}; -- cgit v1.2.3