VDBAbstractApplication.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 10 Jun 2014 17:46:14 +0100
changeset 5 fac6e83fd5c0
parent 1 09b3ef5606e7
child 12 b17ffe0604f0
permissions -rw-r--r--
Implemented VDBTabbingContainer. Changed main window to show three tabs by default: * debugger console * inferior console * event log.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'jv:vdb' }"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
ApplicationModel subclass:#VDBAbstractApplication
5
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
     4
	instanceVariableNames:'debuggerHolder debugger titleHolder'
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'VDB-UI-Abstract'
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!VDBAbstractApplication class methodsFor:'interface opening'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
openFor: debugger
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
    self new 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
        debugger: debugger;
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
        open.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    "Created: / 06-06-2014 / 21:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
!VDBAbstractApplication class methodsFor:'plugin spec'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
aspectSelectors
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
    ^ #(
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
        debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
    )
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
    "Created: / 06-06-2014 / 21:47:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
1
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    30
!VDBAbstractApplication class methodsFor:'testing'!
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    31
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    32
isAbstract
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    33
    ^ self == VDBAbstractApplication
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    34
! !
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 0
diff changeset
    35
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
!VDBAbstractApplication methodsFor:'acessing'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
debugger
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
    ^ debugger
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
    "Created: / 06-06-2014 / 21:37:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
debugger: dbg
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
    self debuggerHolder value: dbg
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
    "Created: / 06-06-2014 / 21:36:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    48
!
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    49
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    50
title
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    51
    ^ self titleHolder value
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    52
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    53
    "Created: / 10-06-2014 / 14:53:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    54
!
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    55
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    56
title: aString
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    57
    self titleHolder value: aString
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    58
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    59
    "Created: / 10-06-2014 / 14:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
!VDBAbstractApplication methodsFor:'aspects'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
    "return/create the 'debuggerHolder' value holder (automatically generated)"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
    debuggerHolder isNil ifTrue:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
        debuggerHolder := ValueHolder new.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
        debuggerHolder addDependent:self.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
    ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
    ^ debuggerHolder
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
debuggerHolder:aValueModel
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
    "set the 'debuggerHolder' value holder (automatically generated)"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
    |oldValue newValue|
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
    debuggerHolder notNil ifTrue:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
        oldValue := debuggerHolder value.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
        debuggerHolder removeDependent:self.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
    ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
    debuggerHolder := aValueModel.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
    debuggerHolder notNil ifTrue:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
        debuggerHolder addDependent:self.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
    ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
    newValue := debuggerHolder value.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
    oldValue ~~ newValue ifTrue:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
        self update:#value with:newValue from:debuggerHolder.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
    ].
5
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    91
!
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    92
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    93
titleHolder
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    94
    "return/create the 'titleHolder' value holder (automatically generated)"
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    95
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    96
    titleHolder isNil ifTrue:[
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    97
        titleHolder := ValueHolder with: ((self class windowSpec at: 5) at: 3)
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    98
    ].
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    99
    ^ titleHolder
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   100
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   101
    "Modified: / 10-06-2014 / 14:50:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
!VDBAbstractApplication methodsFor:'change & update'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
update:something with:aParameter from:changedObject
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
    "Invoked when an object that I depend upon sends a change notification."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
    changedObject == debuggerHolder ifTrue:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
        debuggerHolder value == debugger ifFalse:[
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
            debugger notNil ifTrue:[ 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
                self unsubscribe.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
            ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
            debugger := debuggerHolder value.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
            debugger notNil ifTrue:[ 
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
                self subscribe.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
            ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
        ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
        ^ self.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
    ].
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
    super update:something with:aParameter from:changedObject
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
    "Modified: / 06-06-2014 / 22:09:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   125
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   126
!VDBAbstractApplication methodsFor:'dependents access'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   127
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   128
release
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   129
    "remove all dependencies from the receiver"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   131
    super release.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   132
    self unsubscribe
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   133
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   134
    "Created: / 06-06-2014 / 22:13:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   135
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   136
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   137
!VDBAbstractApplication methodsFor:'initialization & release'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   138
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   139
subscribe   
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   140
    "Register for debugger events. To be overrided by subclasses"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   141
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   142
    "Created: / 06-06-2014 / 21:26:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   143
!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   144
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   145
unsubscribe
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   146
    "Unsubscribe myself fo debugger events"
5
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   147
    debugger notNil ifTrue:[ 
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   148
        debugger announcer unsubscribe: self.
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   149
    ].
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   150
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   151
    "Created: / 06-06-2014 / 21:26:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
fac6e83fd5c0 Implemented VDBTabbingContainer.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   152
    "Modified: / 10-06-2014 / 14:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   153
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   154
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   155
!VDBAbstractApplication methodsFor:'startup & release'!
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   156
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   157
releaseAsSubCanvas
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   158
    "a subcanvas is closed or switching to a new application.
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   159
     Can be redefined to perform a self release in this case."
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   160
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   161
    self release
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   162
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   163
    "Created: / 06-06-2014 / 22:12:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   164
! !
33a652015a1a Initial commit.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   165