GDBLocalProcess.st
changeset 185 4e1be69b39ce
parent 164 a16705f64a64
child 193 2aa0074479d9
--- a/GDBLocalProcess.st	Tue Mar 26 11:10:19 2019 +0000
+++ b/GDBLocalProcess.st	Tue Apr 23 13:45:37 2019 +0100
@@ -21,7 +21,7 @@
 "{ NameSpace: Smalltalk }"
 
 GDBProcess subclass:#GDBLocalProcess
-	instanceVariableNames:'pid'
+	instanceVariableNames:'command pid'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'GDB-Private'
@@ -101,6 +101,12 @@
 
 !GDBLocalProcess methodsFor:'accessing'!
 
+command
+    ^ command
+
+    "Created: / 27-03-2019 / 09:46:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 id
     "Return a string identification of this GDBProcess. 
      Used for debugging purposes only."
@@ -122,15 +128,15 @@
     "Modified: / 12-12-2018 / 22:17:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-initializeWithCommand: command
-    "Initializes itself using `command` string to launch GDB. 
-     If `command` is nil, default configured command is used
+initializeWithCommand: aString
+    "Initializes itself using  given command (`aString`) to launch GDB. 
+     If `aString` is nil, default configured command is used
      (See GDBProcess class >> gdbExecutable)"
 
     self subclassResponsibility
 
     "Created: / 12-12-2018 / 20:11:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 12-12-2018 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 27-03-2019 / 08:31:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 release
@@ -205,3 +211,11 @@
     "Modified (comment): / 17-10-2018 / 22:30:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBLocalProcess methodsFor:'testing'!
+
+isLocal
+    ^ true
+
+    "Created: / 27-03-2019 / 09:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+