HUG MARK (label) Copy & Animate Tips

[alexfish]

INCLUDE "hug.bac"
gtk$ = HUGLIB$("gtk")
IMPORT "gtk_label_set_angle (long,double)" FROM gtk$ TYPE void

HOME$ = GETENVIRON$("HOME")
LOCAL ptr
FUNCTION turn()
INCR ptr
gtk_label_set_angle(lab,ptr)
RETURN TRUE
END FUNCTION

win= WINDOW("Label",600,400)
text$ = "Wello Multi Line Label" & NL$ "Twisted Label"
lab = MARK(text$,150,150)
ATTACH(win,lab,3,3)

copyme = MARK("COPY ME FROM HERE",100,30)
gtk_label_set_selectable(copyme,TRUE)
ATTACH(win,copyme,3,160)
TIMEOUT(10,turn)
DISPLAY

or
gtk_label_set_angle(lab,-ptr)
BR
Alex

[alexfish]

Make A callback

INCLUDE "hug.bac"

SUB GLINK (NUMBER hug_widget, void* hug_addr)

g_signal_connect_data(hug_widget_s_widget(STR$(hug_widget)), "activate-link", hug_addr, 0, 0, 0)

END SUB
'==================================================
SUB test_label(NUMBER widget)
LOCAL txt$
txt$ = GRAB$(widget)

PRINT "label called"
PRINT txt$
PRINT "http://www.basic-converter.org/"
END SUB
'==================================================

win = WINDOW( "Link",300,200)

link1 = MARK("This label has a link to  <a href='http://www.basic-converter.org/'> <span foreground='blue'>BaCon</span></a>",-1,-1)

ATTACH(win,link1,5,5)
GLINK(link1, test_label)
DISPLAY