--- a/SVN__Wizard.st Mon Oct 19 14:24:06 2009 +0200
+++ b/SVN__Wizard.st Mon Oct 19 14:24:08 2009 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'cvut:stx/goodies/libsvn' }"
+"{ Package: 'stx:libsvn' }"
"{ NameSpace: SVN }"
@@ -9,13 +9,6 @@
category:'SVN-UI-Dialogs'
!
-ApplicationModel subclass:#Pane
- instanceVariableNames:'prev next'
- classVariableNames:''
- poolDictionaries:''
- privateIn:Wizard
-!
-
!Wizard class methodsFor:'interface specs'!
@@ -312,154 +305,6 @@
super initialize.
! !
-!Wizard::Pane 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>"
-! !
-
-!Wizard::Pane 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>"
-! !
-
-!Wizard::Pane 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>"
-! !
-
-!Wizard::Pane 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>"
-! !
-
-!Wizard::Pane 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>"
-! !
-
!Wizard class methodsFor:'documentation'!
version