1 "{ Package: 'cvut:stx/goodies/libsvn' }" |
1 "{ Package: 'stx:libsvn' }" |
2 |
2 |
3 "{ NameSpace: SVN }" |
3 "{ NameSpace: SVN }" |
4 |
4 |
5 Dialog subclass:#Wizard |
5 Dialog subclass:#Wizard |
6 instanceVariableNames:'paneHolder goNextEnabledHolder goPrevEnabledHolder' |
6 instanceVariableNames:'paneHolder goNextEnabledHolder goPrevEnabledHolder' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'SVN-UI-Dialogs' |
9 category:'SVN-UI-Dialogs' |
10 ! |
|
11 |
|
12 ApplicationModel subclass:#Pane |
|
13 instanceVariableNames:'prev next' |
|
14 classVariableNames:'' |
|
15 poolDictionaries:'' |
|
16 privateIn:Wizard |
|
17 ! |
10 ! |
18 |
11 |
19 |
12 |
20 !Wizard class methodsFor:'interface specs'! |
13 !Wizard class methodsFor:'interface specs'! |
21 |
14 |
310 "/ pane := nil. |
303 "/ pane := nil. |
311 |
304 |
312 super initialize. |
305 super initialize. |
313 ! ! |
306 ! ! |
314 |
307 |
315 !Wizard::Pane methodsFor:'accessing'! |
|
316 |
|
317 doAcceptEnabled: aBoolean |
|
318 |
|
319 ^self wizard doAcceptEnabled: aBoolean |
|
320 |
|
321 "Created: / 24-03-2009 / 19:55:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
322 ! |
|
323 |
|
324 goNextEnabled: aBoolean |
|
325 |
|
326 ^self wizard goNextEnabled: aBoolean |
|
327 |
|
328 "Created: / 24-03-2009 / 19:55:19 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
329 ! |
|
330 |
|
331 goPrevEnabled: aBoolean |
|
332 |
|
333 ^self wizard goPrevEnabled: aBoolean |
|
334 |
|
335 "Created: / 24-03-2009 / 19:55:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
336 ! |
|
337 |
|
338 next |
|
339 next ifNil:[ next := self createNext. next prev: self.]. |
|
340 ^ next |
|
341 |
|
342 "Modified: / 02-04-2009 / 17:13:33 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
343 ! |
|
344 |
|
345 next:aWizardPane |
|
346 next := aWizardPane. |
|
347 ! |
|
348 |
|
349 prev |
|
350 ^ prev |
|
351 ! |
|
352 |
|
353 prev:aWizardPane |
|
354 prev := aWizardPane. |
|
355 ! |
|
356 |
|
357 task |
|
358 |
|
359 ^self wizard task |
|
360 |
|
361 "Created: / 24-03-2009 / 19:29:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
362 ! |
|
363 |
|
364 wizard |
|
365 |
|
366 ^self masterApplication |
|
367 |
|
368 "Created: / 24-03-2009 / 14:37:35 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
369 ! ! |
|
370 |
|
371 !Wizard::Pane methodsFor:'actions'! |
|
372 |
|
373 enter |
|
374 |
|
375 "This method is called whenever a a pane is shown" |
|
376 |
|
377 "Created: / 02-04-2009 / 17:07:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
378 ! |
|
379 |
|
380 goNext |
|
381 |
|
382 self wizard pane: self next |
|
383 |
|
384 "Created: / 20-03-2009 / 14:12:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
385 "Modified: / 24-03-2009 / 14:38:30 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
386 ! |
|
387 |
|
388 goPrev |
|
389 |
|
390 self wizard pane: self prev |
|
391 |
|
392 "Created: / 20-03-2009 / 14:12:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
393 "Modified: / 24-03-2009 / 14:38:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
394 ! |
|
395 |
|
396 leave |
|
397 |
|
398 "This method is called whenever a a pane is left (via pressing next/prev/accept)" |
|
399 |
|
400 "Created: / 02-04-2009 / 17:08:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
401 ! ! |
|
402 |
|
403 !Wizard::Pane methodsFor:'change & update'! |
|
404 |
|
405 updateButtons |
|
406 |
|
407 self |
|
408 goPrevEnabled: self canGoPrev; |
|
409 goNextEnabled: self canGoNext; |
|
410 doAcceptEnabled: self canDoAccept. |
|
411 |
|
412 "Created: / 24-03-2009 / 19:54:49 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
413 "Modified: / 02-04-2009 / 16:27:17 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
414 ! ! |
|
415 |
|
416 !Wizard::Pane methodsFor:'private'! |
|
417 |
|
418 createNext |
|
419 ^ self subclassResponsibility |
|
420 |
|
421 "Created: / 21-03-2009 / 10:56:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
422 ! |
|
423 |
|
424 showMessage: aString |
|
425 |
|
426 ^self wizard showMessage: aString |
|
427 |
|
428 "Created: / 09-04-2009 / 08:19:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
429 ! |
|
430 |
|
431 showProgressWhile: aBlock |
|
432 |
|
433 ^self wizard showProgressWhile: aBlock |
|
434 |
|
435 "Created: / 24-03-2009 / 14:58:48 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
436 ! ! |
|
437 |
|
438 !Wizard::Pane methodsFor:'queries'! |
|
439 |
|
440 canDoAccept |
|
441 |
|
442 ^false |
|
443 |
|
444 "Created: / 21-03-2009 / 12:22:10 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
445 "Modified: / 02-04-2009 / 16:29:58 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
446 ! |
|
447 |
|
448 canGoNext |
|
449 |
|
450 ^true |
|
451 |
|
452 "Created: / 20-03-2009 / 12:41:51 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
453 "Modified: / 02-04-2009 / 16:44:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
454 ! |
|
455 |
|
456 canGoPrev |
|
457 |
|
458 ^prev notNil |
|
459 |
|
460 "Created: / 20-03-2009 / 12:42:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
461 ! ! |
|
462 |
|
463 !Wizard class methodsFor:'documentation'! |
308 !Wizard class methodsFor:'documentation'! |
464 |
309 |
465 version |
310 version |
466 ^ '$Header$' |
311 ^ '$Header$' |
467 ! |
312 ! |