Porting gtk using PROTO explained

[bigbass]

PROTO gtk explained line by line

In order to explain the porting process completely
1.) We need to reference to original source code
this is linux that's why it is called open source code
just providing sources sometimes isn't enough

2.) Walking through every step using a simple demo
helps to get an overview of what's happening
the most important part of any code
is to be able to read it and understand it
and reuse it and finally improve it and
document along the way


This is a simple hello word gtk in C
We will use this as the example to port to BaCon
I know there is a lot of yuk syntax there we will hack out don't worry
C programmers complicate life with pointers and casting
and this is because of the headers
The functions are usually clean though when used in bacon

#include <gtk/gtk.h>

void destroy(GtkWidget *widget, gpointer data)
{
   gtk_main_quit();
}

int main(int argc, char *argv[])
{
   GtkWidget *window;

   gtk_init(&argc, &argv);

   window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
   gtk_window_set_title(GTK_WINDOW(window), "Hello World!");
   gtk_widget_show (window);

   /* Connect the main window to the destroy */
   g_signal_connect(G_OBJECT(window), "destroy", G_CALLBACK(destroy), NULL);

   gtk_widget_show(window);

   gtk_main();

   return 0;
}



We will do this in two stages
the first stage will look closer to embedded
gtk but since we won't use headers we have
less syntax to get in our face
we improve on this again and make it look like HUG/BaCon
in the last example


'--- set up for compiling embedded library GTK
PRAGMA LDFLAGS `pkg-config --cflags --libs gtk+-2.0`

'--- this replaces the need for IMPORT. the TYPE is not needed
'--- place all the functions that you will use here

PROTO gtk_init
PROTO gtk_window_new
PROTO gtk_window_set_title
PROTO g_signal_connect_data,
PROTO g gtk_widget_show_all
PROTO gtk_main
PROTO gtk_main_quit

' get the needed missing values
GTK_WINDOW_TOPLEVEL = 0

'===============
SUB exit_prog
'===============
   gtk_main_quit
END SUB

gtk_init(0, 0)
window = gtk_window_new(GTK_WINDOW_TOPLEVEL)
gtk_window_set_title(window, "Hello World!")

'--- Connect the main window to the destroy ---> replace with SUB exit_prog
g_signal_connect_data(window, "delete-event", exit_prog, 0, 0, 0)
gtk_widget_show_all(window)        
gtk_main







Here we use an ALIAS to explain how HUG syntax came from
having the ALIAS removes the mystery

'--- set up for compiling embedded library GTK
PRAGMA LDFLAGS `pkg-config --cflags --libs gtk+-2.0`

'--- this replaces the need for IMPORT. the TYPE is not needed
'--- place all the functions that you will use here

PROTO gtk_init ALIAS INIT
PROTO gtk_window_new ALIAS WINDOW
PROTO gtk_window_set_title ALIAS TITLE
PROTO g_signal_connect_data ALIAS CALLBACK
PROTO gtk_widget_show_all ALIAS SHOW_ALL
PROTO gtk_main ALIAS DISPLAY
PROTO gtk_main_quit ALIAS QUIT

' get the needed missing values from the header
GTK_WINDOW_TOPLEVEL = 0

'===============
SUB exit_prog
'===============
QUIT
END SUB

INIT(0, 0)
window = WINDOW(GTK_WINDOW_TOPLEVEL)
TITLE(window, "Hello World!")

'--- Connect the main window to the destroy ---> replace with SUB exit_prog
CALLBACK(window, "delete-event", exit_prog, 0, 0, 0)
SHOW_ALL(window)
DISPLAY

=======================================================================
Now explained line by line may take some time and patients to follow

1.)
#include <gtk/gtk.h>

we don't need it because
the only thing declared in the headers
for this example is

' get the needed missing values
GTK_WINDOW_TOPLEVEL = 0

we just declare it in BaCon to avoid the headers and casting

=======================================================================

2.) remove the yuk this is a SUB since there is no return
void destroy(GtkWidget *widget, gpointer data)
{
gtk_main_quit();
}


here we use the simplified HUG syntax from the ALIAS

'===============
SUB exit_prog
'===============
QUIT
END SUB

=======================================================================
3.)
int main(int argc, char *argv[])
{
GtkWidget *window;

gtk_init(&argc, &argv);


In BaCon we don't need the main
and since we didn't use the headers
we dont need to declare pointers and types
so in bacon we delete all that part!
however we need to INIT all code starts with this


because we have an alias gtk_init ALIAS INIT we can shorten the code with just

INIT(0,0)

to initialize &argc, &argv to zero much easier to read!


=======================================================================


4.)window = gtk_window_new(GTK_WINDOW_TOPLEVEL);

