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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 VDBModelPresenter subclass:#VDBVariablePresenter

     6 	instanceVariableNames:'variable'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'VDB-Presentation'

    10 !

    11 

    12 !VDBVariablePresenter methodsFor:'accessing'!

    13 

    14 label

    15     ^ variable name

    16 

    17     "Created: / 27-02-2015 / 15:57:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    18 !

    19 

    20 variable

    21     ^ variable

    22 ! !

    23 

    24 !VDBVariablePresenter methodsFor:'initialization'!

    25 

    26 setVariable: aGDBVariable

    27     variable := aGDBVariable

    28 

    29     "Created: / 27-02-2015 / 16:00:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    30 ! !

    31