GDBCommandResult.st
changeset 73 f5fe22f56f10
parent 20 76ac209277a7
child 78 c24e7d8bc881
equal deleted inserted replaced
72:eb4eea3ebf4c 73:f5fe22f56f10
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "{ Package: 'jv:libgdbs' }"
     3 "{ Package: 'jv:libgdbs' }"
     2 
     4 
       
     5 "{ NameSpace: Smalltalk }"
       
     6 
     3 GDBObject subclass:#GDBCommandResult
     7 GDBObject subclass:#GDBCommandResult
     4 	instanceVariableNames:'command status'
     8 	instanceVariableNames:'command status value'
     5 	classVariableNames:''
     9 	classVariableNames:''
     6 	poolDictionaries:''
    10 	poolDictionaries:''
     7 	category:'GDB-Core-Commands'
    11 	category:'GDB-Core-Commands'
     8 !
    12 !
     9 
    13 
    22     ^ status
    26     ^ status
    23 !
    27 !
    24 
    28 
    25 status:something
    29 status:something
    26     status := something.
    30     status := something.
       
    31 !
       
    32 
       
    33 value
       
    34     "Returns a command result value as GDB object or nil, if
       
    35      command result is just a set of properties. In that case,
       
    36      use #propertyAt: to query individual property values."
       
    37     ^ value
       
    38 
       
    39     "Modified (comment): / 19-03-2015 / 08:19:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    27 ! !
    40 ! !
    28 
    41 
    29 !GDBCommandResult methodsFor:'accessing-properties'!
    42 !GDBCommandResult methodsFor:'accessing-properties'!
    30 
    43 
    31 properties
    44 properties
    39 
    52 
    40     "Created: / 31-05-2014 / 00:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    53     "Created: / 31-05-2014 / 00:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    41     "Modified: / 20-06-2014 / 09:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    54     "Modified: / 20-06-2014 / 09:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    42 !
    55 !
    43 
    56 
    44 propertyAt: name put: value
    57 propertyAt: name put: val
    45     ^ GDBObject setProperty: name of: self to: value
    58     ^ GDBObject setProperty: name of: self to: val
    46 
    59 
    47     "Created: / 31-05-2014 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    60     "Created: / 31-05-2014 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    48     "Modified: / 20-06-2014 / 09:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    61     "Modified: / 20-06-2014 / 09:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    49 ! !
    62 ! !
    50 
    63