in BaCon with the ALIAS it can be simplified

window = WINDOW(GTK_WINDOW_TOPLEVEL)

=======================================================================

5.)gtk_window_set_title(GTK_WINDOW(window), "Hello World!");

In BaCon the ALIAS as just TITLE is simple notice no casting also !

TITLE(window, "Hello World!")

=======================================================================
6.) /* Connect the main window to the destroy */
   g_signal_connect(G_OBJECT(window), "destroy", G_CALLBACK(destroy), NULL);


In BaCon

'--- Connect the main window to the destroy ---> replace with SUB exit_prog
CALLBACK(window, "delete-event", exit_prog, 0, 0, 0)

=======================================================================
7.)gtk_widget_show_all(window)

In BaCon we ALIAS the function

SHOW_ALL(window)

=======================================================================
8.)gtk_main

In BaCon ALIAS this as DISPLAY

DISPLAY

[juppel]

Hello Bigbass
the threat is already old, but I think it's a very good option, but unfortunately it does not work.

the error message:

Converting 'test.bac'... done, 33 lines were processed in 0.003 seconds.
Compiling 'test.bac'... cc -c test.bac.c
cc -o test test.bac.o -lbacon -L. -lm `pkg-config --cflags --libs gtk+-2.0`
Compiler error:
Description:
file 'test.bac' line 32: DISPLAY
Cause:
implicit declaration of function 'gtk_main_quit' [-Wimplicit-function-declaration]
hint: check for missing header file or library.
Kompilierung erfolgreich beendet.

can you help?

[bigbass]

hello juppel


some old code doesn't compile
so I went back and did all of them here


Oct 12, 2017 at 12:52pm
post that has all code in one file
basic-converter.proboards.com/post/10420


start of thread
basic-converter.proboards.com/post/3461/thread


the short idea is this gtk widgets as stanalone code that will
compile with bacon then we can add them one widget at a time as we need them
and a lot easier to debug just one widget at a time to see what is happening

hope it can be useful for you
there are many ways to add gtk code

Joe

[bigbass]

Hello juppel

the first example in this thread here is the fix
so that it compiles cleanly after 5 years it still works

changed to gtk3 and added PRAGMA OPTIONS -Wno-implicit
older code has to be revisted to add small fixes

Joe

for gtk2 replace with this to compile


PRAGMA LDFLAGS `pkg-config --libs gtk+-2.0`
PRAGMA OPTIONS `pkg-config --cflags gtk+-2.0`
PRAGMA COMPILER gcc
PRAGMA OPTIONS -Wno-implicit




GTK3



'--- set up for compiling embedded library GTK
PRAGMA OPTIONS `pkg-config --cflags gtk+-3.0`
PRAGMA LDFLAGS `pkg-config --libs gtk+-3.0`
PRAGMA COMPILER gcc
PRAGMA OPTIONS -Wno-implicit


'--- this replaces the need for IMPORT. the TYPE is not needed
'--- place all the functions that you will use here



PROTO gtk_init ALIAS INIT
PROTO gtk_window_new ALIAS WINDOW
PROTO gtk_window_set_title ALIAS TITLE
PROTO g_signal_connect_data ALIAS CALLBACK
PROTO gtk_widget_show_all ALIAS SHOW_ALL
PROTO gtk_main ALIAS DISPLAY
PROTO gtk_main_quit ALIAS QUIT

' get the needed missing values from the header
GTK_WINDOW_TOPLEVEL = 0

'===============
SUB exit_prog
'===============
QUIT
END SUB

INIT(0, 0)
window = WINDOW(GTK_WINDOW_TOPLEVEL)
TITLE(window, "Hello World!")

'--- Connect the main window to the destroy ---> replace with SUB exit_prog
CALLBACK(window, "delete-event", exit_prog, 0, 0, 0)
SHOW_ALL(window)
DISPLAY


[juppel]

Hello bigbass
This error message appears when executing the code


ERROR: signal for SEGMENTATION FAULT received - memory invalid or array out of bounds? Try to compile the program with TRAP LOCAL to find the cause.

thank you

[vovchik]

Dear juppel and Joe,

It worked for me - both on Xubuntu RPI3 and on Mint 19.1.

