To run this code, you will have to copy it into a file and load the file in Tint Emacs. Use M-x eval-current-buffer to compile the code.
Def:Proc:word(%word) [*] #(def?,oleauto.new-object,,( #(tint.ignore,#(tint.library,toac)) )) #(word.document,#(oleauto.new-object,word.document),%word) [*] Def:Proc:word.document(%doc,%word) [*] #(word.application,#(%doc.Application.get),%word) #(undef,%doc) [*] Def:Proc:word.application(%app,%word) [*] #(word.suggestions,#(%app.GetSpellingSuggestions,%word,,,,,,,,,,,,,)) [*] Def:Proc:word.suggestions(%suggestions,%word) [*] #(word.suggestions.list,%suggestions,1,#(%suggestions.Count.get)) #(undef,%suggestions) [*] Def:Proc:word.suggestions.list(%suggestions,%idx,%max) [*] #(>,%idx,%max,,( #(word.suggestion,#(%suggestions.Item,%idx)) #(word.suggestions.list,%suggestions,#(+,%idx,1),%max) )) [*] Def:Proc:word.suggestion(%suggestion) [*] #(%suggestion.Name.get) #(undef,%suggestion) [*]