equal
deleted
inserted
replaced
3722 |
3722 |
3723 updateInfo |
3723 updateInfo |
3724 "update the infoLabel (at the bottom) from the current project" |
3724 "update the infoLabel (at the bottom) from the current project" |
3725 |
3725 |
3726 |project projectDir packageName packageNameOrNil defNameSpace projectInfo |
3726 |project projectDir packageName packageNameOrNil defNameSpace projectInfo |
3727 cvsRepository storeDB image bindings makeInfoString svnWorkDirBaseName| |
3727 cvsRepository storeDB image bindings makeInfoString |
|
3728 svnRepositoryManagerClass svnWorkDirBaseName| |
3728 |
3729 |
3729 (Project notNil and:[(project := Project current) notNil]) ifTrue:[ |
3730 (Project notNil and:[(project := Project current) notNil]) ifTrue:[ |
3730 projectDir := project directory. |
3731 projectDir := project directory. |
3731 packageName := packageNameOrNil := project package. |
3732 packageName := packageNameOrNil := project package. |
3732 defNameSpace := project defaultNameSpace. |
3733 defNameSpace := project defaultNameSpace. |
3751 ] |
3752 ] |
3752 ] |
3753 ] |
3753 ]. |
3754 ]. |
3754 |
3755 |
3755 makeInfoString := [:title :value | |
3756 makeInfoString := [:title :value | |
|
3757 |v| |
|
3758 v := value. |
|
3759 value isString ifFalse:[v := '***' ]. |
3756 (resources string:title) allBold |
3760 (resources string:title) allBold |
3757 ,': ' |
3761 ,': ' |
3758 ,(value colorizeAllWith:(Color blue darkened)) |
3762 ,(v withColor:(Color blue darkened)) |
3759 ,' ' |
3763 ,' ' |
3760 ]. |
3764 ]. |
3761 |
3765 |
3762 bindings := Dictionary new. |
3766 bindings := Dictionary new. |
3763 packageName isNil ifTrue:[ |
3767 packageName isNil ifTrue:[ |
3799 bindings at:'NOREPOSITORY' put:' >','No Repository'allBold,'< '. |
3803 bindings at:'NOREPOSITORY' put:' >','No Repository'allBold,'< '. |
3800 ] ifFalse:[ |
3804 ] ifFalse:[ |
3801 bindings at:'NOREPOSITORY' put:''. |
3805 bindings at:'NOREPOSITORY' put:''. |
3802 ]. |
3806 ]. |
3803 |
3807 |
3804 (SVN::RepositoryManager notNil |
3808 svnRepositoryManagerClass := Smalltalk at:#'SVN::RepositoryManager'. |
3805 and:[ SVN::RepositoryManager isLoaded |
3809 (svnRepositoryManagerClass notNil |
3806 and:[ SVN::RepositoryManager enabled ]]) |
3810 and:[ svnRepositoryManagerClass isLoaded |
|
3811 and:[ svnRepositoryManagerClass enabled ]]) |
3807 ifTrue:[ |
3812 ifTrue:[ |
3808 svnWorkDirBaseName := SVN::RepositoryManager current workingCopyBase asFilename baseName. |
3813 svnWorkDirBaseName := svnRepositoryManagerClass current workingCopyBase asFilename baseName. |
3809 |
3814 |
3810 bindings |
3815 bindings |
3811 at: 'SVN_WORKING_COPY' |
3816 at: 'SVN_WORKING_COPY' |
3812 put: (makeInfoString value:'SVN Work' value:svnWorkDirBaseName). |
3817 put: (makeInfoString value:'SVN Work' value:svnWorkDirBaseName). |
3813 ] ifFalse:[ |
3818 ] ifFalse:[ |