gui.bi

Go to the documentation of this file.

'' wired stuff to fix bugs

#IFDEF __FB_UNIX__

#DEFINE FIX_GDKEVENT_STATE 16

#ELSE

#DEFINE FIX_GDKEVENT_STATE 0



'' for GdkPixbuf-2.0.gir

#UNDEF gdk_pixbuf_new_from_file_at_size

#DEFINE gdk_pixbuf_new_from_file_at_size gdk_pixbuf_new_from_file_at_size_utf8



#undef g_filename_to_utf8

#define g_filename_to_utf8(_N_, XXX...) g_strdup(sadd(_N_))

EXTERN "C" LIB "gdk_pixbuf-2.0"

DECLARE FUNCTION gdk_pixbuf_new_from_file_at_size(BYVAL AS CONST char PTR, BYVAL AS gint /'int'/, BYVAL AS gint /'int'/, BYVAL AS GError PTR PTR) AS GdkPixbuf PTR

END EXTERN



#ENDIF

'' end wired stuff



'' to get removed (code in testing.bas)

declare 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 _

  )






TYPE GUIData

  AS GtkBuilder PTR XML 
  AS GObject PTR _

           window1 _ 
  ,  tstoreProcVar _ 
  ,    tstoreProcs _ 
  ,  tstoreThreads _ 
  ,    tstoreWatch _ 
  ,   lstoreMemory _ 
  ,   tviewProcVar _ 
  ,     tviewProcs _ 
  ,   tviewThreads _ 
  ,     tviewWatch _ 
  ,    lviewMemory _ 
  ,     butStopVar _ 
  ,         nbook2 _ 
  ,         watch1 _ 
  ,         watch2 _ 
  ,         watch3 _ 
  ,         watch4   
  ', comboBookmarks _ '*< The GObject PTR for the bookmarks combo box text

END TYPE







TYPE ActionsUDT ' source code in actions.bas

  AS GtkLabel PTR _

    SbarLab1 _ 
  , SbarLab2 _ 
  , SbarLab3 _ 
  , SbarLab4 _ 
  , SbarLab5   
  AS GtkAction PTR _

          act_step _ 
   , act_step_over _ 
  , act_step_start _ 
    , act_step_end _ 
    , act_step_out _ 
        , act_auto _ 
         , act_run _ 
     , act_fastrun _ 
        , act_stop _ 
       , act_runto _ 
        , act_free _ 
        , act_kill _ 
      , act_exemod _ 
   ,act_stringshow _ 
     ,act_brkenable _ 
,act_dlllist   _  
,act_brkmanage   _  
,act_brkset   _  
,act_brktempset   _  
,act_bzexchange   _  
,act_bmknext   _  
,act_bmkprev   _  
,act_lineaddress   _  
,act_lineasm   _  
,act_procaddresses   _  
,act_procasm   _  
,act_procbacktrack   _  
,act_proccall   _  
,act_procchain   _  
,act_processlist   _  
,act_procfollow   _  
,act_procinvar   _  
,act_procnofollow   _  
,act_procsrcasm   _  
,act_quickedit   _  
,act_wtch1   _  
,act_wtch2   _  
,act_wtch3   _  
,act_wtch4   _  
,act_wtchdel   _  
,act_wtchdellall   _  
,act_wtchnotrace   _  
,act_wtchtrace   _  
,act_automulti   _  
,act_varsrcshow   _  
,act_varsrcwtch   _  
,act_varwatched   _  
,act_varwtchtrace   _  
,act_threadcreate   _  
,act_threadcollapse   _  
,act_threadexpand   _  
,act_threadkill   _  
,act_threadline   _  
,act_threadlist   _  
,act_threadproc   _  
,act_threadselect   _  
,act_threadvar   _  
,act_tuto   _  
,act_varbrk   _  
,act_varcharpos   _  
,act_varclipall   _  
,act_varclipsel   _  
,act_varderefdump   _  
,act_vardump   _  
,act_varedit   _  
,act_varexpand   _  
,act_varindex   _  
,act_varlistall   _  
,act_varlistsel   _  
   , act_minicmd   




  AS STRING _

    Message    


  'ENUM

  '  RTSTEP '*< Run mode ...

  '  RTRUN  '*< Run mode ...

  '  RTFREE '*< Run mode ...

  '  RTFRUN '*< Run mode ...

  '  RTAUTO '*< Run mode ...

  '  RTEND  '*< Run mode ...

  'END ENUM



  DECLARE SUB setState(BYVAL AS INTEGER)

  DECLARE CONSTRUCTOR()

  'DECLARE DESTRUCTOR()

