functor
import
QTk at 'http://www.info.ucl.ac.be/people/ned/qtk/QTk.ozf'
Application
SmallLexicon
SmallPartial
Browser(browse:Browse)
define
Box1 Box2
Words1 = [der den dem des die das]
Words2 = [mann mannes männer männern
schöne schönen schöner schönes schönem]
proc {Try}
{Browse
try
W1 = {Nth Words1 {Box1 get(firstselection:$)}}
W2 = {Nth Words2 {Box2 get(firstselection:$)}}
in
{SmallPartial.partialAgreement
decode(
{SmallPartial.getPartialAgreement
{SmallLexicon.get W1}
{SmallLexicon.get W2}} $)}
catch _ then error end}
end
Interface =
lr(listbox(init:Words1 glue:we exportselection:false handle:Box1)
listbox(init:Words2 glue:we exportselection:false handle:Box2)
newline
button(text:'Try' glue:we action:Try)
button(text:'Quit' glue:we
action:proc {$} {Application.exit 0} end))
Window = {QTk.build Interface}
{Window show}
end