With kind regards,
vovchik

[bigbass]

hello juppel

here are two small test demos that should work for you
to verify the bacon compiler and gtk2 /gtk3

simplegtk2-gtk3.tar.gz (160.44 KB)

the thing that can cause the failed compile is
not having the updated PRAGMA settings for 2019
and I originally compiled everything on a 32 bit OS in 2014-2016
then went back and compiled again on a 64 bit OS in 2017



'GTK2
PRAGMA LDFLAGS `pkg-config --libs gtk+-2.0`
PRAGMA OPTIONS `pkg-config --cflags gtk+-2.0`
PRAGMA COMPILER gcc
PRAGMA OPTIONS -Wno-implicit


'GTK3
PRAGMA OPTIONS `pkg-config --cflags gtk+-3.0`
PRAGMA LDFLAGS `pkg-config --libs gtk+-3.0`
PRAGMA COMPILER gcc
PRAGMA OPTIONS -Wno-implicit







please try those first to confirm if they work or not
thanks for trying and I needed to fix those older examples


P.S thanks vovchik for checking if they compile on your system

Joe

[bigbass]

Hello everyone

I went back and fixed compiled and tested all of these 26 demos
a mix of both gtk2 and gtk3
now we are updated to 2019!


PROTO-GTK-2019.tar.gz (482.77 KB)

they are still useful to see what is needed to get each widget running
for testing and to make a GUI it was a long road I walked to understand
gtk better gtk is a complex toolkit that seems to never end

personally fltk seems much easier but still not easy

to get something working quickly and is bacon friendly I would recommend
HUG then add gtk when you need something special added to the mix
and also there are many examples how to use IMPORT too
I guess we all think differently and one way may be seem
better but in the end it is just a style preference


Joe

[juppel]

Hello Bacon Friends,

unfortunately still the same error with the error code 11. I use Manjaro Linux. Otherwise, there have never been any problems.

'll try other options, e.g. change the kernel

[bigbass]

Hello juppel

I see that you are using an arch package base

I would suggest trying official GTK3 demos first
to confirm you have a complete development environment
working correctly ( you may have different locations for libs and headers)
then we have on debian/ubuntu based systems
the kernel should not be a factor here



this link below compiles and works correctly for me
Joe


developer.gnome.org/gtk3/stable/gtk-getting-started.html

gcc `pkg-config --cflags gtk+-3.0` -o example-0 example-0.c `pkg-config --libs gtk+-3.0`

./example-0


and I can port it to bacon as an up to date example if it works for you also




I reduced the code for bacon
and ported it just added an ALIAS for SET_SIZE of the window
and showed how to add a callback


name it example-1.bac

compile using
bacon example-1

run in a terminal in the same directory
./example-1



if this doesn't work correctly I guess try the IMPORT gtk examples on the bacon website
and report back in the bugs thread and it will get looked at
not much more I could do unless I install archlinux for the raspberry pi3



'--- set up for compiling embedded library GTK
PRAGMA OPTIONS `pkg-config --cflags gtk+-3.0`
PRAGMA LDFLAGS `pkg-config --libs gtk+-3.0`
PRAGMA COMPILER gcc
PRAGMA OPTIONS -Wno-implicit




' get the needed missing values from the header
GTK_WINDOW_TOPLEVEL = 0


PROTO gtk_init ALIAS INIT
PROTO gtk_window_new ALIAS WINDOW
PROTO gtk_window_set_title ALIAS TITLE
PROTO g_signal_connect_data ALIAS CALLBACK
PROTO gtk_widget_show_all ALIAS SHOW_ALL
PROTO gtk_main ALIAS DISPLAY
PROTO gtk_main_quit ALIAS QUIT
PROTO gtk_window_set_default_size ALIAS SET_SIZE





'===============
SUB exit_prog
'===============
QUIT
END SUB


INIT(0, 0)
window = WINDOW(GTK_WINDOW_TOPLEVEL)
TITLE(window, "Window")
SET_SIZE(window,200,200)
 
'--- Connect the main window to the destroy ---> replace with SUB exit_prog
CALLBACK(window, "delete-event", exit_prog, 0, 0, 0)
SHOW_ALL(window)
DISPLAY


[bigbass]

Hello juppel
there are other options to use GTK3 with IMPORT
that follows the bacon idea much closer I just did it for gtk3
instead of the official GTK2 besides that it is the same

Joe



notice that it is stand alone code
all is contained in one place no other
include files are used



