embedding glade with PROTO PRAGMA

[bigbass]

Hey Guys
This was a tough nut to crack (converting to PROTO ,PRAGMA)
without using glade.bac as an include

but we can now embed glade directly


I converted Peter's wonderful demo
www.basic-converter.org/glade-demo.bac.html

and glade.bac to PROTO with PRAGMA
www.basic-converter.org/glade.bac.html

for the first example to
see what was needed to change
(other examples will follow later once its clear what needs to be modified )
since the focus here is using PROTO and PRAGMA with glade

this causes a compiler warning but it works fine it is the fault of $
result$ = gtk_entry_get_text(entry)






Added vovchik's string fix

glade-demo2-proto.bac

PRAGMA LDFLAGS `pkg-config --cflags  --libs libglade-2.0`

'---
'---  Bacon and Glade and GTK.
'---  PvE - April 2009.
'---
'---  Improved August 18, 2009 - PvE.
'---  Improved February 20, 2010 - PvE.
'---

'---  Get functions from GLADE

'==========================================
'--- ported to PROTO and PRAGMA by bigbass
'--- April 19 2013 notice --libs libglade-2.0
'==========================================

'--- (char *) fix by vovchik April 19 2013



'--- Get needed functions from glade using PROTO

PROTO glade_require
PROTO glade_provide
PROTO glade_xml_new
PROTO glade_xml_new_from_buffer
PROTO glade_xml_construct
PROTO glade_xml_construct_from_buffer
PROTO glade_xml_signal_connect
PROTO glade_xml_signal_connect_data
PROTO glade_xml_signal_autoconnect
PROTO glade_xml_get_widget
PROTO glade_xml_get_widget_prefix
PROTO glade_get_widget_name
PROTO glade_get_widget_tree
PROTO glade_xml_signal_connect_full
PROTO glade_xml_signal_autoconnect_full
PROTO glade_set_custom_handler
PROTO glade_parser_parse_file
PROTO glade_parser_parse_buffer
PROTO glade_interface_destroy
PROTO glade_interface_dump
PROTO glade_xml_build_widget
PROTO glade_xml_handle_internal_child
PROTO glade_xml_set_common_params
PROTO glade_register_widget
PROTO glade_standard_build_widget
PROTO glade_xml_handle_widget_prop
PROTO glade_standard_build_children
PROTO glade_xml_set_packing_property
PROTO glade_register_custom_prop
PROTO glade_xml_relative_file
PROTO glade_enum_from_string
PROTO glade_flags_from_string
PROTO glade_xml_set_value_from_string
PROTO glade_xml_set_toplevel
PROTO glade_xml_ensure_accel



'---  Get needed functions from GTK using PROTO
PROTO gtk_main
PROTO gtk_exit
PROTO gtk_entry_get_text
PROTO gtk_init
PROTO g_signal_connect_data
PROTO gtk_main_quit

'---  Callback for closing window
SUB exit_prog
   gtk_main_quit
END SUB

'---  Callback to get entry contents
SUB get_entry()  
result$ = (char *)gtk_entry_get_text(entry)
PRINT result$    
END SUB

'---  Setup GUI
gtk_init(0, 0)


'---  Get Glade file
xml = glade_xml_new("./demo.glade", 0, 0)
glade_xml_signal_autoconnect(xml)

'---  Get main window ID and connect signal
window = glade_xml_get_widget(xml, "window")
g_signal_connect_data(window, "delete-event", exit_prog, 0, 0, 0)

'---  Get exit button ID and connect signal
quit = glade_xml_get_widget(xml, "exit_button")
g_signal_connect_data(quit, "clicked", exit_prog, 0, 0, 0)

'---  Get entry
entry = glade_xml_get_widget(xml, "entry")

'---  Get print button ID and connect signal and pass entry as data to callback function
button = glade_xml_get_widget(xml, "print_button")
g_signal_connect_data(button, "clicked", get_entry, entry, 0, 0)

'---  Endless event handling by GTK
gtk_main





demo.glade


