/n/sources/contrib/rog/sh-examples/demo/tk.demo/demo

Plan 9 from Bell Labs’s /n/sources/contrib/rog/sh-examples/demo/tk.demo/demo

Copyright © 2009 Alcatel-Lucent.
Distributed under the Lucent Public License version 1.02.
Download the Plan 9 distribution.


x := (
${quote tkcmd -- '-font '^$font}
'pack propagate . 0'
'button .b -text {Hello, world} -command {send stdout hi there}'
'pack .b'
'«quit tk'
'echo hi there'
)

cmds = ()
for (i in $x) {
	label := $i
	if {~ $i '«*'} {
		i = ''
	}
	cmds = $cmds $label '{result = '^${quote $i}^'}'
}
cmds = $cmds exit {result=''}

dodemo $cmds

(This is a user-contributed directory and
should not be interpreted as statement by Alcatel-Lucent.)

(Return to Plan 9 Home Page)