Adding a limit to the header. to let it be short.

This commit is contained in:
Santiago Bragagnolo 2020-02-22 15:57:31 +00:00 committed by Offray Luna
parent 87dcc43e4d
commit 0efe65d061
3 changed files with 3 additions and 13 deletions

View File

@ -226,7 +226,7 @@ GrafoscopioAbstractNode >> tags: aCollection [
GrafoscopioAbstractNode >> title [
"Returns the receiver header"
^ header size > 10 ifTrue: [ (header readStream next: 8) , '...' ]
^ header size > 30 ifTrue: [ (header readStream next: 28) , '...' ] ifFalse: [ header ]
]
{ #category : #'as yet unclassified' }

View File

@ -777,12 +777,7 @@ GrafoscopioNewNotebook >> notebookSubMenu [
name: 'See pdf';
icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
action: [ self seePdf ] ].
group
addItem: [ :item |
item
name: 'Import Article';
icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
action: [ self importArticle ] ].
group
addItem: [ :item |
item

View File

@ -748,12 +748,7 @@ GrafoscopioNotebook >> notebookSubMenu [
name: 'See pdf';
icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
action: [ self seePdf ] ].
group
addItem: [ :item |
item
name: 'Import Article';
icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
action: [ self importArticle ] ].
group
addItem: [ :item |
item