END TYPE







TYPE ExpandUdt ' source code in expand.bas

  AS STRING Xml

  AS GSList PTR List = NULL



  DECLARE CONSTRUCTOR()

  DECLARE SUB addXpd(BYVAL AS SUB CDECL(BYVAL AS GtkTreeStore PTR, BYVAL AS gpointer), BYVAL AS gpointer)

  DECLARE SUB destroyAll()

END TYPE







TYPE LOG_Udt ' source code in log_notes.bas

  AS STRING _

    Xml          
  AS GtkTextBuffer PTR _

    BufNotes _   
  , BufLogFile _ 
  , BufLogScreen 


  DECLARE CONSTRUCTOR()

  DECLARE SUB Notes(BYVAL AS gchar PTR = 0)

  DECLARE SUB add2Notes(BYVAL Txt AS gchar PTR = 0)

  'DECLARE SUB ScreenLog()

  DECLARE SUB FileLog(BYVAL AS gchar PTR)

END TYPE







TYPE SrcNotebook ' source code in source.bas

  AS gdouble _

    ScrPos    
  AS guint _

    Pages _   
  , BkMarks _ 
  , ScrLine _ 
  , LenCur    
  AS GObject PTR _

    MenuSrc _ 
  , BuffCur   
  AS GtkWidget PTR _

    ViewCur _ 
  , ScrWidg   
  AS GtkComboBoxText PTR _

    CBMarks   
  AS GtkNotebook PTR _

    NoteBok   
  AS GtkSourceMarkAttributes PTR _

    Attr0 _   
  , Attr1 _   
  , Attr2 _   
  , Attr3     
  AS GtkSourceStyleScheme PTR _

    Schema    
  AS GtkSourceStyleSchemeManager PTR _

    Manager    
  AS GtkSourceLanguage PTR _

    Lang      
  AS PangoFontDescription PTR _

    Font      
  AS STRING _

    LmPaths   


  DECLARE CONSTRUCTOR()

  DECLARE DESTRUCTOR()

  DECLARE PROPERTY ScrollPos(BYVAL AS gdouble)

  DECLARE PROPERTY SchemeID(BYVAL AS CONST gchar PTR)

  DECLARE PROPERTY FontID(BYVAL AS CONST gchar PTR)

  DECLARE FUNCTION addBas(BYVAL AS gchar PTR, BYVAL AS gchar PTR) AS GtkWidget PTR



  DECLARE FUNCTION getAttr(byval AS gchar ptr) AS GtkSourceMarkAttributes PTR

  DECLARE FUNCTION getBuffLine(byval as GtkTextBuffer ptr, byval as GtkTextIter ptr) AS string

  DECLARE SUB addBookmark(BYVAL AS gint, BYVAL AS GtkWidget PTR)

  DECLARE SUB delBookmark(BYVAL AS gint, BYVAL AS GtkWidget PTR)

  DECLARE SUB initCombo(BYVAL Txt as gchar ptr)



  DECLARE SUB changeMark(BYVAL AS gint, BYVAL AS GtkWidget PTR, BYREF AS STRING = "")

  DECLARE SUB scroll(BYVAL AS gint, BYVAL AS GtkWidget PTR, BYVAL AS guint32 = 1)

  DECLARE SUB settingsChanged()

  DECLARE SUB remove(BYVAL AS GtkWidget PTR)

  DECLARE SUB removeAll(BYVAL AS guint = 0)

END TYPE