equal
deleted
inserted
replaced
376 "Modified: / 26-11-2008 / 12:12:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
376 "Modified: / 26-11-2008 / 12:12:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
377 ! |
377 ! |
378 |
378 |
379 codeView |
379 codeView |
380 |
380 |
381 codeView isNil ifTrue:[ |
381 codeView ifNil: |
382 codeView := HVScrollableView for: CodeView |
382 [codeView := HVScrollableView for: CodeView]. |
383 ]. |
|
384 ^codeView |
383 ^codeView |
385 |
384 |
386 "Created: / 06-11-2008 / 14:52:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
385 "Created: / 06-11-2008 / 14:52:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
387 "Modified: / 18-11-2011 / 14:58:32 / cg" |
|
388 ! |
386 ! |
389 |
387 |
390 diffView |
388 diffView |
391 |
389 |
392 diffView isNil ifTrue:[ |
390 diffView ifNil: |
393 diffView := HVScrollableView for: DiffTextView |
391 [diffView := HVScrollableView for: DiffTextView]. |
394 ]. |
|
395 ^diffView |
392 ^diffView |
396 |
393 |
397 "Created: / 06-11-2008 / 15:01:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
394 "Created: / 06-11-2008 / 15:01:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
398 "Modified: / 18-11-2011 / 14:58:41 / cg" |
|
399 ! |
395 ! |
400 |
396 |
401 selectedChangeSetHolder |
397 selectedChangeSetHolder |
402 "return/create the 'selectedChangeSetHolder' value holder (automatically generated)" |
398 "return/create the 'selectedChangeSetHolder' value holder (automatically generated)" |
403 |
399 |
459 "Created: / 02-04-2009 / 17:56:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
455 "Created: / 02-04-2009 / 17:56:00 / Jan Vrany <vranyj1@fel.cvut.cz>" |
460 "Modified: / 06-04-2009 / 17:43:41 / Jan Vrany <vranyj1@fel.cvut.cz>" |
456 "Modified: / 06-04-2009 / 17:43:41 / Jan Vrany <vranyj1@fel.cvut.cz>" |
461 ! |
457 ! |
462 |
458 |
463 updateCode |
459 updateCode |
464 | change scrolledCodeView | |
460 |
465 |
461 | change | |
466 change := self selectedChange. |
462 change := self selectedChange. |
467 change isNil ifTrue:[^self]. |
463 change ifNil:[^self]. |
468 (scrolledCodeView := self codeView scrolledView) isNil ifTrue:[^self]. |
464 self codeView scrolledView ifNil:[^self]. |
469 scrolledCodeView |
465 self codeView scrolledView |
470 contents: change source; |
466 contents: change source; |
471 raise. |
467 raise. |
472 |
468 |
473 "Created: / 06-11-2008 / 15:01:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
469 "Created: / 06-11-2008 / 15:01:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
474 "Modified: / 02-04-2009 / 17:59:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
470 "Modified: / 02-04-2009 / 17:59:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
475 "Modified (format): / 18-11-2011 / 14:59:31 / cg" |
|
476 ! ! |
471 ! ! |
477 |
472 |
478 !HierarchicalChangesetDialog methodsFor:'hooks'! |
473 !HierarchicalChangesetDialog methodsFor:'hooks'! |
479 |
474 |
480 commonPostOpen |
475 commonPostOpen |
486 ! ! |
481 ! ! |
487 |
482 |
488 !HierarchicalChangesetDialog::Change class methodsFor:'documentation'! |
483 !HierarchicalChangesetDialog::Change class methodsFor:'documentation'! |
489 |
484 |
490 version |
485 version |
491 ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.3 2011-11-18 14:06:26 cg Exp $' |
486 ^'$Id: Tools__HierarchicalChangesetDialog.st,v 1.2 2011/07/03 19:53:24 cg Exp $' |
492 ! ! |
487 ! ! |
493 |
488 |
494 !HierarchicalChangesetDialog::Change class methodsFor:'image specs'! |
489 !HierarchicalChangesetDialog::Change class methodsFor:'image specs'! |
495 |
490 |
496 checkedIcon |
491 checkedIcon |
590 "Created: / 06-11-2008 / 16:30:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
585 "Created: / 06-11-2008 / 16:30:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
591 ! |
586 ! |
592 |
587 |
593 label |
588 label |
594 |
589 |
595 label isNil ifTrue:[ |
590 label ifNil: |
596 label := change |
591 [label := change |
597 ifNil:['Composite change'] |
592 ifNil:['Composite change'] |
598 ifNotNil:[change printString"displayStringForBrowser: self application"] |
593 ifNotNil:[change printString"displayStringForBrowser: self application"]]. |
599 ]. |
|
600 ^label |
594 ^label |
601 |
595 |
602 "Created: / 05-11-2008 / 08:20:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
596 "Created: / 05-11-2008 / 08:20:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
603 "Modified: / 07-11-2008 / 08:25:47 / Jan Vrany <vranyj1@fel.cvut.cz>" |
597 "Modified: / 07-11-2008 / 08:25:47 / Jan Vrany <vranyj1@fel.cvut.cz>" |
604 "Modified: / 18-11-2011 / 14:59:53 / cg" |
|
605 ! |
598 ! |
606 |
599 |
607 label:something |
600 label:something |
608 label := something. |
601 label := something. |
609 |
602 |
682 "Created: / 06-11-2008 / 17:31:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
675 "Created: / 06-11-2008 / 17:31:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
683 ! |
676 ! |
684 |
677 |
685 isRemoved |
678 isRemoved |
686 |
679 |
687 removed isNil ifTrue:[removed := false]. |
680 removed ifNil:[removed := false]. |
688 ^removed |
681 ^removed |
689 |
682 |
690 "Created: / 05-11-2008 / 08:21:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
683 "Created: / 05-11-2008 / 08:21:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
691 "Modified: / 18-11-2011 / 14:59:39 / cg" |
|
692 ! ! |
684 ! ! |
693 |
685 |
694 !HierarchicalChangesetDialog class methodsFor:'documentation'! |
686 !HierarchicalChangesetDialog class methodsFor:'documentation'! |
695 |
687 |
696 version_CVS |
688 version_CVS |
697 ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.3 2011-11-18 14:06:26 cg Exp $' |
689 ^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangesetDialog.st,v 1.2 2011/07/03 19:53:24 cg Exp §' |
698 ! |
690 ! |
699 |
691 |
700 version_SVN |
692 version_SVN |
701 ^ '§Id: Tools__HierarchicalChangesetDialog.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
693 ^ '$Id: Tools__HierarchicalChangesetDialog.st 7486 2009-10-26 22:06:24Z vranyj1 $' |
702 ! ! |
694 ! ! |