<?xml version="1.0" encoding="UTF-8"?>
<glade-interface>
 <widget class="GtkWindow" id="window">
   <property name="height_request">300</property>
   <property name="visible">True</property>
   <property name="can_focus">False</property>
   <property name="title" translatable="yes">Designed with Glade</property>
   <property name="default_width">400</property>
   <property name="default_height">400</property>
   <child>
     <widget class="GtkTable" id="table1">
       <property name="visible">True</property>
       <property name="can_focus">False</property>
       <property name="n_rows">12</property>
       <property name="n_columns">11</property>
       <child>
         <widget class="GtkEntry" id="entry">
           <property name="visible">True</property>
           <property name="can_focus">True</property>
           <property name="text" translatable="yes">Enter some text here</property>
           <property name="primary_icon_activatable">False</property>
           <property name="secondary_icon_activatable">False</property>
           <property name="primary_icon_sensitive">True</property>
           <property name="secondary_icon_sensitive">True</property>
         </widget>
         <packing>
           <property name="left_attach">1</property>
           <property name="right_attach">8</property>
           <property name="top_attach">4</property>
           <property name="bottom_attach">6</property>
           <property name="x_options">GTK_FILL</property>
           <property name="y_options"/>
         </packing>
       </child>
       <child>
         <widget class="GtkStatusbar" id="statusbar1">
           <property name="visible">True</property>
           <property name="can_focus">False</property>
         </widget>
         <packing>
           <property name="right_attach">11</property>
           <property name="top_attach">11</property>
           <property name="bottom_attach">12</property>
           <property name="x_options">GTK_FILL</property>
           <property name="y_options"/>
         </packing>
       </child>
       <child>
         <widget class="GtkButton" id="exit_button">
           <property name="label" translatable="yes">Exit</property>
           <property name="width_request">35</property>
           <property name="height_request">45</property>
           <property name="visible">True</property>
           <property name="can_focus">True</property>
           <property name="receives_default">False</property>
           <property name="use_underline">True</property>
         </widget>
         <packing>
           <property name="left_attach">5</property>
           <property name="right_attach">7</property>
           <property name="top_attach">9</property>
           <property name="bottom_attach">11</property>
           <property name="x_options">GTK_FILL</property>
           <property name="y_options">GTK_EXPAND</property>
         </packing>
       </child>
       <child>
         <widget class="GtkButton" id="print_button">
           <property name="label" translatable="yes">Print</property>
           <property name="width_request">35</property>
           <property name="height_request">45</property>
           <property name="visible">True</property>
           <property name="can_focus">True</property>
           <property name="receives_default">False</property>
           <property name="use_underline">True</property>
         </widget>
         <packing>
           <property name="left_attach">1</property>
           <property name="right_attach">3</property>
           <property name="top_attach">9</property>
           <property name="bottom_attach">11</property>
           <property name="x_options">GTK_FILL</property>
           <property name="y_options">GTK_EXPAND</property>
         </packing>
       </child>
       <child>
         <widget class="GtkMenuBar" id="menubar1">
           <property name="visible">True</property>
           <property name="can_focus">False</property>
           <child>
             <widget class="GtkMenuItem" id="menuitem1">
               <property name="visible">True</property>
               <property name="can_focus">False</property>
               <property name="label" translatable="yes">_File</property>
               <property name="use_underline">True</property>
               <child>
                 <widget class="GtkMenu" id="menu1">
                   <property name="visible">True</property>
                   <property name="can_focus">False</property>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem1">
                       <property name="label">gtk-new</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem2">
                       <property name="label">gtk-open</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem3">
                       <property name="label">gtk-save</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem4">
                       <property name="label">gtk-save-as</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkSeparatorMenuItem" id="separatormenuitem1">
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem5">
                       <property name="label">gtk-quit</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                 </widget>
               </child>
             </widget>
           </child>
           <child>
             <widget class="GtkMenuItem" id="menuitem2">
               <property name="visible">True</property>
               <property name="can_focus">False</property>
               <property name="label" translatable="yes">_Edit</property>
               <property name="use_underline">True</property>
               <child>
                 <widget class="GtkMenu" id="menu2">
                   <property name="visible">True</property>
                   <property name="can_focus">False</property>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem6">
                       <property name="label">gtk-cut</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem7">
                       <property name="label">gtk-copy</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem8">
                       <property name="label">gtk-paste</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem9">
                       <property name="label">gtk-delete</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                 </widget>
               </child>
             </widget>
           </child>
           <child>
             <widget class="GtkMenuItem" id="menuitem3">
               <property name="visible">True</property>
               <property name="can_focus">False</property>
               <property name="label" translatable="yes">_View</property>
               <property name="use_underline">True</property>
             </widget>
           </child>
           <child>
             <widget class="GtkMenuItem" id="menuitem4">
               <property name="visible">True</property>
               <property name="can_focus">False</property>
               <property name="label" translatable="yes">_Help</property>
               <property name="use_underline">True</property>
               <child>
                 <widget class="GtkMenu" id="menu3">
                   <property name="visible">True</property>
                   <property name="can_focus">False</property>
                   <child>
                     <widget class="GtkImageMenuItem" id="imagemenuitem10">
                       <property name="label">gtk-about</property>
                       <property name="visible">True</property>
                       <property name="can_focus">False</property>
                       <property name="use_underline">True</property>
                       <property name="use_stock">True</property>
                     </widget>
                   </child>
                 </widget>
               </child>
             </widget>
           </child>
         </widget>
         <packing>
           <property name="right_attach">9</property>
         </packing>
       </child>
       <child>
         <widget class="GtkLabel" id="label1">
           <property name="visible">True</property>
           <property name="can_focus">False</property>
           <property name="label" translatable="yes">Design in Glade read *.ui file in Bacon</property>
         </widget>
         <packing>
           <property name="left_attach">1</property>
           <property name="right_attach">7</property>
           <property name="top_attach">2</property>
           <property name="bottom_attach">3</property>
         </packing>
       </child>    
     </widget>
   </child>
 </widget>
</glade-interface>




[vovchik]

Dear Joe,

Nice. Thanks for doing this. You can get rid of the compile warning like this:


'--- Callback to get entry contents
SUB get_entry()
result$ = (char *)gtk_entry_get_text(entry)
PRINT result$


Don't know if that is entirely proper, but it works!

With kind regards,
vovchik

[Deleted]

I have to say this is starting to look like GTK-Server.

[bigbass]

I updated the string fix by vovchik
@if it works without warnings it is the proper way
Thank you I wouldn't have thought of doing that

updated the GUI a little just to show that editing the file in Glade
is no problem this will save hours of work with widget placements
and testing some new ideas

Please note in GTK3 you can use gtkbuilder (alexfish posted an example)
those are some of the advancements that were made in GTK3

but for gtk2 users this PROTO PRAGMA is another solution
for Glade until you could do a gtk3 upgrade
this looks like a better way for connecting the callbacks



Joe

[vovchik]

Dear guys,

I modded Joe's excellent example slightly by creating a memvar of the xml file and using INCLUDE. This eliminates a runtime (not compilation time) dependency on the physical glade file. Each approach indeed has its merits, but this method keeps everything in one executable, which makes subsequent copying/installation of the self-contained binary a definite no-brainer.

With kind regards,
vovchik

Attachments:

[bigbass]

Hey vovchik


Thank you for your brilliant work on using the buffer approach
that opens new doors

I see that you wanted a string read instead of a file
I reworked the buffer input by getting the file read in by cat

this has an advantage of allowing the glade file to be read in bacon and glade

now that it is a string you could even pre edit the file using bacon code
such as replace some value for another without touching the original file at all

snippet

PRINT
PRINT "================================="
PRINT " TEST GLADE FILE STORED IN A BUFFER "
PRINT " as a string with an official"
PRINT " unmodified glade file"
PRINT "================================="
PRINT

'--- store glade info as a string instead of a file
'--- comment this out if you want to use a file instead of a string
glade_file_input$ = EXEC$("cat /usr/share/BaCon/demo.glade")


'--- Get Glade buffer
xml = glade_xml_new_from_buffer(glade_file_input$, LEN(glade_file_input$), 0, 0)


PRAGMA LDFLAGS `pkg-config --cflags  --libs libglade-2.0`

'---
'---  Bacon and Glade and GTK.
'---  PvE - April 2009.
'---
'---  Improved August 18, 2009 - PvE.
'---  Improved February 20, 2010 - PvE.
'---

'---  Get functions from GLADE

'==========================================
'--- ported to PROTO and PRAGMA by bigbass
'--- April 19 2013 notice --libs libglade-2.0
'==========================================

' ---  April 19 2013 use a buffer instead of file vovchick

PROTO glade_require
PROTO glade_provide
PROTO glade_xml_new
PROTO glade_xml_new_from_buffer
PROTO glade_xml_construct
PROTO glade_xml_construct_from_buffer
PROTO glade_xml_signal_connect
PROTO glade_xml_signal_connect_data
PROTO glade_xml_signal_autoconnect
PROTO glade_xml_get_widget
PROTO glade_xml_get_widget_prefix
PROTO glade_get_widget_name
PROTO glade_get_widget_tree
PROTO glade_xml_signal_connect_full
PROTO glade_xml_signal_autoconnect_full
PROTO glade_set_custom_handler
PROTO glade_parser_parse_file
PROTO glade_parser_parse_buffer
PROTO glade_interface_destroy
PROTO glade_interface_dump
PROTO glade_xml_build_widget
PROTO glade_xml_handle_internal_child
PROTO glade_xml_set_common_params
PROTO glade_register_widget
PROTO glade_standard_build_widget
PROTO glade_xml_handle_widget_prop
PROTO glade_standard_build_children
PROTO glade_xml_set_packing_property
PROTO glade_register_custom_prop
PROTO glade_xml_relative_file
PROTO glade_enum_from_string
PROTO glade_flags_from_string
PROTO glade_xml_set_value_from_string
PROTO glade_xml_set_toplevel
PROTO glade_xml_ensure_accel



