AbstractFileApplicationNoteBookComponent.st
author Claus Gittinger <cg@exept.de>
Wed, 04 Aug 2004 20:00:18 +0200
changeset 5967 ff5e8356fcb7
parent 5737 c5a659e2c4c7
child 7105 215c0573cf42
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5140
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     1
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     2
 COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     3
              All Rights Reserved
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     4
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     5
 This software is furnished under a license and may be used
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     6
 only in accordance with the terms of that license and with the
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     8
 be provided or otherwise made available to, or used by, any
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
     9
 other person.  No title to or ownership of the software is
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    10
 hereby transferred.
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    11
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    12
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    13
"{ Package: 'stx:libtool' }"
321c1729db5b initial checkin
penk
parents:
diff changeset
    14
321c1729db5b initial checkin
penk
parents:
diff changeset
    15
ApplicationModel subclass:#AbstractFileApplicationNoteBookComponent
321c1729db5b initial checkin
penk
parents:
diff changeset
    16
	instanceVariableNames:'sameFileIndex item type notifyChannel'
321c1729db5b initial checkin
penk
parents:
diff changeset
    17
	classVariableNames:''
321c1729db5b initial checkin
penk
parents:
diff changeset
    18
	poolDictionaries:''
321c1729db5b initial checkin
penk
parents:
diff changeset
    19
	category:'Interface-Tools-File'
321c1729db5b initial checkin
penk
parents:
diff changeset
    20
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    21
5140
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    22
!AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    23
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    24
copyright
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    25
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    26
 COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    27
              All Rights Reserved
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    28
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    29
 This software is furnished under a license and may be used
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    30
 only in accordance with the terms of that license and with the
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    32
 be provided or otherwise made available to, or used by, any
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    33
 other person.  No title to or ownership of the software is
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    34
 hereby transferred.
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    35
"
5967
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    36
!
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    37
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    38
documentation
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    39
"
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    40
    [Author:]
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    41
        Christian Penk
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
    42
"
5140
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
    43
! !
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    44
321c1729db5b initial checkin
penk
parents:
diff changeset
    45
!AbstractFileApplicationNoteBookComponent class methodsFor:'defaults'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    46
321c1729db5b initial checkin
penk
parents:
diff changeset
    47
tabStringFor:aApplicationType
321c1729db5b initial checkin
penk
parents:
diff changeset
    48
321c1729db5b initial checkin
penk
parents:
diff changeset
    49
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
    50
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
    51
321c1729db5b initial checkin
penk
parents:
diff changeset
    52
!AbstractFileApplicationNoteBookComponent class methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    53
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
    54
canOpenItem:anItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    55
321c1729db5b initial checkin
penk
parents:
diff changeset
    56
"
321c1729db5b initial checkin
penk
parents:
diff changeset
    57
    example:
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
    58
    ^ (anItem suffix == 'cc')
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    59
"
321c1729db5b initial checkin
penk
parents:
diff changeset
    60
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
    61
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    62
321c1729db5b initial checkin
penk
parents:
diff changeset
    63
wantNewApplicationAnyway
321c1729db5b initial checkin
penk
parents:
diff changeset
    64
321c1729db5b initial checkin
penk
parents:
diff changeset
    65
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
    66
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
    67
321c1729db5b initial checkin
penk
parents:
diff changeset
    68
!AbstractFileApplicationNoteBookComponent methodsFor:'accessing'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    69
4529
134c48ecdef5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4523
diff changeset
    70
notify:msg
134c48ecdef5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4523
diff changeset
    71
    self notifyChannel value:msg
134c48ecdef5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4523
diff changeset
    72
!
134c48ecdef5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4523
diff changeset
    73
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    74
notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
    75
    notifyChannel isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
    76
        self masterApplication notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
    77
            notifyChannel := masterApplication notifyChannel.
321c1729db5b initial checkin
penk
parents:
diff changeset
    78
        ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
    79
            notifyChannel := ValueHolder with:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
    80
        ].
321c1729db5b initial checkin
penk
parents:
diff changeset
    81
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
    82
    ^ notifyChannel
