AbstractSettingsApplication.st
author penk
Mon, 11 Nov 2002 18:54:50 +0100
changeset 4240 f196089fe934
parent 4228 bb491a32fae5
child 4286 ca4a4c435bf3
permissions -rw-r--r--
next stage for settings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4226
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     1
"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     2
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     3
ApplicationModel subclass:#AbstractSettingsApplication
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     4
	instanceVariableNames:''
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     5
	classVariableNames:''
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     6
	poolDictionaries:''
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     7
	category:'Interface-Smalltalk'
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     8
!
44e2f83cc526 initial checkin
penk
parents:
diff changeset
     9
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    10
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    11
!AbstractSettingsApplication methodsFor:'actions'!
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    12
4240
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    13
loadRequest
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    14
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    15
    self subclassResponsibility
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    16
!
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    17
4226
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    18
saveRequest
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    19
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    20
    self subclassResponsibility
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    21
! !
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    22
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    23
!AbstractSettingsApplication methodsFor:'queries'!
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    24
4240
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    25
isNotPartOfSettinsDialog
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    26
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    27
    ^ self isPartOfSettinsDialog not
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    28
!
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    29
4226
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    30
isPartOfSettinsDialog
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    31
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    32
    | masterApplication |
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    33
    masterApplication := self masterApplication.
4228
bb491a32fae5 *** empty log message ***
penk
parents: 4226
diff changeset
    34
    ^ masterApplication notNil and:[ masterApplication class == AbstractLauncherApplication::SettingsDialog].
4226
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    35
! !
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    36
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    37
!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    38
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    39
version
4240
f196089fe934 next stage for settings
penk
parents: 4228
diff changeset
    40
    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.3 2002-11-11 17:54:42 penk Exp $'
4226
44e2f83cc526 initial checkin
penk
parents:
diff changeset
    41
! !