From b786f20bbab5a59046aa78a2c6c2a11536497202 Mon Sep 17 00:00:00 2001 From: bhgv Date: Thu, 1 Mar 2018 16:54:45 +0200 Subject: inferno-os tree was separated from the inferno-os-android (separated from the Android driver) --- module/tkclient.m | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 module/tkclient.m (limited to 'module/tkclient.m') diff --git a/module/tkclient.m b/module/tkclient.m new file mode 100644 index 0000000..7a4d3b1 --- /dev/null +++ b/module/tkclient.m @@ -0,0 +1,26 @@ +Tkclient: module +{ + PATH: con "/dis/lib/tkclient.dis"; + + Resize, + Hide, + Help, + OK, + Popup, # XXX is this useful? + Plain: con 1 << iota; + + Appl: con Resize | Hide; + + init: fn(); + makedrawcontext: fn(): ref Draw->Context; + toplevel: fn(ctxt: ref Draw->Context, topconfig: string, + title: string, buts: int): (ref Tk->Toplevel, chan of string); + onscreen: fn(top: ref Tk->Toplevel, how: string); + startinput: fn(top: ref Tk->Toplevel, devs: list of string); + wmctl: fn(top: ref Tk->Toplevel, request: string): string; + settitle: fn(top: ref Tk->Toplevel, name: string): string; + handler: fn(top: ref Tk->Toplevel, stop: chan of int); + + snarfput: fn(buf: string); + snarfget: fn(): string; +}; -- cgit v1.2.3