1 "{ Package: 'jv:libgdbs' }"

     2 

     3 Object subclass:#GDB

     4 	instanceVariableNames:'controller'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'GDB-Core'

     8 !

     9 

    10 

    11 !GDB class methodsFor:'instance creation'!

    12 

    13 new

    14     "return an initialized instance"

    15 

    16     ^ self basicNew initialize.

    17 ! !

    18 

    19 !GDB methodsFor:'finalization'!

    20 

    21 finalize

    22     self release.

    23 

    24     "Created: / 26-05-2014 / 21:23:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    25 ! !

    26 

    27 !GDB methodsFor:'initialize & release'!

    28 

    29 initialize

    30     controller := GDBLauncher startGDB.

    31     self registerForFinalization.

    32 

    33     "Created: / 26-05-2014 / 21:23:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    34 !

    35 

    36 release

    37     controller notNil ifTrue:[ 

    38         controller release.

    39         controller := nil.

    40     ].

    41 

    42     "Created: / 26-05-2014 / 21:24:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    43 ! !

    44 

    45 !GDB class methodsFor:'documentation'!

    46 

    47 version_HG

    48 

    49     ^ '$Changeset: <not expanded> $'

    50 ! !

    51