Adding self-defined widgets to HUG

[bigbass]

Wanted to make Peter's excellent old 2012 thread bumped up how to add to HUG
read page 1 of this thread for the inside story of how to add new widgets when not in the official HUG

Hey guys


Here is the new linkbutton widget for HUG!


Attachment Deleted



reference link HUG
REGISTER

reference link gtk3 source
gtk3 source

Joe



'--- link2hug.bac

'--- added the gtk linkbutton to HUG  
'--- Ported from the gtk3 gnome offical demo to BaCon  in (gtk2) by bigbass
'--- https://developer.gnome.org/gnome-devel-demos/unstable/linkbutton.c.html.es


INCLUDE "hug.bac"
CONST gtk$ = HUGLIB$("gtk")

OPTION PARSE FALSE


IMPORT "gtk_link_button_new(char*)" FROM gtk$ TYPE long

'--- gtk_link_button_set_uri not needed when used with HUG in this example
IMPORT "gtk_link_button_set_uri(long,char*)" FROM gtk$ TYPE void



' --------------------------------------------------------------
FUNCTION LINKBUTTON(int hug_xsize, int hug_ysize, STRING linkname$)
' --------------------------------------------------------------
LOCAL widget ,linkbutton

' create the linkbutton
widget = gtk_link_button_new (linkname$)

' register and determine size and signal
REGISTER(widget, hug_xsize, hug_ysize, "clicked",0, 0, 0, 0)
 
RETURN widget
END FUNCTION


window = WINDOW( "NEW HUG LinkButton",  400 ,300)


linkbutton =  LINKBUTTON(300, 50 ,"http://www.basic-converter.org/doc_frame.html")
linkbutton2 = LINKBUTTON(300, 50 ,"http://www.basic-converter.proboards.com")
linkbutton3 = LINKBUTTON(300, 50 ,"http://www.basic-converter.org/")

'--- fix alignment problems so that you don't need to use negative numbers
SETPROPERTY(linkbutton, "xalign", 0)
SETPROPERTY(linkbutton2, "xalign", 0)
SETPROPERTY(linkbutton3, "xalign", 0)


ATTACH(window,linkbutton,0,10)
ATTACH(window,linkbutton2,0,60)
ATTACH(window,linkbutton3,0,110)
CALLBACK(window,LINKBUTTON)

DISPLAY



[rikky]

Aha,

INCLUDE "hug.bac"
CONST GTK$ = HUGLIB$("gtk")
DECLARE dag, maand, jaar, day, month, year TYPE int

IMPORT "gtk_calendar_new" FROM GTK$ TYPE long
IMPORT "gtk_calendar_get_date(long,long,long,long)" FROM GTK$ TYPE void
IMPORT "gtk_widget_modify_fg(long,int,long)" FROM GTK$ TYPE void
IMPORT "gtk_widget_modify_base(long,int,long)" FROM GTK$ TYPE void
IMPORT "gtk_widget_modify_text(long,int,long)" FROM GTK$ TYPE void

SUB print_date
   
   GETPROPERTY(calendar, "day", &dag)
   GETPROPERTY(calendar, "month", &maand)
   GETPROPERTY(calendar, "year", &jaar)
   
   gtk_calendar_get_date(calendar, ADDRESS(year), ADDRESS(month), ADDRESS(day))
   
   INCR maand: INCR month
   
   '2 methods
   PRINT  STR$(dag) & "/" & STR$(maand) & "/" & STR$(jaar)
   PRINT  STR$(day) & "/" & STR$(month) & "/" & STR$(year)
   
   END
   
END SUB

SUB SETFONTCOLOR(long widget,STRING colour)
col = MEMORY(96)
gdk_color_parse(colour, col)
   gtk_widget_modify_fg (hug_widget_font(STR$(widget)), 0, col)
FREE col
END SUB

SUB SETBASECOLOR(long widget,STRING colour)
col = MEMORY(96)
gdk_color_parse(colour, col)
   gtk_widget_modify_base (widget, 0, col)
FREE col
END SUB

SUB SETTEXTCOLOR(long widget,STRING colour)
col = MEMORY(96)
gdk_color_parse(colour, col)
   gtk_widget_modify_text (widget, 0, col)
FREE col
END SUB

window = WINDOW( "Calendar",  400 ,300)

calendar = gtk_calendar_new()
REGISTER(calendar, 300, 200, "day-selected-double-click" ,0,0,0,0)
METHOD(calendar,3,print_date)
SETFONTCOLOR(calendar,"#ff0000")
SETBASECOLOR(calendar,"#cc0099")
SETTEXTCOLOR(calendar,"#00ff00")
ATTACH(window,calendar,50,40)
CALLBACK(calendar, print_date)

button = BUTTON("Ok", 40, 40)
ATTACH( window, button, 350, 250)  
CALLBACK(button, print_date)

DISPLAY
 Rik.

[rikky]

Ehm  Vovchick  and  Pjot  had already been there.
Should have checked this before 

PS changed the code above due to what I learned from Pjot & Vovchick.

[ptitjoz]

Hello,
I tried to read and understand a little this thread ...
I tried the example of the calendar and it's great.
I am favorably surprised by all that can be done with Bacon.
And I'm even more impressed with your high level of programming knowledge. As for me my level is too low and I am only a simple user ..

But congratulations to you all, you are really too strong!

Regards

PtitJoz

[bigbass]

Hey guys


I took took this to the next level ported HUG to gtk3 now called HUG3 then added a toggle switch widget that is
only available with gtk3 many other standard official hug widgets work

HUG3.tar.gz (107.62 KB)





There is an older link for HUG3 with many tested demos but they are old gtk2 hug widgets updated
to compile against gtk3
basic-converter.proboards.com/post/6525/thread

Joe

[vovchik]

Dear Joe,

Fabulous. I have only tested with your example, but will now have to go and try to recompile some older gtk2 things using HUG3 and see what happens. Thanks!!!

With kind regards,
vovchik