fbdbg  3.0
FreeBASIC Debugger
actions.bas
Go to the documentation of this file.
1 
13 
14 
15 
20 CONSTRUCTOR ActionsUDT()
21  WITH GUI
22 '' get the actions from the ui file
23  act_step = GTK_ACTION(gtk_builder_get_object(.XML, "action002"))
24  act_step_over = GTK_ACTION(gtk_builder_get_object(.XML, "action003"))
25  act_step_start = GTK_ACTION(gtk_builder_get_object(.XML, "action005"))
26  act_step_end = GTK_ACTION(gtk_builder_get_object(.XML, "action006"))
27  act_step_out = GTK_ACTION(gtk_builder_get_object(.XML, "action004"))
28  act_auto = GTK_ACTION(gtk_builder_get_object(.XML, "action011"))
29  act_run = GTK_ACTION(gtk_builder_get_object(.XML, "action007"))
30  act_fastrun = GTK_ACTION(gtk_builder_get_object(.XML, "action008"))
31  act_stop = GTK_ACTION(gtk_builder_get_object(.XML, "action009"))
32  act_runto = GTK_ACTION(gtk_builder_get_object(.XML, "action001"))
33  act_free = GTK_ACTION(gtk_builder_get_object(.XML, "action460"))
34  act_kill = GTK_ACTION(gtk_builder_get_object(.XML, "action010"))
35  act_exemod = GTK_ACTION(gtk_builder_get_object(.XML, "action013"))
36  act_minicmd = GTK_ACTION(gtk_builder_get_object(.XML, "action461"))
37 
38  act_stringshow = GTK_ACTION(gtk_builder_get_object(.XML, "action023"))
39  act_brkenable = GTK_ACTION(gtk_builder_get_object(.XML, "action416"))
40  act_dlllist = GTK_ACTION(gtk_builder_get_object(.XML, "action914"))
41  act_brkmanage = GTK_ACTION(gtk_builder_get_object(.XML, "action417"))
42  act_brkset = GTK_ACTION(gtk_builder_get_object(.XML, "action414"))
43  act_brktempset = GTK_ACTION(gtk_builder_get_object(.XML, "action415"))
44  act_bzexchange = GTK_ACTION(gtk_builder_get_object(.XML, "action109"))
45  act_bmknext = GTK_ACTION(gtk_builder_get_object(.XML, "action422"))
46  act_bmkprev = GTK_ACTION(gtk_builder_get_object(.XML, "action423"))
47  act_lineaddress = GTK_ACTION(gtk_builder_get_object(.XML, "action4250"))
48  act_lineasm = GTK_ACTION(gtk_builder_get_object(.XML, "action4251"))
49  act_procaddresses = GTK_ACTION(gtk_builder_get_object(.XML, "action508"))
50  act_procasm = GTK_ACTION(gtk_builder_get_object(.XML, "action027"))
51  act_procbacktrack = GTK_ACTION(gtk_builder_get_object(.XML, "action025"))
52  act_proccall = GTK_ACTION(gtk_builder_get_object(.XML, "action111"))
53  act_procchain = GTK_ACTION(gtk_builder_get_object(.XML, "action026"))
54  act_processlist = GTK_ACTION(gtk_builder_get_object(.XML, "action913"))
55  act_procfollow = GTK_ACTION(gtk_builder_get_object(.XML, "action203"))
56  act_procinvar = GTK_ACTION(gtk_builder_get_object(.XML, "action300"))
57  act_procnofollow = GTK_ACTION(gtk_builder_get_object(.XML, "action204"))
58  act_procsrcasm = GTK_ACTION(gtk_builder_get_object(.XML, "action4252"))
59  act_quickedit = GTK_ACTION(gtk_builder_get_object(.XML, "action906"))
60  act_wtch1 = GTK_ACTION(gtk_builder_get_object(.XML, "action307"))
61  act_wtch2 = GTK_ACTION(gtk_builder_get_object(.XML, "action308"))
62  act_wtch3 = GTK_ACTION(gtk_builder_get_object(.XML, "action309"))
63  act_wtch4 = GTK_ACTION(gtk_builder_get_object(.XML, "action310"))
64  act_wtchdel = GTK_ACTION(gtk_builder_get_object(.XML, "action311"))
65  act_wtchdellall = GTK_ACTION(gtk_builder_get_object(.XML, "action312"))
66  act_wtchnotrace = GTK_ACTION(gtk_builder_get_object(.XML, "action306"))
67  act_wtchtrace = GTK_ACTION(gtk_builder_get_object(.XML, "action305"))
68  act_automulti = GTK_ACTION(gtk_builder_get_object(.XML, "action012"))
69  act_varsrcshow = GTK_ACTION(gtk_builder_get_object(.XML, "action418"))
70  act_varsrcwtch = GTK_ACTION(gtk_builder_get_object(.XML, "action419"))
71  act_varwatched = GTK_ACTION(gtk_builder_get_object(.XML, "action1000"))
72  act_varwtchtrace = GTK_ACTION(gtk_builder_get_object(.XML, "action1001"))
73  act_threadcreate = GTK_ACTION(gtk_builder_get_object(.XML, "action502"))
74 act_threadcollapse = GTK_ACTION(gtk_builder_get_object(.XML, "action511"))
75  act_threadexpand = GTK_ACTION(gtk_builder_get_object(.XML, "action510"))
76  act_threadkill = GTK_ACTION(gtk_builder_get_object(.XML, "action509"))
77  act_threadline = GTK_ACTION(gtk_builder_get_object(.XML, "action501"))
78  act_threadlist = GTK_ACTION(gtk_builder_get_object(.XML, "action512"))
79  act_threadproc = GTK_ACTION(gtk_builder_get_object(.XML, "action503"))
80  act_threadselect = GTK_ACTION(gtk_builder_get_object(.XML, "action500"))
81  act_threadvar = GTK_ACTION(gtk_builder_get_object(.XML, "action504"))
82  act_tuto = GTK_ACTION(gtk_builder_get_object(.XML, "action904"))
83  act_varbrk = GTK_ACTION(gtk_builder_get_object(.XML, "action101"))
84  act_varcharpos = GTK_ACTION(gtk_builder_get_object(.XML, "action108"))
85  act_varclipall = GTK_ACTION(gtk_builder_get_object(.XML, "action1180"))
86  act_varclipsel = GTK_ACTION(gtk_builder_get_object(.XML, "action1181"))
87  act_varlistall = GTK_ACTION(gtk_builder_get_object(.XML, "action1170"))
88  act_varlistsel = GTK_ACTION(gtk_builder_get_object(.XML, "action1171"))
89  act_varderefdump = GTK_ACTION(gtk_builder_get_object(.XML, "action104"))
90  act_vardump = GTK_ACTION(gtk_builder_get_object(.XML, "action020"))
91  act_varedit = GTK_ACTION(gtk_builder_get_object(.XML, "action021"))
92  act_varexpand = GTK_ACTION(gtk_builder_get_object(.XML, "action022"))
93  act_varindex = GTK_ACTION(gtk_builder_get_object(.XML, "action102"))
94 
95 '' get the status bar labels from the ui file
96  SbarLab1 = GTK_LABEL(gtk_builder_get_object(.XML, "sbarlab1"))
97  SbarLab2 = GTK_LABEL(gtk_builder_get_object(.XML, "sbarlab2"))
98  SbarLab3 = GTK_LABEL(gtk_builder_get_object(.XML, "sbarlab3"))
99  SbarLab4 = GTK_LABEL(gtk_builder_get_object(.XML, "sbarlab4"))
100  SbarLab5 = GTK_LABEL(gtk_builder_get_object(.XML, "sbarlab5"))
101  END WITH
102 
103 
104 setState(RTOFF)
105 ?" CONSTRUCTOR ActionsUDT"
106 END CONSTRUCTOR
107 
108 
109 
118 Sub ActionsUDT.setState(BYVAL RunType AS INTEGER)
119  Dim As Integer flagall,flagstop
120  flagall=FALSE 'except for RTSTEP
121  flagstop=TRUE 'except for RTSTEP,RTEND,RTOFF
122  Select CASE AS CONST RunType
123  Case RTSTEP ' wait
124  flagall=TRUE
125  flagstop=FALSE
126  Message = *__("Waiting ") & *stoplibel(stopcode)
127  gtk_label_set_text(GTK_LABEL(SbarLab1), Message)
128  'statusthreadstr="Thread " & Str(thread(threadcur).id)
129  gtk_label_set_text(GTK_LABEL(SbarLab2), "Thread ...")
130  'statusfilestr=name_extract(source(proc(procsv).sr).shortname)
131  gtk_label_set_text(GTK_LABEL(SbarLab3), "Module ...")
132  'setlabel(statusproc,StrPtr(proc(procsv).nm))
133  gtk_label_set_text(GTK_LABEL(SbarLab4), "Proc ...")
134  'statustimerstr=Left(Str(fasttimer),10)
135  gtk_label_set_text(GTK_LABEL(SbarLab5), "Timer ...")
136  CASE RTRUN
137  gtk_label_set_text(GTK_LABEL(SbarLab1), "Running")
138  CASE RTFRUN
139  gtk_label_set_text(GTK_LABEL(SbarLab1), "FAST Running")
140  CASE RTFREE
141  gtk_label_set_text(GTK_LABEL(SbarLab1), "Released")
142  CASE RTEND
143  flagstop=FALSE
144  gtk_label_set_text(GTK_LABEL(SbarLab1), "Terminated")
145  Case RTOFF
146  flagstop=FALSE
147  gtk_label_set_text(GTK_LABEL(SbarLab1), "No program")
148  End Select
149 
150  gtk_action_set_sensitive(act_step,flagall)
151  gtk_action_set_sensitive(act_step_over,flagall)
152  gtk_action_set_sensitive(act_step_start,flagall)
153  gtk_action_set_sensitive(act_step_end,flagall)
154  gtk_action_set_sensitive(act_step_out,flagall)
155  gtk_action_set_sensitive(act_auto,flagall)
156  gtk_action_set_sensitive(act_run,flagall)
157  gtk_action_set_sensitive(act_fastrun,flagall)
158  gtk_action_set_sensitive(act_runto,flagall)
159  gtk_action_set_sensitive(act_free,flagall)
160  gtk_action_set_sensitive(act_kill,flagall)
161  gtk_action_set_sensitive(act_exemod,flagall)
162  gtk_action_set_sensitive(act_stringshow,flagall)
163  gtk_action_set_sensitive(act_brkenable,flagall)
164  gtk_action_set_sensitive(act_dlllist,flagall)
165  If brknb Then gtk_action_set_sensitive(act_brkmanage,flagall)
166  gtk_action_set_sensitive(act_brkset,flagall)
167  gtk_action_set_sensitive(act_brktempset,flagall)
168  gtk_action_set_sensitive(act_bzexchange,flagall)
169  If bmkcpt Then
170  gtk_action_set_sensitive(act_bmknext,flagall)
171  gtk_action_set_sensitive(act_bmkprev,flagall)
172  EndIf
173  gtk_action_set_sensitive(act_lineaddress,flagall)
174  gtk_action_set_sensitive(act_lineasm,flagall)
175  gtk_action_set_sensitive(act_procaddresses,flagall)
176  gtk_action_set_sensitive(act_procasm,flagall)
177  gtk_action_set_sensitive(act_procbacktrack,flagall)
178  gtk_action_set_sensitive(act_proccall,flagall)
179  gtk_action_set_sensitive(act_procchain,flagall)
180  gtk_action_set_sensitive(act_processlist,flagall)
181  gtk_action_set_sensitive(act_procfollow,flagall)
182  gtk_action_set_sensitive(act_procinvar,flagall)
183  gtk_action_set_sensitive(act_procnofollow,flagall)
184  gtk_action_set_sensitive(act_procsrcasm,flagall)
185  gtk_action_set_sensitive(act_quickedit,flagall)
186  If wtchcpt Then
187  gtk_action_set_sensitive(act_wtch1,flagall)
188  gtk_action_set_sensitive(act_wtch2,flagall)
189  gtk_action_set_sensitive(act_wtch3,flagall)
190  gtk_action_set_sensitive(act_wtch4,flagall)
191  gtk_action_set_sensitive(act_wtchdel,flagall)
192  gtk_action_set_sensitive(act_wtchdellall,flagall)
193  gtk_action_set_sensitive(act_wtchnotrace,flagall)
194  gtk_action_set_sensitive(act_wtchtrace,flagall)
195  EndIf
196  gtk_action_set_sensitive(act_automulti,flagall)
197  gtk_action_set_sensitive(act_varsrcshow,flagall)
198  gtk_action_set_sensitive(act_varsrcwtch,flagall)
199  gtk_action_set_sensitive(act_varwatched,flagall)
200  gtk_action_set_sensitive(act_varwtchtrace,flagall)
201  gtk_action_set_sensitive(act_threadcreate,flagall)
202  gtk_action_set_sensitive(act_threadexpand,flagall)
203  gtk_action_set_sensitive(act_threadkill,flagall)
204  gtk_action_set_sensitive(act_threadline,flagall)
205  gtk_action_set_sensitive(act_threadlist,flagall)
206  gtk_action_set_sensitive(act_threadproc,flagall)
207  gtk_action_set_sensitive(act_threadselect,flagall)
208  gtk_action_set_sensitive(act_threadvar,flagall)
209  gtk_action_set_sensitive(act_tuto,flagall)
210  gtk_action_set_sensitive(act_varbrk,flagall)
211  gtk_action_set_sensitive(act_varcharpos,flagall)
212  gtk_action_set_sensitive(act_varclipall,flagall)
213  gtk_action_set_sensitive(act_varclipsel,flagall)
214  gtk_action_set_sensitive(act_varderefdump,flagall)
215  gtk_action_set_sensitive(act_vardump,flagall)
216  gtk_action_set_sensitive(act_varedit,flagall)
217  gtk_action_set_sensitive(act_varexpand,flagall)
218  gtk_action_set_sensitive(act_varindex,flagall)
219  gtk_action_set_sensitive(act_varlistall,flagall)
220  gtk_action_set_sensitive(act_varlistsel,flagall)
221  'different action in case RTSTEP, RTOFF, RTEND
222  gtk_action_set_sensitive(act_stop, flagstop)
223 End Sub
224 
225 DIM SHARED AS ActionsUDT PTR ACT
226