321c1729db5b initial checkin
penk
parents:
diff changeset
    83
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    84
321c1729db5b initial checkin
penk
parents:
diff changeset
    85
sameFileIndex
321c1729db5b initial checkin
penk
parents:
diff changeset
    86
321c1729db5b initial checkin
penk
parents:
diff changeset
    87
    ^ sameFileIndex
321c1729db5b initial checkin
penk
parents:
diff changeset
    88
!
321c1729db5b initial checkin
penk
parents:
diff changeset
    89
321c1729db5b initial checkin
penk
parents:
diff changeset
    90
sameFileIndex:something
321c1729db5b initial checkin
penk
parents:
diff changeset
    91
321c1729db5b initial checkin
penk
parents:
diff changeset
    92
    sameFileIndex := something.
321c1729db5b initial checkin
penk
parents:
diff changeset
    93
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
    94
321c1729db5b initial checkin
penk
parents:
diff changeset
    95
!AbstractFileApplicationNoteBookComponent methodsFor:'actions'!
321c1729db5b initial checkin
penk
parents:
diff changeset
    96
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
    97
changeItem:anItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
    98
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
    99
    ^ self item:anItem.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   100
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   101
321c1729db5b initial checkin
penk
parents:
diff changeset
   102
doClose
321c1729db5b initial checkin
penk
parents:
diff changeset
   103
    |master|
321c1729db5b initial checkin
penk
parents:
diff changeset
   104
321c1729db5b initial checkin
penk
parents:
diff changeset
   105
    "/ tell the NoteBookApplication to close me
321c1729db5b initial checkin
penk
parents:
diff changeset
   106
    (master := self masterApplication) notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   107
        master closeSubCanvas:self.
3933
2e083e6e224f must send #release manually (to release processes)
Claus Gittinger <cg@exept.de>
parents: 3892
diff changeset
   108
        self release.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   109
    ] ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   110
        self closeRequest.
321c1729db5b initial checkin
penk
parents:
diff changeset
   111
    ].
3954
78e29a3ea4c1 next stage
penk
parents: 3933
diff changeset
   112
    ^ true
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   113
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   114
5120
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   115
!AbstractFileApplicationNoteBookComponent methodsFor:'aspects'!
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   116
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   117
cursorColLabelHolder
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   118
    ^ ''
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   119
!
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   120
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   121
cursorLineLabelHolder
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   122
    ^ ''
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   123
!
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   124
5528
54e3fbee2822 fileEncoding
Claus Gittinger <cg@exept.de>
parents: 5460
diff changeset
   125
fileEncodingHolder
5586
aba072239d9a default encoding
Claus Gittinger <cg@exept.de>
parents: 5528
diff changeset
   126
    ^ #'iso8859-1'
5528
54e3fbee2822 fileEncoding
Claus Gittinger <cg@exept.de>
parents: 5460
diff changeset
   127
!
54e3fbee2822 fileEncoding
Claus Gittinger <cg@exept.de>
parents: 5460
diff changeset
   128
5737
c5a659e2c4c7 added lockFileEncoding
Claus Gittinger <cg@exept.de>
parents: 5604
diff changeset
   129
lockFileEncodingHolder
c5a659e2c4c7 added lockFileEncoding
Claus Gittinger <cg@exept.de>
parents: 5604
diff changeset
   130
    ^ true
c5a659e2c4c7 added lockFileEncoding
Claus Gittinger <cg@exept.de>
parents: 5604
diff changeset
   131
!
c5a659e2c4c7 added lockFileEncoding
Claus Gittinger <cg@exept.de>
parents: 5604
diff changeset
   132
5120
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   133
modeLabelHolder
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   134
    ^ ''
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   135
! !
e4c15c9d82ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5010
diff changeset
   136
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   137
!AbstractFileApplicationNoteBookComponent methodsFor:'queries'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   138
321c1729db5b initial checkin
penk
parents:
diff changeset
   139
fileName
321c1729db5b initial checkin
penk
parents:
diff changeset
   140
321c1729db5b initial checkin
penk
parents:
diff changeset
   141
    item notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   142
        ^ item fileName.