'---  Get needed functions from GTK using PROTO
PROTO gtk_main
PROTO gtk_exit
PROTO gtk_entry_get_text
PROTO gtk_init
PROTO g_signal_connect_data
PROTO gtk_main_quit

'---  Callback for closing window
SUB exit_prog
   gtk_main_quit
END SUB

'---  Callback to get entry contents
SUB get_entry()  
result$ = (char *)gtk_entry_get_text(entry)
PRINT result$
 
   
END SUB

'---  Setup GUI
gtk_init(0, 0)



PRINT
PRINT "================================="
PRINT " TEST GLADE FILE STORED IN A BUFFER  "
PRINT " as a string with an official"
PRINT " unmodified glade file"
PRINT "================================="
PRINT

'--- store glade info as a string instead of a file
'--- comment this out if you want to use a file instead of a string
glade_file_input$ = EXEC$("cat /usr/share/BaCon/demo.glade")


'---  Get Glade buffer
xml = glade_xml_new_from_buffer(glade_file_input$, LEN(glade_file_input$), 0, 0)

glade_xml_signal_autoconnect(xml)


'---  Get main window ID and connect signal
window = glade_xml_get_widget(xml, "window")
g_signal_connect_data(window, "delete-event", exit_prog, 0, 0, 0)

'---  Get exit button ID and connect signal
quit = glade_xml_get_widget(xml, "exit_button")



g_signal_connect_data(quit, "clicked", exit_prog, 0, 0, 0)

'---  Get entry
entry = glade_xml_get_widget(xml, "entry")

'---  Get print button ID and connect signal and pass entry as data to callback function
button = glade_xml_get_widget(xml, "print_button")
g_signal_connect_data(button, "clicked", get_entry, entry, 0, 0)

'---  Endless event handling by GTK
gtk_main


[bigbass]

Would you like to backport glade files done in GTK3 to be used in GTK2?





its easy to do I'm sure there other things but this worked for a test I did

replace
interface

for
glade-interface



replace
object class
for
widget class

then replace object for widget
in the glade file

make it visible
<property name="visible">True</property>


this is fun I didn't connect the call backs for the test


demo.glade3


<?xml version="1.0" encoding="UTF-8"?>
<glade-interface>
 <!-- glade-interface-naming-policy project-wide -->
  <!-- using a gtk3 app in gtk2  -->
 <widget class="GtkDialog" id="dialog1">
<property name="visible">True</property>
   <property name="can_focus">False</property>
   <property name="border_width">5</property>
   <property name="type_hint">dialog</property>
   <child internal-child="vbox">
     <widget class="GtkVBox" id="dialog-vbox1">
       <property name="visible">True</property>
       <property name="can_focus">False</property>
       <property name="spacing">2</property>
       <child internal-child="action_area">
         <widget class="GtkHButtonBox" id="dialog-action_area1">
           <property name="visible">True</property>
           <property name="can_focus">False</property>
           <property name="layout_style">end</property>
           <child>
             <widget class="GtkButton" id="button1">
               <property name="label" translatable="yes">button</property>
               <property name="use_action_appearance">False</property>
               <property name="visible">True</property>
               <property name="can_focus">True</property>
               <property name="receives_default">True</property>
             </widget>
             <packing>
               <property name="expand">False</property>
               <property name="fill">False</property>
               <property name="position">0</property>
             </packing>
           </child>
           <child>
             <widget class="GtkButton" id="button2">
               <property name="label" translatable="yes">button</property>
               <property name="use_action_appearance">False</property>
               <property name="visible">True</property>
               <property name="can_focus">True</property>
               <property name="receives_default">True</property>
             </widget>
             <packing>
               <property name="expand">False</property>
               <property name="fill">False</property>
               <property name="position">1</property>
             </packing>
           </child>
         </widget>
         <packing>
           <property name="expand">False</property>
           <property name="fill">True</property>
           <property name="pack_type">end</property>
           <property name="position">0</property>
         </packing>
       </child>
       <child>
         <widget class="GtkLabel" id="label1">
           <property name="visible">True</property>
           <property name="can_focus">False</property>
           <property name="label" translatable="yes">Lets try an app compiled
for gtk3 in gtk2some small edits are done before
the buffer is read</property>
         </widget>
         <packing>
           <property name="expand">True</property>
           <property name="fill">True</property>
           <property name="position">1</property>
         </packing>
       </child>
       <child>
         <placeholder/>
       </child>
     </widget>
   </child>
  </widget>
</glade-interface>







[vovchik]

Dear Joe,

Again, good and interesting stuff. Good thing there isn't really much difference between the xmls of different glade/gtkbuilder versions. I have been playing with "glade_interface_dump" as a means of writing back the xml to disk - with little success. I get a weird message in the xml file that I am still trying to decipher. You can always just dump the string var with the xml to disk using BaCon. Let's think about this. Maybe somebody will have a bright idea. If I dump the string var to disk with one WRITELN, it strips out the newlines. However, if you later read it into glade and save, everything is back to normal in terms of formatting. In any case, glade doesn't care whether the xml file has newlines or not, and shows a proper widget arrangement and all properties.

With kind regards,
vovchik

[bigbass]

Convert glade3 files to glade2

very basic but more replace statements will be added as I find them

gladeconverter.bac



' gladeconverter.bac


INCLUDE "hug.bac"
INIT



SUB entry_demo()
'clear the edit box
TEXT(EDIT_BOX, "")

ORIGINAL_FILE$ = CHOP$(GRAB$(My_entry))
file_start$ = "file:///"
'get rid of drag n drop prefixed file://

IF REGEX(ORIGINAL_FILE$ , file_start$) THEN
ORIGINAL_FILE$ = REPLACE$(ORIGINAL_FILE$ , file_start$, "/")

ELSE
ORIGINAL_FILE$ = CHOP$(GRAB$(My_entry))

ENDIF


ORIG$ = ORIGINAL_FILE$
FIXED$ = CONCAT$(ORIGINAL_FILE$,".FIXED")

PRINT ORIG$
PRINT FIXED$


OPEN FIXED$ FOR WRITING AS my_outfile

x$ = EXEC$(CONCAT$("cat", " ",ORIG$ ))    

'--- here you can do multiple replace lines
x$ = REPLACE$(x$,  "<interface>",  "<glade-interface>")
x$ = REPLACE$(x$,  "</interface>",  "</glade-interface>")
x$ = REPLACE$(x$,  "<object class",  "<widget class")
x$ = REPLACE$(x$,  "</object class",  "</widget class")
x$ = REPLACE$(x$,  "object",  "widget")

'--- Get rid of any leading or trailing whitespace, CR, TAB, etc.
x$ = CHOP$(x$)


WRITELN x$ TO my_outfile
CLOSE FILE my_outfile



