testing.bas

'' This is how to include SUBs / FUNCTIONs / EXTERNs from the core part
'#INCLUDE ONCE "core/core.bi"

'' and here we test SUBs / FUNCTIONs calls from the core part
'core1_sub(__FILE__)
'?"==> result: " ;core2_func(__FILE__)


' here's how to set the texts in the watch bar
WITH GUI
  gtk_label_set_text(GTK_LABEL(.watch1), "< empty >")
  gtk_label_set_text(GTK_LABEL(.watch2), "< empty >")
  gtk_label_set_text(GTK_LABEL(.watch3), "< empty >")
  gtk_label_set_text(GTK_LABEL(.watch4), "< empty >")
END WITH


'set a text in current line area
'gtk_text_buffer_set_text(GTK_TEXT_BUFFER(SRC->BuffCur), "test", -1)

' here's an example on how to populate tree stores
'SCOPE
  'DIM AS ZSTRING PTR entries(...) = { _ '                 some rows data
    '@"Globals(shared/common in : main" _
  ', @"NS : TESTNAMES.XX < Shared / Integer >" _
  ', @"VENUM <Shared /EENMU>=0 >> Unknowm" _
  ', @"PUDT1 <Shared / * UDT>=0" _
  ', @"ThID=3012 main:Integer" _
  ', @"__FB_ARGC__ <Byval param / Long>=0" _
  ', @"__FB_ARGV__ <Byval param / Long>=0" _
  '}

  'DIM AS GtkTreeIter iter(1) '                iterators, two levels here
  'DIM AS GObject PTR stores(...) = { _ '          all stores we populate
      'GUI.tstoreProcVar _
    ', GUI.tstoreProcs _
    ', GUI.tstoreThreads _
    ', GUI.tstoreWatch _
    '}

  'FOR i AS INTEGER = 0 TO UBOUND(stores)
    'VAR store = GTK_TREE_STORE(stores(i))
    'gtk_tree_store_clear(store) '                        empty the store

    'gtk_tree_store_append(store, @iter(0), NULL) '              level 0
    'gtk_tree_store_set(store, @iter(0), 0, entries(0), -1)

    'gtk_tree_store_append(store, @iter(1), @iter(0)) '          level 1
    'gtk_tree_store_set(store, @iter(1), 0, entries(1), -1)

    'gtk_tree_store_append(store, @iter(1), @iter(0)) '          level 1
    'gtk_tree_store_set(store, @iter(1), 0, entries(2), -1)

    'gtk_tree_store_append(store, @iter(1), @iter(0)) '          level 1
    'gtk_tree_store_set(store, @iter(1), 0, entries(3), -1)

    'gtk_tree_store_append(store, @iter(0), NULL) '              level 0
    'gtk_tree_store_set(store, @iter(0), 0, entries(4), -1)

    'gtk_tree_store_append(store, @iter(1), @iter(0)) '          level 1
    'gtk_tree_store_set(store, @iter(1), 0, entries(5), -1)

    'gtk_tree_store_append(store, @iter(1), @iter(0)) '          level 1
    'gtk_tree_store_set(store, @iter(1), 0, entries(6), -1)
  'NEXT


  '' GtkTreeViews are collapsed by default.

  '' example: expand all sublevels of the tree view
  'gtk_tree_view_expand_all(GTK_TREE_VIEW(GUI.tviewProcVar))
  'gtk_tree_view_expand_all(GTK_TREE_VIEW(GUI.tviewProcs))

  '' example: expand to a certain row of the tree view
  'VAR path = gtk_tree_path_new_from_string("0:2")
  'gtk_tree_view_expand_to_path(GTK_TREE_VIEW(GUI.tviewWatch), path)
  'gtk_tree_path_free(path)

  'VAR model = GTK_TREE_MODEL(stores(1))
  'VAR store = GTK_TREE_STORE(stores(1))

  'gtk_tree_model_get_iter_from_string(model, @iter(0), "0:1")
  'gtk_tree_store_set(store, @iter(0), 1, TRUE, -1)

  'gtk_tree_model_get_iter_from_string(model, @iter(0), "1")
  'gtk_tree_store_set(store, @iter(0), 1, TRUE, -1)

  'gtk_tree_model_get_iter_from_string(model, @iter(0), "1:0")
  'gtk_tree_store_set(store, @iter(0), 1, TRUE, -1)
'END SCOPE


' here's an example on how to populate the list store(Memory dump)


'SUB list_column_visible CDECL(BYVAL P AS gpointer, BYVAL D AS gpointer)
  'DIM AS gint i
  'g_object_get(P, "sort-column-id", @i, NULL)
  'g_object_set(P, "visible", IIF(i <= D, TRUE, FALSE), NULL)
'END SUB

'SCOPE
  '' choose visible columns
  'VAR list = gtk_tree_view_get_columns(GTK_TREE_VIEW(GUI.lviewMemory))
  'g_list_foreach(list, @list_column_visible, CAST(gpointer, 8)) ' <= no of columns (1 to 16)
  'g_list_free(list)

  '' populate the list store
  'VAR store = GTK_LIST_STORE(GUI.lstoreMemory)
  'gtk_list_store_clear(store) '                          empty the store
  'DIM AS GtkTreeIter iter '       one iterator, list store has one level
  'FOR r AS LONG = 0 TO 15 '                                     all rows
    'VAR t = r * 16

    'gtk_list_store_append(store, @iter)
    'gtk_list_store_set(store, @iter _
      ', 0, STR(r) _ '  column 0=index, only once if index doesn't change
      ', 1, HEX(t) _ '                                           cloumn 1
      ', 2, HEX(t + 1) _ '                                       cloumn 2
      ', 3, HEX(t + 2) _'                                             ...
      ', 4, HEX(t + 3) _
      ', 5, HEX(t + 4) _
      ', 6, HEX(t + 5) _
      ', 7, HEX(t + 6) _
      ', 8, HEX(t + 7) _
      ', -1) '                                  parameter list terminator
  'NEXT
'END SCOPE

' here's an example for a non-modal message dialog (like accesviol.jpg)
SUB access_viol( _
    BYVAL Adr AS gint _
  , BYVAL Fnam AS ZSTRING PTR _
  , BYVAL Proc AS ZSTRING PTR _
  , BYVAL Lin_ AS gint _
  , BYVAL Text AS ZSTRING PTR _
  )

  VAR dia = gtk_message_dialog_new_with_markup(GTK_WINDOW(GUI.window1) _
    , GTK_DIALOG_MODAL OR GTK_DIALOG_DESTROY_WITH_PARENT _
    , GTK_MESSAGE_WARNING _
    , GTK_BUTTONS_YES_NO _
    , ( _
      *__(!"TRYING TO WRITE AT ADR: <b>%d</b>\n") _
    & *__(!"Possible error on this line but not SURE\n\n") _
    & *__(!"<i>File</i>: <b>%s</b>\n") _
    & *__(!"<i>Proc</i>: <b>%s</b>\n") _
    & *__(!"<i>Line</i>: <b>%d</b> (selected and put in red)\n") _
    & *__(!"<b>%s</b>\n\n") _
    & *__(!"Try to continue ? (if yes change value and/or use [M]odify execution)\n") _
    ) _
    , Adr _
    , Fnam _
    , Proc _
    , Lin_ _
    , Text _
    , NULL)

  IF GTK_RESPONSE_YES = gtk_dialog_run(GTK_DIALOG(dia)) THEN
    ?*__("==> YES selected")
  ELSE
    ?*__("==> NO selected")
  END IF
  gtk_widget_destroy(dia)
END SUB