321c1729db5b initial checkin
penk
parents:
diff changeset
   143
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   144
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   145
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   146
321c1729db5b initial checkin
penk
parents:
diff changeset
   147
getDirWithoutFileName:aFileName
321c1729db5b initial checkin
penk
parents:
diff changeset
   148
321c1729db5b initial checkin
penk
parents:
diff changeset
   149
    | dir |
321c1729db5b initial checkin
penk
parents:
diff changeset
   150
    aFileName isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   151
        ^ aFileName.    
321c1729db5b initial checkin
penk
parents:
diff changeset
   152
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   153
    dir := aFileName asFilename.
321c1729db5b initial checkin
penk
parents:
diff changeset
   154
    dir isDirectory ifFalse:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   155
        dir := dir directory.
321c1729db5b initial checkin
penk
parents:
diff changeset
   156
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   157
    ^ dir.
321c1729db5b initial checkin
penk
parents:
diff changeset
   158
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   159
321c1729db5b initial checkin
penk
parents:
diff changeset
   160
getTabString
321c1729db5b initial checkin
penk
parents:
diff changeset
   161
321c1729db5b initial checkin
penk
parents:
diff changeset
   162
" get the tab string from the application list on the class side "
321c1729db5b initial checkin
penk
parents:
diff changeset
   163
321c1729db5b initial checkin
penk
parents:
diff changeset
   164
    | stream string firstString endString|
321c1729db5b initial checkin
penk
parents:
diff changeset
   165
321c1729db5b initial checkin
penk
parents:
diff changeset
   166
    stream := WriteStream on:''.
321c1729db5b initial checkin
penk
parents:
diff changeset
   167
    firstString := self class tabStringFor:type.
321c1729db5b initial checkin
penk
parents:
diff changeset
   168
    firstString isNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   169
        "/ default take the class name
321c1729db5b initial checkin
penk
parents:
diff changeset
   170
        firstString := self className.
321c1729db5b initial checkin
penk
parents:
diff changeset
   171
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   172
    stream nextPutAll:firstString.
321c1729db5b initial checkin
penk
parents:
diff changeset
   173
    endString := self getTabStringEnd.
321c1729db5b initial checkin
penk
parents:
diff changeset
   174
    endString notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   175
        stream space.
321c1729db5b initial checkin
penk
parents:
diff changeset
   176
        stream nextPutAll:endString.
321c1729db5b initial checkin
penk
parents:
diff changeset
   177
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   178
    string := stream contents.
321c1729db5b initial checkin
penk
parents:
diff changeset
   179
    stream close.
321c1729db5b initial checkin
penk
parents:
diff changeset
   180
    ^ string.
321c1729db5b initial checkin
penk
parents:
diff changeset
   181
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   182
321c1729db5b initial checkin
penk
parents:
diff changeset
   183
getTabStringEnd
321c1729db5b initial checkin
penk
parents:
diff changeset
   184
321c1729db5b initial checkin
penk
parents:
diff changeset
   185
" get the tab string from the application list on the class side "
321c1729db5b initial checkin
penk
parents:
diff changeset
   186
5460
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   187
    | stream|
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   188
321c1729db5b initial checkin
penk
parents:
diff changeset
   189
    self item notNil ifTrue:[
321c1729db5b initial checkin
penk
parents:
diff changeset
   190
        stream := WriteStream on:''.
5460
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   191
        self type = #directoryDescription ifTrue:[
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   192
            stream nextPutAll:self fileName directory baseName.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   193
            stream space.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   194
            stream nextPut:$[.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   195
            stream nextPutAll:self fileName baseName.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   196
            stream nextPut:$].
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   197
        ] ifFalse:[
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   198
            stream nextPutAll:self fileName baseName.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   199
            stream space.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   200
            self sameFileIndex notNil ifTrue:[
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   201
                stream nextPutAll:self sameFileIndex asString.
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   202
            ].
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   203
        ].
5460
305f441da48a window label and tab string changed
penk
parents: 5140
diff changeset
   204
        ^ stream contents.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   205
    ].