'--- the filtered or unfiltered file gets passed here

'--- get the display info using a system call ---'

result_input2$ = EXEC$(CONCAT$("cat", " ", FIXED$ ))

TEXT(EDIT_BOX, result_input2$)
END SUB



Mainwin = WINDOW( "Convert glade3 to glade2 ", 500, 450 )


My_entry = ENTRY("", 450, 30)
ATTACH( Mainwin, My_entry, 20, 40 )
CALLBACK(My_entry, entry_demo)


My_label = MARK( "Drag file name here to convert", 300, 30 )
ATTACH( Mainwin, My_label, -10, 10)
FONT(My_label, "sans 12")


My_label = MARK( "converted code shown in the box", 300, 30 )
ATTACH( Mainwin, My_label, 0, 90)
FONT(My_label, "sans 12")

' formatting changes if you use another label name
My_label = MARK( " with *.FIXED added ", 300, 30 )
ATTACH( Mainwin, My_label, -40 ,110)
FONT(My_label, "sans 12")


EDIT_BOX = EDIT(450, 250)
ATTACH( Mainwin, EDIT_BOX, 20, 140 )


My_btn = BUTTON("convert", 80, 25)
ATTACH( Mainwin, My_btn, 290, 415 )
CALLBACK( My_btn, entry_demo)


' Create a button.
My_chk = STOCK("gtk-quit", 80, 25)
ATTACH( Mainwin, My_chk, 405, 415 )

' Make button do something
CALLBACK( My_chk, QUIT)


DISPLAY



[vovchik]

Dear Joe,

You're making my life too easy! Thanks.

With kind regards,
vovchik

[vovchik]

Dear guys,

This is something Doyle and I had been playing with several years ago. It takes a glade2 file and generates out of it bacon source code. Please have a look. It could be PRAGMAtized by Joe nicely.

With kind regards,
vovchik

Attachments:

[bigbass]

Hey vovchik

it's the other way around
vovchik You're making my life too easy!

I am just starting to understand
what you already mastered a few years ago

Thank you ! for the code to make a bac file from glade what a project that was !

Joe

[bigbass]

Now I see an all in one file

the next post will have the code generator mkglade-proto.bac

demo_.bac


PRAGMA LDFLAGS `pkg-config --cflags  --libs libglade-2.0`


' ***************************************************************************

' A utility to read *.glade files and compose callback subs for BaCon.

' mekanixx, (Puppy Linux forum) - August 2010
' vovchik (Puppy Linux forum) - August 2010
' bigbass (BaCon forum) - April 21 2013  ported to PROTO and PRAGMA  

' Created on 21 April 2013

' Check id= statements in glade data and Reference some widgets section
' at end for hyphens in function names and references. Change all to underscores!
' ***************************************************************************

'==================================
' Callbacks for file: demo.glade
'==================================

'==================================
' ERROR HANDLING SET UP
'==================================

TRAP LOCAL
CATCH GOTO print_err


'==================================
' DECLARATIONS
'==================================




'==================================
'--- EMBED GLADE IMPORTS
'==================================

PROTO glade_require
PROTO glade_provide
PROTO glade_xml_new
PROTO glade_xml_new_from_buffer
PROTO glade_xml_construct
PROTO glade_xml_construct_from_buffer
PROTO glade_xml_signal_connect
PROTO glade_xml_signal_connect_data
PROTO glade_xml_signal_autoconnect
PROTO glade_xml_get_widget
PROTO glade_xml_get_widget_prefix
PROTO glade_get_widget_name
PROTO glade_get_widget_tree
PROTO glade_xml_signal_connect_full
PROTO glade_xml_signal_autoconnect_full
PROTO glade_set_custom_handler
PROTO glade_parser_parse_file
PROTO glade_parser_parse_buffer
PROTO glade_interface_destroy
PROTO glade_interface_dump
PROTO glade_xml_build_widget
PROTO glade_xml_handle_internal_child
PROTO glade_xml_set_common_params
PROTO glade_register_widget
PROTO glade_standard_build_widget
PROTO glade_xml_handle_widget_prop
PROTO glade_standard_build_children
PROTO glade_xml_set_packing_property
PROTO glade_register_custom_prop
PROTO glade_xml_relative_file
PROTO glade_enum_from_string
PROTO glade_flags_from_string
PROTO glade_xml_set_value_from_string
PROTO glade_xml_set_toplevel
PROTO glade_xml_ensure_accel


'==================================
'--- EMBED GTK IMPORTS
'==================================

PROTO gtk_main
PROTO gtk_init
PROTO gtk_main_quit
PROTO gtk_widget_show_all
PROTO gtk_exit
PROTO g_signal_connect_data
PROTO g_object_unref
PROTO glade_xml_new_from_buffer
PROTO glade_xml_get_widget
PROTO glade_xml_signal_autoconnect
PROTO glade_xml_signal_connect


'==================================
' GLADE DATA
'==================================

