changeset 1267 | db910ada83f7 |
parent 1255 | d5616023622e |
child 1278 | b9769689b45c |
1266:a9ff1892e9c5 | 1267:db910ada83f7 |
---|---|
2587 #enabled: #hasProjectSelectedHolder |
2587 #enabled: #hasProjectSelectedHolder |
2588 ) |
2588 ) |
2589 #(#MenuItem |
2589 #(#MenuItem |
2590 #label: '-' |
2590 #label: '-' |
2591 ) |
2591 ) |
2592 #(#MenuItem |
2592 "/ #(#MenuItem |
2593 #label: 'New SubProject' |
2593 "/ #label: 'New SubProject' |
2594 #translateLabel: true |
2594 "/ #translateLabel: true |
2595 #value: #newSubProject |
2595 "/ #value: #newSubProject |
2596 #enabled: #hasProjectSelectedHolder |
2596 "/ #enabled: #hasProjectSelectedHolder |
2597 ) |
2597 "/ ) |
2598 #(#MenuItem |
2598 "/ #(#MenuItem |
2599 #label: '-' |
2599 "/ #label: '-' |
2600 ) |
2600 "/ ) |
2601 #(#MenuItem |
2601 #(#MenuItem |
2602 #label: 'Rename...' |
2602 #label: 'Rename...' |
2603 #translateLabel: true |
2603 #translateLabel: true |
2604 #value: #renameProject |
2604 #value: #renameProject |
2605 #enabled: #hasProjectSelectedHolder |
2605 #enabled: #hasProjectSelectedHolder |
5553 ! |
5553 ! |
5554 |
5554 |
5555 checkInAllClasses |
5555 checkInAllClasses |
5556 "check in all classes" |
5556 "check in all classes" |
5557 |
5557 |
5558 |p classes methods anyMethodMissing| |
5558 |p classes| |
5559 |
5559 |
5560 p := self currentProject. |
5560 p := self currentProject. |
5561 p isNil ifTrue:[ |
5561 p isNil ifTrue:[ |
5562 self information:'No project selected'. |
5562 self information:'No project selected'. |
5563 ^ self |
5563 ^ self |
5564 ]. |
5564 ]. |
5565 |
|
5566 self warn:'CheckIn function not yet implemented.'. |
|
5567 ^ self. |
|
5565 |
5568 |
5566 "/ check in classes ... |
5569 "/ check in classes ... |
5567 |
5570 |
5568 classes := p classes. |
5571 classes := p classes. |
5569 classes do:[:aClass | |
5572 classes do:[:aClass | |
5589 ]. |
5592 ]. |
5590 |
5593 |
5591 |
5594 |
5592 ! |
5595 ! |
5593 |
5596 |
5594 checkInMethods |
5597 checkInMakefiles |
5595 "check in all extensions (patches)" |
5598 "check in the Make.proto, Makefile, nt.mak and vms.mak files" |
5596 |
5599 |
5597 |p methods anyMethodMissing| |
5600 |p| |
5598 |
5601 |
5599 p := self currentProject. |
5602 p := self currentProject. |
5600 p isNil ifTrue:[ |
5603 p isNil ifTrue:[ |
5601 self information:'No project selected'. |
5604 self information:'No project selected'. |
5602 ^ self |
5605 ^ self |
5603 ]. |
5606 ]. |
5607 |
|
5608 self warn:'CheckIn function not yet implemented.'. |
|
5609 ^ self. |
|
5610 |
|
5611 "/ check it in ... |
|
5612 |
|
5613 |
|
5614 |
|
5615 ! |
|
5616 |
|
5617 checkInMethods |
|
5618 "check in all extensions (patches)" |
|
5619 |
|
5620 |p methods anyMethodMissing| |
|
5621 |
|
5622 p := self currentProject. |
|
5623 p isNil ifTrue:[ |
|
5624 self information:'No project selected'. |
|
5625 ^ self |
|
5626 ]. |
|
5627 |
|
5628 self warn:'CheckIn function not yet implemented.'. |
|
5629 ^ self. |
|
5604 |
5630 |
5605 "/ check methods ... |
5631 "/ check methods ... |
5606 |
5632 |
5607 anyMethodMissing := false. |
5633 anyMethodMissing := false. |
5608 methods := p methods. |
5634 methods := p methods. |
5632 p isNil ifTrue:[ |
5658 p isNil ifTrue:[ |
5633 self information:'No project selected'. |
5659 self information:'No project selected'. |
5634 ^ self |
5660 ^ self |
5635 ]. |
5661 ]. |
5636 |
5662 |
5663 self warn:'CheckIn function not yet implemented.'. |
|
5664 ^ self. |
|
5665 |
|
5637 "/ check in classes ... |
5666 "/ check in classes ... |
5638 self checkInAllClasses. |
5667 self checkInAllClasses. |
5639 |
5668 |
5640 "/ check methods ... |
5669 "/ check methods ... |
5641 self checkInMethods. |
5670 self checkInMethods. |
5642 |
5671 |
5643 "/ check in the project file itself |
5672 "/ check in the project file itself |
5644 self checkInProjectFile. |
5673 self checkInProjectFile. |
5674 |
|
5675 ! |
|
5676 |
|
5677 checkInProjectFile |
|
5678 "check in the prj-file" |
|
5679 |
|
5680 |p| |
|
5681 |
|
5682 p := self currentProject. |
|
5683 p isNil ifTrue:[ |
|
5684 self information:'No project selected'. |
|
5685 ^ self |
|
5686 ]. |
|
5687 |
|
5688 self warn:'CheckIn function not yet implemented.'. |
|
5689 ^ self. |
|
5690 |
|
5691 "/ check it in ... |
|
5692 |
|
5693 |
|
5645 |
5694 |
5646 ! |
5695 ! |
5647 |
5696 |
5648 inspectCurrentProject |
5697 inspectCurrentProject |
5649 "inspect the current project" |
5698 "inspect the current project" |