|
|
Post by SunBurnt on May 17, 2012 3:00:32 GMT 1
vovchik and I have been talking about this sort of thing.
Here is a standard Bacon way of doing it and a short syntax method.
I can`t get the CallBack "g_signal_connect_swapped" to work, typical for GTK+.
And both have a exit problem I can`t figure out, they just hang.
# This is the "Bacon normal" one:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code START.
CONST gtk$ = "libgtk-x11-2.0.so"
IMPORT "gtk_init(int*,void*)" FROM gtk$ TYPE void
IMPORT "gtk_window_new(int)" FROM gtk$ TYPE long
IMPORT "gtk_window_set_title(long,char*)" FROM gtk$ TYPE void
IMPORT "gtk_window_set_position(long,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_set_size_request(long,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM gtk$ TYPE long
IMPORT "gtk_container_add(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_bar_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_item_new_with_label(char*)" FROM gtk$ TYPE long
IMPORT "gtk_menu_shell_append(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_item_set_submenu(long,long)" FROM gtk$ TYPE void
'IMPORT "gtk_separator_menu_item_new()
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_show_all(long)" FROM gtk$ TYPE void
IMPORT "gtk_main_quit(void)" FROM gtk$ TYPE void
' *****************************
' SUBS & FUNCTIONS ( INCLUDE )
' *****************************
'SUB Open_CLICK
' PRINT "### Open"
'END SUB
FUNCTION MENU_BAR()
' define entire menu bar
RETURN gtk_menu_bar_new()
END FUNCTION
FUNCTION MENU_LIST(STRING list$, int bar_)
' create a menu list
list_ = gtk_menu_new()
' give it a name that will appear in the menu bar (not really a menu item)
name_ = gtk_menu_item_new_with_label(list$)
' add menu to menubar
gtk_menu_shell_append(bar_, name_)
' add menu to file list
gtk_menu_item_set_submenu(name_, list_)
RETURN list_
END FUNCTION
FUNCTION MENU_ITEM(STRING item$, int list_)
' create a menu item with label
item_ = gtk_menu_item_new_with_label(item$)
' add the item to the list
gtk_menu_shell_append(list_, item_)
RETURN item_
END FUNCTION
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code END.
'############### This part should be normal Bacon syntax in a separate Bacon file.
' start gtk
gtk_init(0, 0)
' create main window, and get ptr to it
win = gtk_window_new(0)
' set window title
gtk_window_set_title(win, "Menu Demo")
' set window size
gtk_widget_set_size_request(win, 300, 300)
' set window position (centred)
gtk_window_set_position(win, 1)
' make a vertical box with 0 pixel horizontal and 0 pixel vertical spacing
vbox = gtk_vbox_new(0, 0)
' add a vbox to window
gtk_container_add(win, vbox)
'############################### Main Bacon file, gui description data.
mBar_ = MENU_BAR()
mFile_ = MENU_LIST("File", mBar_)
mOpen_ = MENU_ITEM("Open", mFile_)
mSave_ = MENU_ITEM("Save", mFile_)
mSavAs_ = MENU_ITEM("Save As", mFile_)
mQuit_ = MENU_ITEM("Quit", mFile_)
mEdit_ = MENU_LIST("Edit", mBar_)
mCopy_ = MENU_ITEM("Copy", mEdit_)
mCut_ = MENU_ITEM("Cut", mEdit_)
mPaste_ = MENU_ITEM("Paste", mEdit_)
'################################### Part of main Bacon file also.
' add menu bar to top of vbox
gtk_box_pack_start(vbox, mBar_, 0, 0, 1)
' show the whole thing
gtk_widget_show_all(win)
' show gui
gtk_main()
END
This method does not have a clear method for doing sub menus.
# This is the "syntax short" one:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code START.
CONST gtk$ = "libgtk-x11-2.0.so"
IMPORT "gtk_init(int*,void*)" FROM gtk$ TYPE void
IMPORT "gtk_window_new(int)" FROM gtk$ TYPE long
IMPORT "gtk_window_set_title(long,char*)" FROM gtk$ TYPE void
IMPORT "gtk_window_set_position(long,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_set_size_request(long,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM gtk$ TYPE long
IMPORT "gtk_container_add(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_bar_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_item_new_with_label(char*)" FROM gtk$ TYPE long
IMPORT "gtk_menu_shell_append(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_item_set_submenu(long,long)" FROM gtk$ TYPE void
'IMPORT "gtk_separator_menu_item_new()
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_show_all(long)" FROM gtk$ TYPE void
IMPORT "gtk_main_quit(void)" FROM gtk$ TYPE void
IMPORT "gtk_main" FROM gtk$ TYPE void
'===================== Menu(Menu Label) = Widget ID_
GLOBAL Menu ASSOC int
' *****************************
' SUBS & FUNCTIONS ( INCLUDE )
' *****************************
'SUB Open_CLICK
' PRINT "### Open"
'END SUB
SUB MENU(VAR item$ SIZE sz)
' define entire menu bar
IF Mfg = FALSE THEN
Mfg = TRUE
GLOBAL MnuBar_ TYPE int
MnuBar_ = gtk_menu_bar_new()
ELSE
' create menu list
Menu(item$[1]) = gtk_menu_new()
' give it a name that will appear in the menu bar (not really a menu item)
name_ = gtk_menu_item_new_with_label(item$[1])
' add file menu to menubar
gtk_menu_shell_append(MnuBar_, name_)
' add file menu to file list
gtk_menu_item_set_submenu(name_, Menu(item$[1]))
FOR i = 2 TO sz-1
'################## Attempt to get Menu Item Separator to work.
IF item$[i] = "|" THEN
' Menu(item$[i]) = gtk_separator_menu_item_new()
CONTINUE
END IF
' create first menu item
Menu(item$[i]) = gtk_menu_item_new_with_label(item$[i])
' add it as first item in list
gtk_menu_shell_append(Menu(item$[1]), Menu(item$[i]))
'##### Can`t get CallBack to work...
' g_signal_connect_swapped(G_OBJECT (Menu(item$[i])), "clicked",
' G_CALLBACK (CONCAT$(item$[i], "_CLICK")), (gpointer) Menu(item$[1]))
NEXT
END IF
END SUB
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code END.
'############### This part should be normal Bacon syntax in a separate Bacon file.
' start gtk
gtk_init(0, 0)
' create main window, and get ptr to it
win = gtk_window_new(0)
' set window title
gtk_window_set_title(win, "Menu Demo")
' set window size
gtk_widget_set_size_request(win, 300, 300)
' set window position (centred)
gtk_window_set_position(win, 1)
' make a vertical box with 0 pixel horizontal and 0 pixel vertical spacing
vbox = gtk_vbox_new(0, 0)
' add a vbox to window
gtk_container_add(win, vbox)
'############################### Main Bacon file, gui description data.
Mfg = FALSE
MENU("")
MENU("File", "Open", "Save", "Save As", "|", "Quit")
MENU("Edit", "Copy", "Cut", "Paste")
'################################### Part of main Bacon file also.
' add menu bar to top of vbox
gtk_box_pack_start(vbox, MnuBar_, 0, 0, 1)
' show the whole thing
gtk_widget_show_all(win)
' show gui
gtk_main()
END
|
|
|
|
Post by Pjot on May 17, 2012 11:34:01 GMT 1
Hi SunBurnt, Your programs do not exit because you do not have implemented a callback signal to exit the GTK mainloop. This is your first program with such a callback:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code START.
TRAP LOCAL
CONST gtk$ = "libgtk-x11-2.0.so"
IMPORT "gtk_init(int*,void*)" FROM gtk$ TYPE void
IMPORT "gtk_window_new(int)" FROM gtk$ TYPE long
IMPORT "gtk_window_set_title(long,char*)" FROM gtk$ TYPE void
IMPORT "gtk_window_set_position(long,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_set_size_request(long,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM gtk$ TYPE long
IMPORT "gtk_container_add(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_bar_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_item_new_with_label(char*)" FROM gtk$ TYPE long
IMPORT "gtk_menu_shell_append(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_item_set_submenu(long,long)" FROM gtk$ TYPE void
'IMPORT "gtk_separator_menu_item_new()
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_show_all(long)" FROM gtk$ TYPE void
IMPORT "gtk_main_quit(void)" FROM gtk$ TYPE void
IMPORT "gtk_main(void)" FROM gtk$ TYPE void
CONST gobject$ = "libgobject-2.0.so"
IMPORT "g_signal_connect_data(long,char*,void*,long,long,int)" FROM gobject$ TYPE void
' *****************************
' SUBS & FUNCTIONS ( INCLUDE )
' *****************************
'SUB Open_CLICK
' PRINT "### Open"
'END SUB
FUNCTION MENU_BAR()
' define entire menu bar
RETURN gtk_menu_bar_new()
END FUNCTION
FUNCTION MENU_LIST(STRING list$, int bar_)
' create a menu list
list_ = gtk_menu_new()
' give it a name that will appear in the menu bar (not really a menu item)
name_ = gtk_menu_item_new_with_label(list$)
' add menu to menubar
gtk_menu_shell_append(bar_, name_)
' add menu to file list
gtk_menu_item_set_submenu(name_, list_)
RETURN list_
END FUNCTION
FUNCTION MENU_ITEM(STRING item$, int list_)
' create a menu item with label
item_ = gtk_menu_item_new_with_label(item$)
' add the item to the list
gtk_menu_shell_append(list_, item_)
RETURN item_
END FUNCTION
SUB open_clicked
PRINT "You clicked the 'Open' menu!"
END SUB
SUB exit_prog
END
END SUB
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code END.
'############### This part should be normal Bacon syntax in a separate Bacon file.
' start gtk
gtk_init(0, 0)
' create main window, and get ptr to it
win = gtk_window_new(0)
g_signal_connect_data(win, "delete-event", exit_prog, 0, 0, 0)
' set window title
gtk_window_set_title(win, "Menu Demo")
' set window size
gtk_widget_set_size_request(win, 300, 300)
' set window position (centred)
gtk_window_set_position(win, 1)
' make a vertical box with 0 pixel horizontal and 0 pixel vertical spacing
vbox = gtk_vbox_new(0, 0)
' add a vbox to window
gtk_container_add(win, vbox)
'############################### Main Bacon file, gui description data.
mBar_ = MENU_BAR()
mFile_ = MENU_LIST("File", mBar_)
mOpen_ = MENU_ITEM("Open", mFile_)
g_signal_connect_data(mOpen_, "activate", open_clicked, 0, 0, 0)
mSave_ = MENU_ITEM("Save", mFile_)
mSavAs_ = MENU_ITEM("Save As", mFile_)
mQuit_ = MENU_ITEM("Quit", mFile_)
g_signal_connect_data(mQuit_, "activate", exit_prog, 0, 0, 0)
mEdit_ = MENU_LIST("Edit", mBar_)
mCopy_ = MENU_ITEM("Copy", mEdit_)
mCut_ = MENU_ITEM("Cut", mEdit_)
mPaste_ = MENU_ITEM("Paste", mEdit_)
'################################### Part of main Bacon file also.
' add menu bar to top of vbox
gtk_box_pack_start(vbox, mBar_, 0, 0, 1)
' show the whole thing
gtk_widget_show_all(win)
' show gui
gtk_main()
END
The second program is a complete mess...  In the beginning of the MENU function you have an IF/THEN which prevents the first invocation to add a menu structure. Furthermore the item$[] array starts at index 0, and not at 1. Again you need to import and add the g_signal_connect_data function to allow callbacks. As a friendly remark, if you have GTK specific questions, it maybe better to ask them at some GTK support forum or mailinglist. Please also study the GTK tutorials carefully. Best regards Peter |
|
|
|
Post by SunBurnt on May 18, 2012 1:39:56 GMT 1
But shouldn`t the window`s exit button quit itself cleanly?
The IF is no different than the first demo`s MENU_BAR function.
The flag makes the first call create the menu bar, and ones after that make menu lists.
So the first empty call creates the menu bar like the MENU_BAR function.
I guess I should have made the first "make list" call make the menu bar if it didn`t exist.
The index starts at 1 for the list and it`s items, 0 has the function name in it ( of course ).
Actually the second demo works just as well as the first one does...
I didn`t intend the post to ask Qs, but to demo the menu bar project.
|
|
|
|
Post by Pjot on May 18, 2012 7:40:09 GMT 1
Only when you connect the "delete-event" signal to it.
Not with BaCon build 25 or higher. I guess you are using an older version?
No worries, that is what the forum is for, Q's about BaCon are always welcome!
Best regards
Peter
|
|
mobeus
Junior Member
Posts: 86 
|
Post by mobeus on May 21, 2012 3:16:00 GMT 1
SunBurnt, I like this menu bar project! It makes gtk menus a breeze. I hope you don’t mind, I tweaked your code a little and got a working version. Don’t know if this is what you had in mind or not but I could live with it. Regards, Mobeus '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code START.
CONST gtk$ = "libgtk-x11-2.0.so"
IMPORT "gtk_init(int*,void*)" FROM gtk$ TYPE void
IMPORT "gtk_window_new(int)" FROM gtk$ TYPE long
IMPORT "gtk_window_set_title(long,char*)" FROM gtk$ TYPE void
IMPORT "gtk_window_set_position(long,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_set_size_request(long,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM gtk$ TYPE long
IMPORT "gtk_container_add(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_bar_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_item_new_with_label(char*)" FROM gtk$ TYPE long
IMPORT "gtk_menu_shell_append(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_item_set_submenu(long,long)" FROM gtk$ TYPE void
'IMPORT "gtk_separator_menu_item_new()
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_show_all(long)" FROM gtk$ TYPE void
IMPORT "gtk_main_quit(void)" FROM gtk$ TYPE void
IMPORT "gtk_main" FROM gtk$ TYPE void
CONST gobject$ = "libgobject-2.0.so"
IMPORT "g_signal_connect_data(long,char*,void*,long,long,int)" FROM gobject$ TYPE void
IMPORT "gtk_menu_item_get_label(long)" FROM gtk$ TYPE long
'===================== Menu(Menu Label) = Widget ID_
GLOBAL Menu ASSOC int
' *****************************
' SUBS & FUNCTIONS ( INCLUDE )
' *****************************
'SUB Open_CLICK
' PRINT "### Open"
'END SUB
SUB MENU(VAR item$ SIZE sz)
' define entire menu bar
IF Mfg = FALSE THEN
Mfg = TRUE
GLOBAL MnuBar_ TYPE int
MnuBar_ = gtk_menu_bar_new()
ELSE
' create menu list
Menu(item$[1]) = gtk_menu_new()
' give it a name that will appear in the menu bar (not really a menu item)
name_ = gtk_menu_item_new_with_label(item$[1])
' add file menu to menubar
gtk_menu_shell_append(MnuBar_, name_)
' add file menu to file list
gtk_menu_item_set_submenu(name_, Menu(item$[1]))
FOR i = 2 TO sz-1
'################## Attempt to get Menu Item Separator to work.
IF item$ = "|" THEN
' Menu(item$) = gtk_separator_menu_item_new()
CONTINUE
END IF
' create first menu item
Menu(item$) = gtk_menu_item_new_with_label(item$)
' add it as first item in list
gtk_menu_shell_append(Menu(item$[1]), Menu(item$))
'##### Can`t get CallBack to work...
' g_signal_connect_swapped(G_OBJECT (Menu(item$)), "clicked",
' G_CALLBACK (CONCAT$(item$, "_CLICK")), (gpointer) Menu(item$[1]))
g_signal_connect_data(Menu(item$), "activate", MENU_CLICK, 0, 0, 0)
NEXT
END IF
END SUB
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code END.
'############### This part should be normal Bacon syntax in a separate Bacon file.
SUB exit_prog
END
END SUB
SUB MENU_CLICK (NUMBER widget)
menu$ = (char*)gtk_menu_item_get_label(widget)
SELECT menu$
CASE "Quit"
exit_prog
DEFAULT
PRINT menu$, " clicked"
END SELECT
END SUB
' start gtk
gtk_init(0, 0)
' create main window, and get ptr to it
win = gtk_window_new(0)
' set window title
g_signal_connect_data(win, "delete-event", exit_prog, 0, 0, 0)
gtk_window_set_title(win, "Menu Demo")
' set window size
gtk_widget_set_size_request(win, 300, 300)
' set window position (centred)
gtk_window_set_position(win, 1)
' make a vertical box with 0 pixel horizontal and 0 pixel vertical spacing
vbox = gtk_vbox_new(0, 0)
' add a vbox to window
gtk_container_add(win, vbox)
'############################### Main Bacon file, gui description data.
Mfg = FALSE
MENU("")
MENU("File", "Open", "Save", "Save As", "|", "Quit")
MENU("Edit", "Copy", "Cut", "Paste")
'################################### Part of main Bacon file also.
' add menu bar to top of vbox
gtk_box_pack_start(vbox, MnuBar_, 0, 0, 1)
' show the whole thing
gtk_widget_show_all(win)
' show gui
gtk_main()
END
|
|
mobeus
Junior Member
Posts: 86
|
Post by mobeus on May 21, 2012 3:54:16 GMT 1
SunBurnt, Again I hope you don't mind. This one works with the current BaCon beta and the separators are working. Regards, Mobeus '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code START.
CONST gtk$ = "libgtk-x11-2.0.so"
IMPORT "gtk_init(int*,void*)" FROM gtk$ TYPE void
IMPORT "gtk_window_new(int)" FROM gtk$ TYPE long
IMPORT "gtk_window_set_title(long,char*)" FROM gtk$ TYPE void
IMPORT "gtk_window_set_position(long,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_set_size_request(long,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM gtk$ TYPE long
IMPORT "gtk_container_add(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_bar_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_new" FROM gtk$ TYPE long
IMPORT "gtk_menu_item_new_with_label(char*)" FROM gtk$ TYPE long
IMPORT "gtk_menu_shell_append(long,long)" FROM gtk$ TYPE void
IMPORT "gtk_menu_item_set_submenu(long,long)" FROM gtk$ TYPE void
'IMPORT "gtk_separator_menu_item_new()
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM gtk$ TYPE void
IMPORT "gtk_widget_show_all(long)" FROM gtk$ TYPE void
IMPORT "gtk_main_quit(void)" FROM gtk$ TYPE void
IMPORT "gtk_main" FROM gtk$ TYPE void
CONST gobject$ = "libgobject-2.0.so"
IMPORT "g_signal_connect_data(long,char*,void*,long,long,int)" FROM gobject$ TYPE void
IMPORT "gtk_menu_item_get_label(long)" FROM gtk$ TYPE long
IMPORT "gtk_separator_menu_item_new()" FROM gtk$ TYPE long
'===================== Menu(Menu Label) = Widget ID_
GLOBAL Menu ASSOC int
' *****************************
' SUBS & FUNCTIONS ( INCLUDE )
' *****************************
'SUB Open_CLICK
' PRINT "### Open"
'END SUB
SUB MENU(VAR item$ SIZE sz)
' define entire menu bar
IF Mfg = FALSE THEN
Mfg = TRUE
GLOBAL MnuBar_ TYPE int
MnuBar_ = gtk_menu_bar_new()
ELSE
' create menu list
Menu(item$[0]) = gtk_menu_new()
' give it a name that will appear in the menu bar (not really a menu item)
name_ = gtk_menu_item_new_with_label(item$[0])
' add file menu to menubar
gtk_menu_shell_append(MnuBar_, name_)
' add file menu to file list
gtk_menu_item_set_submenu(name_, Menu(item$[0]))
FOR i = 1 TO sz-1
'################## Attempt to get Menu Item Separator to work.
IF item$ = "|" THEN
Menu(item$) = gtk_separator_menu_item_new()
gtk_menu_shell_append(Menu(item$[0]), Menu(item$))
CONTINUE
END IF
' create first menu item
Menu(item$) = gtk_menu_item_new_with_label(item$)
' add it as first item in list
gtk_menu_shell_append(Menu(item$[0]), Menu(item$))
g_signal_connect_data(Menu(item$), "activate", MENU_CLICK, 0, 0, 0)
NEXT
END IF
END SUB
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Canned Code END.
'############### This part should be normal Bacon syntax in a separate Bacon file.
SUB exit_prog
END
END SUB
SUB MENU_CLICK (NUMBER widget)
menu$ = (char*)gtk_menu_item_get_label(widget)
SELECT menu$
CASE "Quit"
exit_prog
DEFAULT
PRINT menu$, " clicked"
END SELECT
END SUB
' start gtk
gtk_init(0, 0)
' create main window, and get ptr to it
win = gtk_window_new(0)
' set window title
g_signal_connect_data(win, "delete-event", exit_prog, 0, 0, 0)
gtk_window_set_title(win, "Menu Demo")
' set window size
gtk_widget_set_size_request(win, 300, 300)
' set window position (centred)
gtk_window_set_position(win, 1)
' make a vertical box with 0 pixel horizontal and 0 pixel vertical spacing
vbox = gtk_vbox_new(0, 0)
' add a vbox to window
gtk_container_add(win, vbox)
'############################### Main Bacon file, gui description data.
Mfg = FALSE
MENU("")
MENU("File", "Open", "Save", "Save As", "|", "Quit")
MENU("Edit", "Copy", "Cut", "Paste")
'################################### Part of main Bacon file also.
' add menu bar to top of vbox
gtk_box_pack_start(vbox, MnuBar_, 0, 0, 1)
' show the whole thing
gtk_widget_show_all(win)
' show gui
gtk_main()
END
|
|
|
|
Post by SunBurnt on May 29, 2012 5:09:08 GMT 1
Hi mobius; That`s the working package! GTK+ menu has piles of stuff of course.
The code has no method for Sub Menus, this is the most critical item needed.
Maybe best to have set names for the click-event subs, like: SUB MENUBAR_OPEN
And a clean-up of the CONST and INCLUDES is needed also.
This needs other placement methods added so they`ll auto. select the proper one.
Need that code enabled to the ATTACH the menu bar:
' add menu bar to top of vbox
gtk_box_pack_start(vbox, MnuBar_, 0, 0, 1)
I like how fast it compiles.
Now just need to make a "menubar.bac" function file.
No more rewriting the same code over and over again!!!
I`ve been busy with trying to learn app. compiling, I`ve been putting it off for years.
I`m learning fast and I`m rapidly sinking into dependency hell. ;D
I`m trying to develop methods for building portable self contained Squash apps.
Like Tiny Core Linux`s SCM files, except more self supporting and with multiple apps.
|
|