' this is where the DATA statements go
DATA "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
DATA "<glade-interface>"
DATA "<widget class=\"GtkWindow\" id=\"window\">"
DATA "<property name=\"height_request\">300</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"title\" translatable=\"yes\">Designed with Glade</property>"
DATA "<property name=\"default_width\">400</property>"
DATA "<property name=\"default_height\">400</property>"
DATA "<child>"
DATA "<widget class=\"GtkTable\" id=\"table1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"n_rows\">12</property>"
DATA "<property name=\"n_columns\">11</property>"
DATA "<child>"
DATA "<widget class=\"GtkEntry\" id=\"entry\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">True</property>"
DATA "<property name=\"text\" translatable=\"yes\">Enter some text here</property>"
DATA "<property name=\"primary_icon_activatable\">False</property>"
DATA "<property name=\"secondary_icon_activatable\">False</property>"
DATA "<property name=\"primary_icon_sensitive\">True</property>"
DATA "<property name=\"secondary_icon_sensitive\">True</property>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"left_attach\">1</property>"
DATA "<property name=\"right_attach\">8</property>"
DATA "<property name=\"top_attach\">4</property>"
DATA "<property name=\"bottom_attach\">6</property>"
DATA "<property name=\"x_options\">GTK_FILL</property>"
DATA "<property name=\"y_options\"/>"
DATA "</packing>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkStatusbar\" id=\"statusbar1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"right_attach\">11</property>"
DATA "<property name=\"top_attach\">11</property>"
DATA "<property name=\"bottom_attach\">12</property>"
DATA "<property name=\"x_options\">GTK_FILL</property>"
DATA "<property name=\"y_options\"/>"
DATA "</packing>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkButton\" id=\"exit_button\">"
DATA "<property name=\"label\" translatable=\"yes\">Exit</property>"
DATA "<property name=\"width_request\">35</property>"
DATA "<property name=\"height_request\">45</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">True</property>"
DATA "<property name=\"receives_default\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"left_attach\">5</property>"
DATA "<property name=\"right_attach\">7</property>"
DATA "<property name=\"top_attach\">9</property>"
DATA "<property name=\"bottom_attach\">11</property>"
DATA "<property name=\"x_options\">GTK_FILL</property>"
DATA "<property name=\"y_options\">GTK_EXPAND</property>"
DATA "</packing>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkButton\" id=\"print_button\">"
DATA "<property name=\"label\" translatable=\"yes\">Print</property>"
DATA "<property name=\"width_request\">35</property>"
DATA "<property name=\"height_request\">45</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">True</property>"
DATA "<property name=\"receives_default\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"left_attach\">1</property>"
DATA "<property name=\"right_attach\">3</property>"
DATA "<property name=\"top_attach\">9</property>"
DATA "<property name=\"bottom_attach\">11</property>"
DATA "<property name=\"x_options\">GTK_FILL</property>"
DATA "<property name=\"y_options\">GTK_EXPAND</property>"
DATA "</packing>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkMenuBar\" id=\"menubar1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<child>"
DATA "<widget class=\"GtkMenuItem\" id=\"menuitem1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"label\" translatable=\"yes\">_File</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<child>"
DATA "<widget class=\"GtkMenu\" id=\"menu1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem1\">"
DATA "<property name=\"label\">gtk-new</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem2\">"
DATA "<property name=\"label\">gtk-open</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem3\">"
DATA "<property name=\"label\">gtk-save</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem4\">"
DATA "<property name=\"label\">gtk-save-as</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkSeparatorMenuItem\" id=\"separatormenuitem1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem5\">"
DATA "<property name=\"label\">gtk-quit</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkMenuItem\" id=\"menuitem2\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"label\" translatable=\"yes\">_Edit</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<child>"
DATA "<widget class=\"GtkMenu\" id=\"menu2\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem6\">"
DATA "<property name=\"label\">gtk-cut</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem7\">"
DATA "<property name=\"label\">gtk-copy</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem8\">"
DATA "<property name=\"label\">gtk-paste</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem9\">"
DATA "<property name=\"label\">gtk-delete</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkMenuItem\" id=\"menuitem3\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"label\" translatable=\"yes\">_View</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkMenuItem\" id=\"menuitem4\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"label\" translatable=\"yes\">_Help</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<child>"
DATA "<widget class=\"GtkMenu\" id=\"menu3\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<child>"
DATA "<widget class=\"GtkImageMenuItem\" id=\"imagemenuitem10\">"
DATA "<property name=\"label\">gtk-about</property>"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"use_underline\">True</property>"
DATA "<property name=\"use_stock\">True</property>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"right_attach\">9</property>"
DATA "</packing>"
DATA "</child>"
DATA "<child>"
DATA "<widget class=\"GtkLabel\" id=\"label1\">"
DATA "<property name=\"visible\">True</property>"
DATA "<property name=\"can_focus\">False</property>"
DATA "<property name=\"label\" translatable=\"yes\">Design in Glade read *.ui file in Bacon</property>"
DATA "</widget>"
DATA "<packing>"
DATA "<property name=\"left_attach\">1</property>"
DATA "<property name=\"right_attach\">7</property>"
DATA "<property name=\"top_attach\">2</property>"
DATA "<property name=\"bottom_attach\">3</property>"
DATA "</packing>"
DATA "</child>"
DATA "</widget>"
DATA "</child>"
DATA "</widget>"
DATA "</glade-interface>"


'==================================
' SUBS & FUNCTIONS
'==================================

' ------------------------------
SUB READ_DATA()
' ------------------------------
gladeline$ = ""
REPEAT
READ gladeline$
gladedata$ = CONCAT$(gladedata$, gladeline$)
UNTIL EQUAL(gladeline$, "</glade-interface>")
END SUB

' ------------------------------
SUB EXIT_PROG()
' ------------------------------
gtk_exit
END SUB




'==================================
' MAIN
'==================================

READ_DATA
' ------------------------------
' Initialize Gtk
' ------------------------------
gtk_init(0, 0)

' ------------------------------
' Specify the windows to be shown
' ------------------------------
xml = glade_xml_new_from_buffer(gladedata$,LEN(gladedata$), 0, 0 )

' ------------------------------
' Reference some widgets
' ------------------------------

window = glade_xml_get_widget( xml, "window")
entry = glade_xml_get_widget( xml, "entry")
statusbar1 = glade_xml_get_widget( xml, "statusbar1")
exit_button = glade_xml_get_widget( xml, "exit_button")
print_button = glade_xml_get_widget( xml, "print_button")
menuitem1 = glade_xml_get_widget( xml, "menuitem1")
menu1 = glade_xml_get_widget( xml, "menu1")
imagemenuitem1 = glade_xml_get_widget( xml, "imagemenuitem1")
imagemenuitem2 = glade_xml_get_widget( xml, "imagemenuitem2")
imagemenuitem3 = glade_xml_get_widget( xml, "imagemenuitem3")
imagemenuitem4 = glade_xml_get_widget( xml, "imagemenuitem4")
imagemenuitem5 = glade_xml_get_widget( xml, "imagemenuitem5")
menuitem2 = glade_xml_get_widget( xml, "menuitem2")
menu2 = glade_xml_get_widget( xml, "menu2")
imagemenuitem6 = glade_xml_get_widget( xml, "imagemenuitem6")
imagemenuitem7 = glade_xml_get_widget( xml, "imagemenuitem7")
imagemenuitem8 = glade_xml_get_widget( xml, "imagemenuitem8")
imagemenuitem9 = glade_xml_get_widget( xml, "imagemenuitem9")
menuitem3 = glade_xml_get_widget( xml, "menuitem3")
menuitem4 = glade_xml_get_widget( xml, "menuitem4")
menu3 = glade_xml_get_widget( xml, "menu3")
imagemenuitem10 = glade_xml_get_widget( xml, "imagemenuitem10")

' ------------------------------
' Connect some signals
' ------------------------------

' ------------------------------
' Display main window(s)
' ------------------------------

' ------------------------------
' unattach xml reference
' ------------------------------
g_object_unref( xml )

' ------------------------------
' The main GUI loop starts
' ------------------------------
gtk_main



'==================================
' ERROR HANDLER
'==================================

LABEL print_err
IF ERROR THEN PRINT ERR$(ERROR)




[bigbass]

Wow it was painless after all the hard work was done by Doyle and vovchik !
I just took advantage of the new options that the BaCon compiler has
using PROTO and PRAGMA

Joe


mkglade-proto.bac

'==============================================
' PROGRAM: mkglade-proto.bac version 2.0
' PURPOSE: to read *.glade files and compose
' callback subs for BaCon
' AUTHOR: Doyle (mekanixx, Puppy Linux forum)
' MODDED: vovchik (Puppy Linux forum)
' MODDED: bigbass (BaCon Converter forum) to use PROTO and PRAGMA
' DEPENDS: gcc, bacon, bash, glade
' PLATFORM: Puppy Linux (actually, any *nix)
' DATE: 05-09-2010  updated April 21 2013 to use PROTO and PRAGMA
' LICENCE: (c) Mekanixx Software (Doyle Whisenant)
' GPL (http://gplv3.fsf.org/)
' NOTES: Based on: glade2bas by Klaus Siebke
' http://www.siebke.com
'==============================================

