functor
import
QTk at 'http://www.info.ucl.ac.be/people/ned/qtk/QTk.ozf'
Application
SmallLexicon
Browser(browse:Browse)
define
DetBox AdjBox NounBox
DetWords = ['*no determiner*'
der den dem des die das
ein einen einem eines eine einer]
AdjWords = [schöne schönen schöner schönes schönem]
NounWords= [mann mannes männer männern]
proc {Try}
{Browse
try
D = {Nth DetWords {DetBox get(firstselection:$)}}
A = {Nth AdjWords {AdjBox get(firstselection:$)}}
N = {Nth NounWords {NounBox get(firstselection:$)}}
in
{SmallLexicon.agreement
decode(
{SmallLexicon.get D}=
{SmallLexicon.get A}=
{SmallLexicon.get N} $)}
catch _ then error end}
end
Interface =
lr(listbox(init:DetWords glue:we exportselection:false handle:DetBox)
listbox(init:AdjWords glue:we exportselection:false handle:AdjBox)
listbox(init:NounWords glue:we exportselection:false handle:NounBox)
newline
button(text:'Try' glue:we action:Try)
empty
button(text:'Quit' glue:we
action:proc {$} {Application.exit 0} end))
Window = {QTk.build Interface}
{Window show}
end