321c1729db5b initial checkin
penk
parents:
diff changeset
   206
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   207
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   208
321c1729db5b initial checkin
penk
parents:
diff changeset
   209
isEmbeddedApplication
321c1729db5b initial checkin
penk
parents:
diff changeset
   210
321c1729db5b initial checkin
penk
parents:
diff changeset
   211
     ^ self masterApplication notNil
321c1729db5b initial checkin
penk
parents:
diff changeset
   212
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   213
321c1729db5b initial checkin
penk
parents:
diff changeset
   214
isModified
321c1729db5b initial checkin
penk
parents:
diff changeset
   215
321c1729db5b initial checkin
penk
parents:
diff changeset
   216
    ^ false
321c1729db5b initial checkin
penk
parents:
diff changeset
   217
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   218
4147
e00eefe3f8fd querie for isTextEditor added
penk
parents: 3954
diff changeset
   219
isTextEditor
e00eefe3f8fd querie for isTextEditor added
penk
parents: 3954
diff changeset
   220
e00eefe3f8fd querie for isTextEditor added
penk
parents: 3954
diff changeset
   221
    ^ false
e00eefe3f8fd querie for isTextEditor added
penk
parents: 3954
diff changeset
   222
!
e00eefe3f8fd querie for isTextEditor added
penk
parents: 3954
diff changeset
   223
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   224
item
321c1729db5b initial checkin
penk
parents:
diff changeset
   225
321c1729db5b initial checkin
penk
parents:
diff changeset
   226
    ^ item
321c1729db5b initial checkin
penk
parents:
diff changeset
   227
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   228
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
   229
item:anItem
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   230
5010
27aa6fa93dcd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4529
diff changeset
   231
    item := anItem.
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   232
    ^ true
321c1729db5b initial checkin
penk
parents:
diff changeset
   233
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   234
321c1729db5b initial checkin
penk
parents:
diff changeset
   235
presentation
321c1729db5b initial checkin
penk
parents:
diff changeset
   236
321c1729db5b initial checkin
penk
parents:
diff changeset
   237
    ^ nil
321c1729db5b initial checkin
penk
parents:
diff changeset
   238
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   239
321c1729db5b initial checkin
penk
parents:
diff changeset
   240
type
321c1729db5b initial checkin
penk
parents:
diff changeset
   241
321c1729db5b initial checkin
penk
parents:
diff changeset
   242
    ^ type
321c1729db5b initial checkin
penk
parents:
diff changeset
   243
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   244
321c1729db5b initial checkin
penk
parents:
diff changeset
   245
type:aType
321c1729db5b initial checkin
penk
parents:
diff changeset
   246
321c1729db5b initial checkin
penk
parents:
diff changeset
   247
    type := aType
321c1729db5b initial checkin
penk
parents:
diff changeset
   248
!
321c1729db5b initial checkin
penk
parents:
diff changeset
   249
321c1729db5b initial checkin
penk
parents:
diff changeset
   250
wantChangeAnyWay
321c1729db5b initial checkin
penk
parents:
diff changeset
   251
321c1729db5b initial checkin
penk
parents:
diff changeset
   252
    ^ (self type == #directoryDescription)
321c1729db5b initial checkin
penk
parents:
diff changeset
   253
! !
321c1729db5b initial checkin
penk
parents:
diff changeset
   254
5604
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   255
!AbstractFileApplicationNoteBookComponent methodsFor:'resources'!
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   256
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   257
resources
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   258
    masterApplication notNil ifTrue:[
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   259
        ^ masterApplication resources
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   260
    ].
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   261
    ^ super resources
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   262
! !
1c2e0582bcd9 resource access
Claus Gittinger <cg@exept.de>
parents: 5586
diff changeset
   263
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   264
!AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
321c1729db5b initial checkin
penk
parents:
diff changeset
   265
321c1729db5b initial checkin
penk
parents:
diff changeset
   266
version
5967
ff5e8356fcb7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5737
diff changeset
   267
    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.15 2004-08-04 18:00:13 cg Exp $'
3892
321c1729db5b initial checkin
penk
parents:
diff changeset
   268
! !