' =====================
' DECLARATIONS
' =====================

SETENVIRON "OUTPUT_CHARSET", "UTF-8"
OPTION INTERNATIONAL TRUE
GLOBAL reccount TYPE NUMBER
GLOBAL sigcount TYPE NUMBER
GLOBAL hassignal TYPE NUMBER
GLOBAL q$, s$, myline$, myline1$, myline2$, myglade$ TYPE STRING
RECORD glade[1000]
   LOCAL class$    TYPE STRING
   LOCAL id$          TYPE STRING
   LOCAL signal$[100]    TYPE STRING
   LOCAL handler$[100] TYPE STRING
   LOCAL wtype     TYPE NUMBER
END RECORD


TRAP LOCAL
CATCH GOTO print_err

' =====================
' WINDOW DATA
' =====================
DATA "GtkWindow", "GtkDialog", "GtkInvisible", "GtkMessageDialog", "GtkAboutDialog"
DATA "GtkAssistant", "GtkWindowGroup", "GtkOffscreenWindow", "ENDWIN"
DATA "GtkDialog" ,"GtkWindow" ,"GtkAssistant " ,"GtkLabel " ,"GtkStatusbar "
DATA "GtkInfoBar " ,"GtkStatusIcon " ,"GtkButton " ,"GtkRadioButton " ,"GtkToggleButton "
DATA "GtkScaleButton " ,"GtkEntry " ,"GtkEntryBuffer " ,"GtkEntryCompletion " ,"GtkSpinButton "
DATA "GtkEditable " ,"GtkTextBuffer " ,"GtkTextTag " ,"GtkTextTagTable " ,"GtkTextView "
DATA "GtkTreeModel " ,"GtkTreeSelection " ,"GtkTreeViewColumn " ,"GtkTreeView " ,"GtkIconView "
DATA "GtkTreeSortable " ,"GtkCellRenderer " ,"GtkCellEditable " ,"GtkCellRendererAccel " ,"GtkCellRendererCombo "
DATA "GtkCellRendererText " ,"GtkCellRendererToggle " ,"GtkComboBox " ,"GtkMenu " ,"GtkMenuItem "
DATA "GtkRadioMenuItem " ,"GtkCheckMenuItem " ,"GtkToolbar " ,"GtkToolItem " ,"GtkToolPalette " ,"GtkImageMenuItem"
DATA "GtkToolButton " ,"GtkMenuToolButton " ,"GtkToggleToolButton " ,"GtkUIManager " ,"GtkActionGroup "
DATA "GtkAction " ,"GtkToggleAction " ,"GtkRadioAction " ,"GtkColorButton " ,"GtkColorSelection "
DATA "GtkHSV " ,"GtkFileChooser " ,"GtkFileChooserButton " ,"GtkFontButton " ,"GtkInputDialog "
DATA "GtkLayout" ,"GtkNotebook" ,"GtkExpander" ,"GtkScrolledWindow" ,"GtkPrintOperation"
DATA "GtkPrinter" ,"GtkPrintJob" ,"GtkAdjustment" ,"GtkCalendar" ,"GtkHandleBox"
DATA "GtkViewport" ,"GtkContainer" ,"GtkItem" ,"GtkMenuShell" ,"GtkObject"
DATA "GtkPaned" ,"GtkRange" ,"GtkScale" ,"GtkWidget" ,"GtkIMContext"
DATA "GtkPlug" ,"GtkSocket" ,"GtkCurve" ,"GtkRecentManager" ,"GtkRecentChooser"
DATA "GtkCList" ,"GtkCTree" ,"GtkList" ,"GtkListItem" ,"GtkOldEditable"
DATA "GtkOptionMenu" ,"GtkText" ,"GtkTipsQuery" ,"GtkTree" ,"GtkTreeItem", "ENDSIG"


' =====================
' SUBROUTINES
' =====================

' -------------
SUB INIT_VARS()
' -------------
q$ = CHR$(34)
s$ = CHR$(92)
myline$ = CONCAT$("' ", FILL$(30,45))
myline1$ = CONCAT$("' ", FILL$(75,42))
myline2$ = CONCAT$("' ", FILL$(40,42))
hassignal = 0
END SUB

' -------------
SUB GET_ARGS()
' -------------
' Get separate arguments
SPLIT ARGUMENT$ BY " " TO arg$ SIZE dim
IF dim < 2 THEN
PRINT "Usage: mkglade <file.glade>"
END
ENDIF
' Get the string to convert
gladefile$ = CHOP$(MID$(ARGUMENT$, INSTR(ARGUMENT$, " ")))
glade_filenameonly$ = LEFT$(gladefile$, INSTR(gladefile$, ".") - 1)
END SUB

' --------------------
FUNCTION CAT(STRING FILENAME$)
' --------------------
LOCAL fileline$, txt$ TYPE STRING
IF FILEEXISTS(FILENAME$) THEN
OPEN FILENAME$ FOR READING AS catfile
WHILE NOT(ENDFILE(catfile)) DO
READLN fileline$ FROM catfile
txt$ = CONCAT$(txt$, fileline$, NL$)
WEND
CLOSE FILE catfile
END IF
RETURN CHOP$(txt$)
END FUNCTION

' -------------
SUB MAKE_READ()
' -------------
LOCAL i
gladevar$ = CAT(gladefile$)
gladevar$ = REPLACE$(gladevar$, q$,CONCAT$(s$,q$))
SPLIT gladevar$ BY NL$ TO gladearray$ SIZE no_of_lines
FOR i = 0 TO no_of_lines - 1
IF LEN(gladearray$[i]) > 1 THEN
WRITELN CONCAT$("DATA ", q$, gladearray$[i], q$) TO fh1
END IF
NEXT i
END SUB

