Hug KeyWords

[alexfish]

Hi All

Hug key word helper

@ no graphics commands
Copy & paste, should also work with bacon -e (editor)

BR
Alex

INCLUDE hug.bac
DECLARE WIDGET$ ASSOC STRING

WIDGET$("window = WINDOW('title', 600, 400)") = "WINDOW"
WIDGET$("but = BUTTON('caption', 75 , 30 )") = "BUTTON"
WIDGET$("tog = TOGGLE('caption', 75, 30 )") = "TOGGLE"
WIDGET$("stock = STOCK('stock-id', 75, 30 )") = "STOCK"
WIDGET$("check = CHECK('caption', 75 , 30 )") = "CHECK"
WIDGET$("radio = RADIO('caption', 75 , 30 , 0 )") = "RADIO"
WIDGET$("entry = ENTRY('text', 100 , 30 )") = "ENTRY"
WIDGET$("password = PASSWORD(100, 30)") = "PASSWORD"
WIDGET$("mark = MARK('caption', 75, 30)") = "MARK"
WIDGET$("combo = COMBO('text', 150, 30)") = "COMBO"
WIDGET$("progressbar = PROGRESSBAR('caption', 200, 25)") = "PROGRESSBAR"
WIDGET$("hsep = HSEPARATOR(200)") = "HSEPARATOR"
WIDGET$("vsep = VSEPARATOR(200)") = "VSEPARATOR"
WIDGET$("frame = FRAME(300 , 150 )") = "FRAME"
WIDGET$("edit = EDIT(300 , 400 )") = "EDIT"
WIDGET$("list = LIST(150 , 200 )") = "LIST"
WIDGET$("spin = SPIN(75 , 25, 0 , 100 , 1)") = "SPIN"
WIDGET$("notebook = NOTEBOOK('caption', 400 , 300 )") = "NOTEBOOK"
WIDGET$("msgdialog = MSGDIALOG('text', 400, 200, type, buttons)") = "MSGDIALOG"
WIDGET$("filedialog = FILEDIALOG('title', 'caption', 600, 400, action)") = "FILEDIALOG"
WIDGET$("image = IMAGE(file, 300, 300") = "IMAGE"
WIDGET$("hslider = HSLIDER(300, 25, 0, 100, 1)") = "HSLIDER"
WIDGET$("vslider = VSLIDER(300, 25, 0, 100, 1)") = "VSLIDER"
WIDGET$("canvas = CANVAS(200, 299)") = "CANVAS"
WIDGET$("CALLBACK(widget, function)") = "CALLBACK"
WIDGET$("CALLBACKX(widget, function, value)") = "CALLBACKX"
WIDGET$("INCLUDE hug.bac") = "INCLUDE"
WIDGET$("ATTACH(window, widget, x, y)") = "ATTACH"
WIDGET$("TEXT(widget, 'text')") = "TEXT"
WIDGET$("DISABLE(widget)") = "DISABLE"
WIDGET$("ENABLE(widget)") = "ENABLE"
WIDGET$("FOCUS(widget)") = "FOCUS"
WIDGET$("UNFOCUS(widget)") = "UNFOCUS"
WIDGET$("SHOW(widget)") = "SHOW"
WIDGET$("HIDE(widget)") = "HIDE"
WIDGET$("HUGOPTIONS('NOSCALING')") = "HUGOPTIONS"
WIDGET$("HUGLIB(type)") = "HUGLIB$"
WIDGET$("TIMEOUT(widget, 'text')") = "TIMEOUT"
WIDGET$("GETPROPERTY(widget, property, variable)") = "GETPROPERTY"
WIDGET$("SETPROPERTY(window, decorated, TRUE)") = "SETPROPERTY"
WIDGET$("my_text$ = GRAB$(widget)") = "GRAB$"
WIDGET$("SET(widget, value)") = "SET"
WIDGET$("GET(widget)") = "GET"
WIDGET$("DISPLAY") = "DISPLAY"

SUB GetResult()

LOCAL mytext$
LOCAL result$
mytxt$ = GRAB$(ent1)
   result$ = INDEX$(WIDGET$,mytxt$)
IF LEN(result$) THEN
   result$ = REPLACE$(result$,"'",CHR$(34))
TEXT(ent2,result$)
ELSE
 TEXT(ent2,"no result")
END IF

END SUB

win = WINDOW("Hug key words",400,120)
ent1 = ENTRY("WINDOW",394,35)
ATTACH(win,ent1,3,3)
CALLBACK(ent1,GetResult)
ent2 = ENTRY("result",394,35)
ATTACH(win,ent2,3,43)