"{ Package: 'cvut:stx/goodies/libsvn' }"
"{ NameSpace: SVN }"
ApplicationModel subclass:#WizardPane
instanceVariableNames:'prev next'
classVariableNames:''
poolDictionaries:''
category:'SVN-UI-Dialogs'
!
!WizardPane methodsFor:'accessing'!
doAcceptEnabled: aBoolean
^self wizard doAcceptEnabled: aBoolean
"Created: / 24-03-2009 / 19:55:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
goNextEnabled: aBoolean
^self wizard goNextEnabled: aBoolean
"Created: / 24-03-2009 / 19:55:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
goPrevEnabled: aBoolean
^self wizard goPrevEnabled: aBoolean
"Created: / 24-03-2009 / 19:55:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
next
next ifNil:[ next := self createNext. next prev: self.].
^ next
"Modified: / 02-04-2009 / 17:13:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
next:aWizardPane
next := aWizardPane.
!
prev
^ prev
!
prev:aWizardPane
prev := aWizardPane.
!
task
^self wizard task
"Created: / 24-03-2009 / 19:29:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
wizard
^self masterApplication
"Created: / 24-03-2009 / 14:37:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!WizardPane methodsFor:'actions'!
enter
"This method is called whenever a a pane is shown"
"Created: / 02-04-2009 / 17:07:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
goNext
self wizard pane: self next
"Created: / 20-03-2009 / 14:12:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 24-03-2009 / 14:38:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
goPrev
self wizard pane: self prev
"Created: / 20-03-2009 / 14:12:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 24-03-2009 / 14:38:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
leave
"This method is called whenever a a pane is left (via pressing next/prev/accept)"
"Created: / 02-04-2009 / 17:08:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!WizardPane methodsFor:'change & update'!
updateButtons
self
goPrevEnabled: self canGoPrev;
goNextEnabled: self canGoNext;
doAcceptEnabled: self canDoAccept.
"Created: / 24-03-2009 / 19:54:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 02-04-2009 / 16:27:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!WizardPane methodsFor:'private'!
createNext
^ self subclassResponsibility
"Created: / 21-03-2009 / 10:56:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
showMessage: aString
^self wizard showMessage: aString
"Created: / 09-04-2009 / 08:19:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
showProgressWhile: aBlock
^self wizard showProgressWhile: aBlock
"Created: / 24-03-2009 / 14:58:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!WizardPane methodsFor:'queries'!
canDoAccept
^false
"Created: / 21-03-2009 / 12:22:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 02-04-2009 / 16:29:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
canGoNext
^true
"Created: / 20-03-2009 / 12:41:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 02-04-2009 / 16:44:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
canGoPrev
^prev notNil
"Created: / 20-03-2009 / 12:42:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!WizardPane class methodsFor:'documentation'!
version_CVS
^ '$Header$'
! !