' -------------
SUB READ_GLADE()
' -------------
OPEN gladefile$ FOR READING AS fh
reccount = 0
sigcount = 0
'glade[reccount].wtype = 0
WITH glade[reccount]
.wtype = 0
END WITH
WHILE NOT(ENDFILE(fh)) DO
READLN txt$ FROM fh
IF NOT(ENDFILE(fh)) THEN
' Detect user-defined windows + signals
idx =  INSTR(txt$, "class=")
IF idx > 0 THEN
startpos = idx + 7
endpos = INSTR(txt$, q$, idx + 8)
WITH glade[reccount]
.class$ = MID$(txt$, startpos, endpos - startpos)
END WITH
'glade[reccount].class$ = MID$ (txt$, startpos, endpos - startpos)
REPEAT
READ win$
IF EQUAL(glade[reccount].class$, CHOP$(win$)) THEN
WITH glade[reccount]
'wtype 2 means that the widget has a valid signal
.wtype = 2
END WITH
END IF
UNTIL EQUAL(win$,"ENDSIG")
RESTORE
END IF
idx =  INSTR(txt$, "id=")
IF idx > 0 THEN
startpos = idx + 4
endpos = INSTR(txt$, q$, idx +5)
WITH glade[reccount]
.id$ = REPLACE$(MID$(txt$, startpos, endpos - startpos), "-", "_")
END WITH
'glade[reccount].id$ = MID$ (txt$, startpos, endpos - startpos)
END IF
idx =  INSTR(txt$, "signal name=")
IF idx > 0 THEN
startpos = idx + 13
endpos = INSTR(txt$, q$, idx +14)
WITH glade[reccount]
.signal$[sigcount] = MID$(txt$, startpos, endpos - startpos)
END WITH
'glade[reccount].signal$[sigcount] = MID$ (txt$, startpos, endpos - startpos)
END IF
idx =  INSTR(txt$, "handler=")
IF idx > 0 THEN
startpos = idx + 9
endpos = INSTR(txt$, q$, idx +10)
WITH glade[reccount]
.handler$[sigcount] = MID$(txt$, startpos, endpos - startpos)
END WITH
'glade[reccount].handler$[sigcount] = MID$ (txt$, startpos, endpos - startpos)
' Detect user-defined window elements
win$ = ""
REPEAT
READ win$
IF EQUAL(glade[reccount].class$, win$) THEN
WITH glade[reccount]
.wtype = 1
END WITH
'glade[reccount].wtype = 1
END IF
UNTIL EQUAL(win$,"ENDWIN")
RESTORE
INCR sigcount
END IF
idx =  INSTR(txt$, "<child>")
IF idx > 0 THEN
INCR reccount
END IF
ENDIF
WEND
CLOSE FILE fh
END SUB

' -------------
SUB WRITE_BAC()
' -------------
OPEN CONCAT$(glade_filenameonly$,"_.bac") FOR WRITING AS fh1


WRITELN "PRAGMA LDFLAGS `pkg-config --cflags  --libs libglade-2.0`" TO fh1
WRITELN "" TO fh1
WRITELN "" TO fh1
WRITELN myline1$ TO fh1
WRITELN "" TO fh1
WRITELN "' A utility to read *.glade files and compose callback subs for BaCon." TO fh1
WRITELN "" TO fh1
WRITELN "' mekanixx, (Puppy Linux forum) - August 2010" TO fh1
WRITELN "' vovchik (Puppy Linux forum) - August 2010" TO fh1
WRITELN "' bigbass (BaCon forum) - April 21 2013  ported to PROTO and PRAGMA  " TO fh1
WRITELN "" TO fh1
WRITELN CONCAT$("' Created on ", STR$(DAY(NOW)), " ", MONTH$(NOW), " ",  STR$(YEAR(NOW))) TO fh1
WRITELN "" TO fh1
WRITELN "' Check id= statements in glade data and Reference some widgets section" TO fh1
WRITELN "' at end for hyphens in function names and references. Change all to underscores!" TO fh1
WRITELN myline1$ TO fh1
WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN CONCAT$("' Callbacks for file: ", gladefile$) TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' ERROR HANDLING SET UP" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "TRAP LOCAL" TO fh1
WRITELN "CATCH GOTO print_err" TO fh1
WRITELN "" TO fh1

WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' DECLARATIONS"  TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "" TO fh1
WRITELN "" TO fh1
WRITELN "" TO fh1


WRITELN "'==================================" TO fh1
WRITELN "'--- EMBED GLADE IMPORTS" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "PROTO glade_require" TO fh1
WRITELN "PROTO glade_provide" TO fh1
WRITELN "PROTO glade_xml_new" TO fh1
WRITELN "PROTO glade_xml_new_from_buffer" TO fh1
WRITELN "PROTO glade_xml_construct" TO fh1
WRITELN "PROTO glade_xml_construct_from_buffer" TO fh1
WRITELN "PROTO glade_xml_signal_connect" TO fh1
WRITELN "PROTO glade_xml_signal_connect_data" TO fh1
WRITELN "PROTO glade_xml_signal_autoconnect" TO fh1
WRITELN "PROTO glade_xml_get_widget" TO fh1
WRITELN "PROTO glade_xml_get_widget_prefix" TO fh1
WRITELN "PROTO glade_get_widget_name" TO fh1
WRITELN "PROTO glade_get_widget_tree" TO fh1
WRITELN "PROTO glade_xml_signal_connect_full" TO fh1
WRITELN "PROTO glade_xml_signal_autoconnect_full" TO fh1
WRITELN "PROTO glade_set_custom_handler" TO fh1
WRITELN "PROTO glade_parser_parse_file" TO fh1
WRITELN "PROTO glade_parser_parse_buffer" TO fh1
WRITELN "PROTO glade_interface_destroy" TO fh1
WRITELN "PROTO glade_interface_dump" TO fh1
WRITELN "PROTO glade_xml_build_widget" TO fh1
WRITELN "PROTO glade_xml_handle_internal_child" TO fh1
WRITELN "PROTO glade_xml_set_common_params" TO fh1
WRITELN "PROTO glade_register_widget" TO fh1
WRITELN "PROTO glade_standard_build_widget" TO fh1
WRITELN "PROTO glade_xml_handle_widget_prop" TO fh1
WRITELN "PROTO glade_standard_build_children" TO fh1
WRITELN "PROTO glade_xml_set_packing_property" TO fh1
WRITELN "PROTO glade_register_custom_prop" TO fh1
WRITELN "PROTO glade_xml_relative_file" TO fh1
WRITELN "PROTO glade_enum_from_string" TO fh1
WRITELN "PROTO glade_flags_from_string" TO fh1
WRITELN "PROTO glade_xml_set_value_from_string" TO fh1
WRITELN "PROTO glade_xml_set_toplevel" TO fh1
WRITELN "PROTO glade_xml_ensure_accel" TO fh1
WRITELN "" TO fh1
WRITELN "" TO fh1




WRITELN "'==================================" TO fh1
WRITELN "'--- EMBED GTK IMPORTS" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN CONCAT$("PROTO ","gtk_main") TO fh1
WRITELN CONCAT$("PROTO ","gtk_init") TO fh1
WRITELN CONCAT$("PROTO ","gtk_main_quit") TO fh1
WRITELN CONCAT$("PROTO ","gtk_widget_show_all") TO fh1
WRITELN CONCAT$("PROTO ","gtk_exit") TO fh1
WRITELN CONCAT$("PROTO ","g_signal_connect_data") TO fh1
WRITELN CONCAT$("PROTO ","g_object_unref") TO fh1
' WRITELN CONCAT$("PROTO ","glade_xml_new") TO fh1
WRITELN CONCAT$("PROTO ","glade_xml_new_from_buffer") TO fh1
WRITELN CONCAT$("PROTO ","glade_xml_get_widget") TO fh1
WRITELN CONCAT$("PROTO ","glade_xml_signal_autoconnect") TO fh1
WRITELN CONCAT$("PROTO ","glade_xml_signal_connect") TO fh1
WRITELN "" TO fh1

WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' GLADE DATA"  TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "' this is where the DATA statements go" TO fh1
MAKE_READ
WRITELN "" TO fh1

WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' SUBS & FUNCTIONS"  TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "SUB READ_DATA()" TO fh1
WRITELN myline$ TO fh1
WRITELN CONCAT$(TAB$(1),"gladeline$ = ", q$,q$) TO fh1
WRITELN CONCAT$(TAB$(1),"REPEAT") TO fh1
WRITELN CONCAT$(TAB$(2),"READ gladeline$") TO fh1
WRITELN CONCAT$(TAB$(2), "gladedata$ = CONCAT$(gladedata$, gladeline$)") TO fh1
WRITELN CONCAT$(TAB$(1),"UNTIL EQUAL(gladeline$, ",q$,"</glade-interface>",q$,")") TO fh1
WRITELN "END SUB" TO fh1
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "SUB EXIT_PROG()" TO fh1
WRITELN myline$ TO fh1
WRITELN CONCAT$(TAB$(1),"gtk_exit") TO fh1
WRITELN "END SUB" TO fh1
WRITELN "" TO fh1
FOR idx = 0 TO reccount - 1
FOR ixh = 0 TO sigcount - 1
IF NOT(LEN(glade[idx].signal$[ixh]) EQ 0) THEN
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN CONCAT$("SUB ", glade[idx].handler$[ixh] , "(long widget, int event, long userdata)")  TO fh1
WRITELN myline$ TO fh1
IF glade[idx].wtype EQ 1 THEN
IF EQUAL("destroy",glade[idx].signal$[ixh]) OR EQUAL("destroy_event",glade[idx].signal$[ixh]) THEN
WRITELN  CONCAT$(TAB$(1), "gtk_main_quit") TO fh1
END IF
ELSE
WRITELN CONCAT$(TAB$(1), "' Place your code here") TO fh1
END IF
WRITELN CONCAT$(TAB$(1), "' code for signal ", glade[idx].signal$[ixh]) TO fh1
WRITELN "END SUB" TO fh1
END IF
NEXT ixh
NEXT idx
WRITELN "" TO fh1

WRITELN "" TO fh1
WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' MAIN"  TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "READ_DATA"  TO fh1
WRITELN myline$ TO fh1
WRITELN "' Initialize Gtk" TO fh1
WRITELN myline$ TO fh1
WRITELN "gtk_init(0, 0) " TO fh1
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "' Specify the windows to be shown" TO fh1
WRITELN myline$ TO fh1
WRITELN  CONCAT$("xml = glade_xml_new_from_buffer(gladedata$,LEN(gladedata$)",", 0, 0 )") TO fh1
' WRITELN "    glade_xml_signal_autoconnect( xml )" TO fh1
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "' Reference some widgets" TO fh1
WRITELN myline$ TO fh1
FOR ix = 0 TO reccount - 1
IF glade[ix].wtype EQ 1 THEN
WRITELN CONCAT$(glade[ix].id$, " = glade_xml_get_widget( xml, ", q$,glade[ix].id$,q$, ")") TO fh1
FOR ixs = 0 TO sigcount - 1
IF NOT(LEN(glade[ix].signal$[ixs]) EQ 0) THEN
WRITELN CONCAT$("g_signal_connect_data(",glade[ix].id$,", ",q$,glade[ix].signal$[ixs],q$,", ADDRESS(", glade[ix].handler$[ixs],"), 0, 0, 0)") TO fh1
END IF
NEXT ixs
END IF
NEXT ix
WRITELN "" TO fh1
FOR ix = 0 TO reccount - 1
IF glade[ix].wtype EQ 2 THEN
IF NOT(LEN(glade[ix].id$) EQ 0) THEN
WRITELN CONCAT$(glade[ix].id$, " = glade_xml_get_widget( xml, ", q$,glade[ix].id$,q$, ")") TO fh1
END IF
END IF
NEXT ix
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "' Connect some signals " TO fh1
WRITELN myline$ TO fh1
FOR idx = 0 TO reccount - 1
IF glade[idx].wtype EQ 2 THEN  
FOR ixs = 0 TO sigcount - 1
IF NOT(LEN(glade[idx].signal$[ixs]) EQ 0) THEN
WRITELN CONCAT$("g_signal_connect_data(",glade[idx].id$,", ",q$,glade[idx].signal$[ixs],q$,", ADDRESS(", glade[idx].handler$[ixs],"), 0, 0, 0)") TO fh1
END IF
NEXT ixs
END IF
NEXT idx
WRITELN "" TO fh1
WRITELN myline$ TO fh1
WRITELN "' Display main window(s)" TO fh1
WRITELN myline$ TO fh1
' Display windows  
FOR ix = 0 TO reccount - 1
IF glade[ix].wtype EQ 1 THEN
WRITELN CONCAT$("gtk_widget_show_all( ",glade[ix].id$,")") TO fh1
END IF
NEXT ix
WRITELN ""  TO fh1
WRITELN myline$ TO fh1
WRITELN "' unattach xml reference" TO fh1
WRITELN myline$ TO fh1
WRITELN "g_object_unref( xml )" TO fh1
WRITELN ""  TO fh1
WRITELN myline$ TO fh1
WRITELN "' The main GUI loop starts" TO fh1
WRITELN myline$ TO fh1
WRITELN "gtk_main " TO fh1
'WRITELN "END" TO fh1
WRITELN ""  TO fh1
WRITELN "" TO fh1

WRITELN "" TO fh1
WRITELN "'==================================" TO fh1
WRITELN "' ERROR HANDLER"  TO fh1
WRITELN "'==================================" TO fh1
WRITELN "" TO fh1
WRITELN "LABEL print_err" TO fh1
WRITELN CONCAT$(TAB$(1), "IF ERROR THEN PRINT ERR$(ERROR)") TO fh1
WRITELN "" TO fh1

WRITELN "" TO fh1
CLOSE FILE fh1
END SUB




' =====================
' MAIN
' =====================

INIT_VARS
GET_ARGS
READ_GLADE
WRITE_BAC
END


' =====================
' ERROR HANDLER
' =====================

LABEL print_err
IF ERROR THEN PRINT ERR$(ERROR)

' =====================
' END ERROR HANDLER
' =====================


[vovchik]

Dear Joe,

Amazing - that was fast. There are a few little things still - the prog generates three gtk_quit functions with the same name when there are three calls in different places to the quit routine, for example (I used Peter's demo glade), and it dislikes non ASCCI chars (umlauts, for example), but that can be fixed with OPTIONS settings, I think. Fabulous work, and it compiles very quickly. What a joy. I wonder if it couldn't make use of your nice DND GUI when there is no argument on the command line.

With kind regards,
vovchik