basic-converter.proboards.com/post/10419

[juppel]

Hello Bigbass
Thanks for the efforts. So the gcc version and the import versions as well as the HUG versions work great.
Unfortunately the proto / pragma versions are not. Still the same error message. Let's see


following code with alias also works

'--- a working generic template made from linkbutton.c
'--- Ported from the gtk3 gnome offical demo to BaCon IMPORTS in (gtk3) by bigbass

'--- auto generated a short IMPORTS list of gtk function with args HUG styled
IMPORT "gtk_container_add(long,long)" FROM "libgtk-3.so.0" TYPE void ALIAS CONTAINER
IMPORT "gtk_link_button_new(char*)" FROM "libgtk-3.so.0" TYPE long ALIAS LINK_BUTTON_LABEL
IMPORT "gtk_link_button_set_uri(long,char*)" FROM "libgtk-3.so.0" TYPE void ALIAS LINK_BUTTON_URI
IMPORT "gtk_widget_show_all(long)" FROM "libgtk-3.so.0" TYPE void ALIAS SHOW
IMPORT "gtk_window_set_default_size(long,int,int)" FROM "libgtk-3.so.0" TYPE void ALIAS SET_SIZE
IMPORT "gtk_window_set_title(long,char*)" FROM "libgtk-3.so.0" TYPE void ALIAS WINDOW_TITLE


'--- auto generated a short IMPORTS list of gtk/ gdk functions with args HUG styled
'--- we need these always
IMPORT "gtk_init(int*,void*)" FROM "libgtk-3.so.0" TYPE void ALIAS INIT
IMPORT "gtk_main" FROM "libgtk-3.so.0" TYPE void ALIAS DISPLAY
IMPORT "gtk_main_quit(int)" FROM "libgtk-3.so.0" TYPE void ALIAS QUIT
IMPORT "gtk_window_new(int)" FROM "libgtk-3.so.0" TYPE long ALIAS WINDOW

'--- for the callbacks
IMPORT "g_signal_connect_data(long,char*,long,long,long,int)" FROM "libgobject-2.0.so.0" TYPE void ALIAS CALLBACK



'=====================
SUB exit_prog
'=====================
QUIT(0)
END SUB


INIT(0, 0)
window =WINDOW(0)

WINDOW_TITLE (window, "BaCon LinkButton")
SET_SIZE (window, 250, 50)

linkbutton = LINK_BUTTON_LABEL ("Link to The BaCon Website!")
LINK_BUTTON_URI (linkbutton, "http://www.basic-converter.org/")
CONTAINER (window, linkbutton)

'--- Connecting the delete-event signal to the callback
CALLBACK(window, "delete-event", ADDRESS(exit_prog), 0, 0, 0)
SHOW (window)
DISPLAY

[bigbass]

hello jupel

thanks for trying and the feedback

its good to see you understand the idea
and can use the ALIAS with the IMPORT example

sad that PROTO is failing on arch

but the most important thing is
understanding what is happening so that it can be useful
for you to be creative

it is work documenting and we all have something to share


good news most of the code works for you
PROTO is experimental anyway but can be useful too (if it works)

I spent a lot of time porting code to bacon and every example teaches you something new

Have fun!

Joe

[bigbass]

Hello juppel and Peter

first Peter bacon and baconguigtk compile and work correctly
I included the bacon terminal output of compiling version 3.9.1
from the source tar.gz

so you have some feedback from the raspberry pi3 on archlinux
bacon-rpi3-archlinux.tar.gz (392.97 KB)

Hello juppel

I also included the package list of what I installed to get
the proto examples to compile and run

just ignore any package named raspberrypi of course

I also am using xfce4 as my desktop and can confirm that it works

archlinux needs many small packages and if you miss one
it just doesnt work I would suggest to reinstall
the dev stuff

su -
pacman -Syu base-devel


and see if that helps

installing archlinux on the raspberry pi3
is a long drawn out process and not for those in any kind of hurry
it is a nice option (I used slackware for a long time before moving to
debian/ubuntu base systems)

archlinux is its own thing but I like the idea behind pacman
it actually runs well on the raspberry pi3
I will do a rewrite of my bacon installer GUI for pacman at some time
at least I have another test box now
and all is well that ends well

Joe

[juppel]

Hi, bigbass
thank you,
I compared the bacon installations, it's all the same. But unfortunately proto does not work. Also I have new base-devel install, unfortunately without result.

thanks for your work