--- a/Tools__NewSystemBrowser.st Mon Sep 19 08:48:45 2016 +0100
+++ b/Tools__NewSystemBrowser.st Wed Sep 28 07:09:57 2016 +0200
@@ -10435,7 +10435,7 @@
label: '-'
)
(MenuItem
- enabled: hasProjectSelectedAndCanFileOutVSEHolder
+ enabled: hasSingleProjectSelectedAndCanFileOutVSEHolder
label: 'VSE Package as...'
itemValue: projectMenuFileOutVSEPackageFormatAs
showBusyCursorWhilePerforming: true
@@ -20145,7 +20145,7 @@
organizerModeForMenu
"need this, since the menu fetches the aspect only once during
- creation - but thats the mode-holder of the first buffer,
+ creation - but that's the mode-holder of the first buffer,
and not the dynamic mode-holder of the current buffer"
|holder|
@@ -23197,6 +23197,10 @@
^ self selectedProjects value size == 1
!
+hasSingleProjectSelectedAndCanFileOutVSEHolder
+ ^ [ self hasSingleProjectSelected and:[self canFileOutVSE] ]
+!
+
hasSingleProjectSelectedHolder
^ [ self hasSingleProjectSelected ]
@@ -36974,7 +36978,7 @@
userFilterPop := box addComboBoxOn:userFilter tabable:true.
userFilterPop width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
- "Fetch the list of konwn user names (which are possibly used when cheking in):
+ "Fetch the list of konwn user names (which are possibly used when checking in):
- Try the repository names (smething like ':method:user@host:....')
- If nothing found, use the login name"
@@ -37122,7 +37126,7 @@
userFilterPop := box addComboBoxOn:userFilter tabable:true.
userFilterPop width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
- "Fetch the list of konwn user names (which are possibly used when cheking in):
+ "Fetch the list of konwn user names (which are possibly used when checking in):
- Try the repository names (smething like ':method:user@host:....')
- If nothing found, use the login name"
@@ -46938,6 +46942,7 @@
module:module.
] ifFalse:[
revisionLog := mgr revisionLogOf:mclass.
+ revisionLog isNil ifTrue:[self error:'cannot get revision log'].
].
revisions := revisionLog at:#revisions.
@@ -59048,6 +59053,7 @@
^ selectorCompletion
! !
+
!NewSystemBrowser methodsFor:'private-semantic checks'!
checkAcceptedMethod:aMethod inClass:aClass
@@ -59565,7 +59571,7 @@
list isNil ifTrue:[
codeView list:newLines.
] ifFalse:[
- "/ the cursor line first - thats where your eyes are ...
+ "/ the cursor line first - that's where your eyes are ...
(l := codeView cursorLine) notNil ifTrue:[
l <= newLines size ifTrue:[
replaceAction value:l value:(newLines at:l)