GDBBreakpointEvent.st
changeset 89 ba62d486014f
parent 78 c24e7d8bc881
child 91 472a4841a8b6
equal deleted inserted replaced
88:90c50fd6374c 89:ba62d486014f
    10 !
    10 !
    11 
    11 
    12 !GDBBreakpointEvent class methodsFor:'accessing - GDB value descriptors'!
    12 !GDBBreakpointEvent class methodsFor:'accessing - GDB value descriptors'!
    13 
    13 
    14 description
    14 description
    15     ^ (super description)
    15     | desc bkpt |
    16         define:#bkpt as:GDBBreakpoint;
    16 
    17         yourself
    17     desc := super description.
       
    18     bkpt := desc define:#bkpt as:Array of: GDBBreakpoint.
       
    19     bkpt allowOmmitedBrackets: true.
       
    20     ^ desc
    18 
    21 
    19     "Created: / 06-09-2014 / 01:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    22     "Created: / 06-09-2014 / 01:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    23     "Modified: / 12-11-2017 / 17:21:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    20 ! !
    24 ! !
    21 
    25 
    22 !GDBBreakpointEvent methodsFor:'accessing'!
    26 !GDBBreakpointEvent methodsFor:'accessing'!
    23 
    27 
    24 breakpoint
    28 breakpoints
    25     ^ bkpt
    29     ^ bkpt
    26 
    30 
    27     "Created: / 06-09-2014 / 01:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    31     "Created: / 12-11-2017 / 20:16:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    28 ! !
    32 ! !
    29 
    33 
       
    34 !GDBBreakpointEvent methodsFor:'accessing-properties'!
       
    35 
       
    36 _bkpt: aCollection
       
    37     bkpt := aCollection
       
    38 
       
    39     "Created: / 12-11-2017 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    40     "Modified: / 12-11-2017 / 20:33:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    41 ! !
       
    42