gui.bas

Go to the documentation of this file.

SCOPE

  VAR er = gtk_check_version(3, 6, 0)

  IF er THEN

    ?"Fehler/Error (GTK-Version):"

    ?*er

    END 1

  END IF

END SCOPE



DIM SHARED AS GUIData GUI



GUI.XML = gtk_builder_new()



SCOPE

DIM AS GError PTR meld

IF 0 = gtk_builder_add_from_file(GUI.XML, "fbdbg.ui", @meld) THEN

  WITH *meld

    ?"Fehler/Error (GTK-Builder):"

    ?*.message

  END WITH

  g_error_free(meld)

  END 2

END IF



VAR dia = GTK_ABOUT_DIALOG(gtk_builder_get_object(GUI.XML, "aboutdialog1"))

gtk_about_dialog_set_program_name(dia, PROJ_NAME)

gtk_about_dialog_set_comments(dia, PROJ_DESC)

gtk_about_dialog_set_version(dia, PROJ_VERS)

gtk_about_dialog_set_copyright(dia, PROJ_LICE & ": © 2006-" & PROJ_YEAR & " by " & PROJ_MAIL)

gtk_about_dialog_set_website(dia, PROJ_WEBS)

END SCOPE



WITH GUI

  .window1 = gtk_builder_get_object(.XML, "window1")

  .lstoreMemory = gtk_builder_get_object(.XML, "lstoreMemory")

  .tstoreProcVar = gtk_builder_get_object(.XML, "tstoreProcVar")

  .tstoreProcs = gtk_builder_get_object(.XML, "tstoreProcs")

  .tstoreThreads = gtk_builder_get_object(.XML, "tstoreThreads")

  .tstoreWatch = gtk_builder_get_object(.XML, "tstoreWatch")

  .nbook2 = gtk_builder_get_object(.XML, "nbook2")

  .tviewProcVar = gtk_builder_get_object(.XML, "tviewProcVar")

  .tviewProcs = gtk_builder_get_object(.XML, "tviewProcs")

  .tviewThreads = gtk_builder_get_object(.XML, "tviewThreads")

  .tviewWatch = gtk_builder_get_object(.XML, "tviewWatch")

  .lviewMemory = gtk_builder_get_object(.XML, "lviewMemory")

  .butStopVar = gtk_builder_get_object(.XML, "button2")

  .watch1 = gtk_builder_get_object(.XML, "watch1")

  .watch3 = gtk_builder_get_object(.XML, "watch3")

  .watch2 = gtk_builder_get_object(.XML, "watch2")

  .watch4 = gtk_builder_get_object(.XML, "watch4")

END WITH



'scope

  'var css = gtk_css_provider_new()

  'gtk_css_provider_load_from_data(css, _

    '".button{" _

    '"-GtkButton-default-border: 0px;" _

    '"-GtkButton-default-outside-border: 50px;" _

    '"-GtkButton-inner-border: 0px;" _

    '"-GtkWidget-focus-line-width: 0px;" _

    '"-GtkWidget-focus-padding: 0px;" _

    '"padding: 0px;" _

    '"}" _

  ', -1, NULL)

  'VAR cont = gtk_widget_get_style_context(GTK_WIDGET(GUI.window1))

  ''gtk_style_context_add_provider(cont, GTK_STYLE_PROVIDER(css), GTK_STYLE_PROVIDER_PRIORITY_APPLICATION)

  'gtk_style_context_add_provider(cont, GTK_STYLE_PROVIDER(css), 200)

'END scope



'' here's the GUI code

#INCLUDE ONCE "filechoosers.bas"

#INCLUDE ONCE "expand.bas"

XPD = NEW ExpandUdt

#INCLUDE ONCE "log_notes.bas"

TXT = NEW LOG_Udt

#INCLUDE ONCE "main.bas"

#INCLUDE ONCE "source.bas"

SRC = NEW SrcNotebook

#INCLUDE ONCE "actions.bas"

ACT = NEW ActionsUDT



#INCLUDE ONCE "multi_action.bas"

#INCLUDE ONCE "mbar_buttons.bas"

#INCLUDE ONCE "menu_procvar.bas"

#INCLUDE ONCE "menu_procs.bas"

#INCLUDE ONCE "menu_source.bas"

#INCLUDE ONCE "menu_watch.bas"

#INCLUDE ONCE "menu_threads.bas"

#INCLUDE ONCE "menu_tools.bas"



#INCLUDE ONCE "settings.bas"

#INCLUDE ONCE "shortcuts.bas"