拖放式Glade界面设计与 FreeBASIC编程 + LinuxMint _Glade

总想把简单东西系统性写好，但简单实用的表述还是挺动脑筋的，今天写的拖放式Glade界面设计与 FreeBASIC编程 + linuxMint，边拉界面边编程，让FreeBASIC程序运行在 Linux平台上。
拟设计的任务很简单地做个窗体，默认标题是 GtkBuilder；放个 label，显示 A Label for Nothing；放个 button标签是 buttonabc；放个 button标题是 Quit
拟定功能：按buttonabc，窗体标题由 GtkBuilder改变为 FreeBASIC menu，label标签变为 Yes, I got it!；点击放大窗体到最大，布局跟着变化；点击 Quit，退出程序。

文章插图

使用工具atom 代码编译器； glade3.22；gtk3.0； FreeBASIC1.09的fbc编译器。

glade设计按图修改二个红圈标注的地方

文章插图

common页标记“可见”，见红圈。

文章插图

布局器数据，纵向三栏。！勾选“统一大小” --- 漏掉了标记的红圈

文章插图

摆放个 label 并按红圈修改

文章插图

左侧栏选择button，改这两个涂红圈的地方

文章插图

signal页上定义 button click

文章插图

Quit 按如下改

文章插图

文章插图

保存界面文件为 mytest.ui，相配合的FreeBASIC程序名为 gladefbc.bas
与mytest.ui互动编写代码

文章插图

说明：最右侧有glade设计器程序缩略图，点击它可视化修改界面保存后atom上右侧的文件内容即刻跟着变化，左侧是配合的FreeBASIC代码。下面是全部源代码。

#INCLUDE ONCE "gtk/gtk3.bi"#DEFINE Ui_filename "mytest.ui"DIM SHARED AS GtkBuilder PTR xml1DIM SHARED AS GObject PTR window1DIM SHARED AS GObject PTR button1DIM SHARED AS GObject PTR button2DIM SHARED AS GObject PTR combo1DIM SHARED AS GObject PTR label1SUB on_ClickButton_clicked CDECL ALIAS "on_ClickButton_clicked" ( _BYVAL button AS GtkButton PTR, _BYVAL user_data AS gpointer) EXPORTgtk_label_set_text(GTK_LABEL(label1), @"Yes, I got it!")gtk_window_set_title(GTK_WINDOW(window1), @"FreeBASIC Menu")g_message("ClickButton clicked!")END SUBgtk_init(@__FB_ARGC__, @__FB_ARGV__)xml1 = gtk_builder_new()DIM AS GError PTR messIF 0 = gtk_builder_add_from_file(xml1, Ui_filename, @mess) THEN?"Fehler/Error (GTK-Builder):"?*mess->messageEND 2END IFwindow1 = gtk_builder_get_object(xml1, "main_win")button1 = gtk_builder_get_object(xml1, "main_box_button1")button2 = gtk_builder_get_object(xml1, "main_box_button2")label1 = gtk_builder_get_object(xml1, "main_box_label")gtk_builder_connect_signals( xml1, NULL )gtk_main( )g_object_unref( xml1 )END 0

运行结果在atom上F9，通过build插件自动编译gladefbc.bas为gladefbc并自动运行。