fbdbg  3.0
FreeBASIC Debugger
menu_tools.bas
Go to the documentation of this file.
1 
6 
7 
8 '' act_Settings is located in settings.bas
9 
10 SUB act_compinfo CDECL ALIAS "act_compinfo" ( _
11  BYVAL action AS GtkAction PTR, _
12  BYVAL user_data AS gpointer) EXPORT
13 
14 ' place your source code here / eigenen Quelltext hier einfuegen
15 ?" --> callback act_compinfo, ToDo: insert code"
16 
17 END SUB
18 
19 
20 SUB act_help CDECL ALIAS "act_help" ( _
21  BYVAL action AS GtkAction PTR, _
22  BYVAL user_data AS gpointer) EXPORT
23 
24 ?" --> callback act_help"
25 
26 END SUB
27 
28 
29 SUB act_tuto CDECL ALIAS "act_tuto" ( _
30  BYVAL action AS GtkAction PTR, _
31  BYVAL user_data AS gpointer) EXPORT
32 
33 ' place your source code here / eigenen Quelltext hier einfuegen
34 ?" --> callback act_tuto, ToDo: insert code"
35 
36 END SUB
37 
38 
39 SUB act_idelaunch CDECL ALIAS "act_idelaunch" ( _
40  BYVAL action AS GtkAction PTR, _
41  BYVAL user_data AS gpointer) EXPORT
42 
43 ' place your source code here / eigenen Quelltext hier einfuegen
44 ?" --> callback act_idelaunch, ToDo: insert code"
45 
46 END SUB
47 
48 
49 SUB act_quickedit CDECL ALIAS "act_quickedit" ( _
50  BYVAL action AS GtkAction PTR, _
51  BYVAL user_data AS gpointer) EXPORT
52 
53 ' place your source code here / eigenen Quelltext hier einfuegen
54 ?" --> callback act_quickedit, ToDo: insert code"
55 
56 END SUB
57 
58 
59 SUB act_compnrun CDECL ALIAS "act_compnrun" ( _
60  BYVAL action AS GtkAction PTR, _
61  BYVAL user_data AS gpointer) EXPORT
62 
63 ' place your source code here / eigenen Quelltext hier einfuegen
64 ?" --> callback act_compnrun, ToDo: insert code"
65 
66 END SUB
67 
68 
69 SUB act_notescopy CDECL ALIAS "act_notescopy" ( _
70  BYVAL action AS GtkAction PTR, _
71  BYVAL user_data AS gpointer) EXPORT
72 
73 ' place your source code here / eigenen Quelltext hier einfuegen
74 ?" --> callback act_notescopy, ToDo: insert code"
75 
76 END SUB
77 
78 
79 SUB act_logshow CDECL ALIAS "act_logshow" ( _
80  BYVAL action AS GtkAction PTR, _
81  BYVAL user_data AS gpointer) EXPORT
82 
83 ' place your source code here / eigenen Quelltext hier einfuegen
84 ?" --> callback act_logshow, ToDo: insert code"
85 
86 END SUB
87 
88 
89 SUB act_loghide CDECL ALIAS "act_loghide" ( _
90  BYVAL action AS GtkAction PTR, _
91  BYVAL user_data AS gpointer) EXPORT
92 
93 ' place your source code here / eigenen Quelltext hier einfuegen
94 ?" --> callback act_loghide, ToDo: insert code"
95 
96 END SUB
97 
98 
99 SUB act_logdel CDECL ALIAS "act_logdel" ( _
100  BYVAL action AS GtkAction PTR, _
101  BYVAL user_data AS gpointer) EXPORT
102 
103 ' place your source code here / eigenen Quelltext hier einfuegen
104 ?" --> callback act_logdel, ToDo: insert code"
105 
106 END SUB
107 
108 
109 SUB act_enumlist CDECL ALIAS "act_enumlist" ( _
110  BYVAL action AS GtkAction PTR, _
111  BYVAL user_data AS gpointer) EXPORT
112 
113 ' place your source code here / eigenen Quelltext hier einfuegen
114 ?" --> callback act_enumlist, ToDo: insert code"
115 
116 END SUB
117 
118 
119 SUB act_processlist CDECL ALIAS "act_processlist" ( _
120  BYVAL action AS GtkAction PTR, _
121  BYVAL user_data AS gpointer) EXPORT
122 
123 ' place your source code here / eigenen Quelltext hier einfuegen
124 ?" --> callback act_processlist, ToDo: insert code"
125 
126 XPD->addXpd(@fillExpandTree, NULL)
127 END SUB
128 
129 
130 SUB act_dlllist CDECL ALIAS "act_dlllist" ( _
131  BYVAL action AS GtkAction PTR, _
132  BYVAL user_data AS gpointer) EXPORT
133 
134 ' place your source code here / eigenen Quelltext hier einfuegen
135 ?" --> callback act_dlllist, ToDo: insert code"
136 
137 END SUB
138 
139 
140 SUB act_winmsg CDECL ALIAS "act_winmsg" ( _
141  BYVAL action AS GtkAction PTR, _
142  BYVAL user_data AS gpointer) EXPORT
143 
144 ' place your source code here / eigenen Quelltext hier einfuegen
145 ?" --> callback act_winmsg, ToDo: insert code"
146 
147 END SUB
148 
149 
150 
158 SUB on_hdob_entry_changed CDECL( _
159  BYVAL Entry AS GtkEntry PTR _
160  , BYVAL Label AS GtkLabel PTR)
161 
162 ?" HÖR: ";*gtk_entry_get_text(Entry)
163  VAR num = VALLNG(*gtk_entry_get_text(Entry)) _
164  , txt = g_strdup_printf(!"%s\n%s\n%s\n%s"_
165  , HEX(num) _
166  , STR(num) _
167  , OCT(num) _
168  , BIN(num) _
169  , NULL)
170  gtk_label_set_text(Label, txt)
171  g_free(txt)
172 END SUB
173 
174 
175 
185 FUNCTION on_hdob_entry_key CDECL( _
186  BYVAL Entry AS GtkWidget PTR _
187  , BYVAL Event AS GdkEvent PTR _
188  , BYVAL user_data AS gpointer) AS gboolean
189 
190  WITH *CAST(GdkEventKey PTR, Event)
191  IF .state - FIX_GDKEVENT_STATE <> GDK_CONTROL_MASK THEN RETURN FALSE
192 
193  VAR num = VALLNG(*gtk_entry_get_text(GTK_ENTRY(Entry))) _
194  , txt = ""
195  SELECT CASE AS CONST .keyval
196  CASE GDK_KEY_m : RETURN true
197  CASE GDK_KEY_h : txt = "&h" & HEX(num)
198  CASE GDK_KEY_d : txt = STR(num)
199  CASE GDK_KEY_o : txt = "&o" & OCT(num)
200  CASE GDK_KEY_b : txt = "&b" & BIN(num)
201  CASE ELSE : RETURN FALSE
202  END SELECT : gtk_entry_set_text(GTK_ENTRY(Entry), txt) : RETURN TRUE
203  END WITH
204 END FUNCTION
205 
206 
207 
217 SUB act_bdohtrans CDECL ALIAS "act_bdohtrans" ( _
218  BYVAL action AS GtkAction PTR, _
219  BYVAL user_data AS gpointer) EXPORT
220 
221  VAR dia = gtk_dialog_new_with_buttons( _
222  *__("HEX/DEC/OCT/BIN") _
223  , GTK_WINDOW(GUI.window1) _
224  , GTK_DIALOG_DESTROY_WITH_PARENT _
225  , *__("Cancel"), GTK_RESPONSE_CANCEL _
226  , NULL)
227  VAR cont = gtk_dialog_get_content_area(GTK_DIALOG(dia))
228 
229  /' Create a label for header line '/
230  VAR tlabel = gtk_label_new(*__(!"Value in hexadecimal, decimal, octal and binary"))
231  gtk_box_pack_start(GTK_BOX(cont), tlabel, TRUE, TRUE, 0)
232 
233  /' Create a label for variable values '/
234  VAR llabel = gtk_label_new(NULL)
235  gtk_label_set_justify(GTK_LABEL(llabel), GTK_JUSTIFY_RIGHT)
236  gtk_misc_set_alignment(GTK_MISC(llabel), 1., .0)
237 
238  /' Create GtkEntry '/
239  VAR entry = gtk_entry_new()
240  gtk_entry_set_alignment(GTK_ENTRY(entry), 1.)
241 
242  /' Create a label for types '/
243  VAR rlabel = gtk_label_new(NULL)
244  gtk_label_set_markup(GTK_LABEL(rlabel), !"<i><u>H</u>ex \n<u>D</u>ec\n<u>O</u>ct\n<u>B</u>in</i>")
245  gtk_label_set_mnemonic_widget(GTK_LABEL(rlabel), entry)
246  /' Create a hbox container '/
247  VAR hbox = gtk_hbox_new(FALSE, 5)
248  /' Insert value label in GtkHBox '/
249  gtk_box_pack_start(GTK_BOX(hbox), llabel, TRUE, TRUE, 0)
250  /' Insert types label in GtkHBox '/
251  gtk_box_pack_start(GTK_BOX(hbox), rlabel, FALSE, TRUE, 0)
252  /' Insert GtkHBox in dialog contents '/
253  gtk_box_pack_start(GTK_BOX(cont), hbox, FALSE, TRUE, 0)
254 
255  /' Insert GtkEntry in GtkVBox '/
256  gtk_box_pack_start(GTK_BOX(cont), entry, FALSE, FALSE, 0)
257  /' Update the GtkLabel on changes in GtkEntry '/
258  g_signal_connect(G_OBJECT(entry), "changed" _
259  , G_CALLBACK(@on_hdob_entry_changed), GTK_LABEL(llabel))
260  g_signal_connect(G_OBJECT(entry), "key-press-event" _
261  , G_CALLBACK(@on_hdob_entry_key), GTK_LABEL(llabel))
262  /' Set initial value (emits changed signal) '/
263  gtk_entry_set_text(GTK_ENTRY(entry), "0")
264  /' End dialog on Return/Enter key '/
265  g_signal_connect_swapped(G_OBJECT(entry), "activate" _
266  , G_CALLBACK(@gtk_widget_destroy), dia)
267  /' End dialog on button clicked '/
268  g_signal_connect(G_OBJECT(dia), "response" _
269  , G_CALLBACK(@gtk_widget_destroy), dia)
270 
271  gtk_widget_show_all(dia)
272 END SUB
273 
274 
275 SUB act_fasttimer CDECL ALIAS "act_fasttimer" ( _
276  BYVAL action AS GtkAction PTR, _
277  BYVAL user_data AS gpointer) EXPORT
278 
279 ' place your source code here / eigenen Quelltext hier einfuegen
280 ?" --> callback act_fasttimer, ToDo: insert code"
281 
282 END SUB
283 
284 
285 SUB act_jitset CDECL ALIAS "act_jitset" ( _
286  BYVAL action AS GtkAction PTR, _
287  BYVAL user_data AS gpointer) EXPORT
288 
289 ' place your source code here / eigenen Quelltext hier einfuegen
290 ?" --> callback act_jitset, ToDo: insert code"
291 
292 END SUB
293 
294