SVN__Wizard.st
changeset 459 419ec821c929
parent 340 f4ed9fef001b
child 737 b3347104b469
--- 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