--- a/WorkspaceApplication.st Mon Mar 12 10:55:11 2007 +0100
+++ b/WorkspaceApplication.st Mon Mar 12 10:55:55 2007 +0100
@@ -1422,7 +1422,9 @@
<resource: #programMenu >
^ [
- |doIts m classHistory currentClass|
+ |doIts m classHistory currentClass cmdLabelLen|
+
+ cmdLabelLen := 40.
doIts := Workspace doItHistory.
doIts size > 0 ifTrue:[
@@ -1431,8 +1433,8 @@
|lines label item|
label := doItEntry withoutLeadingSeparators asStringCollection first.
- (label size > 20) ifTrue:[
- label := (label contractTo:20)
+ (label size > cmdLabelLen) ifTrue:[
+ label := (label contractTo:cmdLabelLen)
] ifFalse:[
(lines size > 1) ifTrue:[
label := label , '...'
@@ -1454,6 +1456,8 @@
].
m
].
+
+ "Modified: / 12-03-2007 / 08:57:56 / cg"
!
redoRecentDoItMenu
@@ -1645,5 +1649,5 @@
!WorkspaceApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.128 2007-03-01 20:28:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.129 2007-03-12 09:55:55 cg Exp $'
! !