Grafoscopio
/
Grafoscopio
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This commit is contained in:
SantiagoBragagnolo 2020-02-22 15:57:31 +00:00
parent 06450c176d
commit 535cd75faa
3 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Grafoscopio/GrafoscopioAbstractNode.class.st
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' }

7
src/Grafoscopio/GrafoscopioNewNotebook.class.st
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

7
src/Grafoscopio/GrafoscopioNotebook.class.st
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