From 535cd75faaf14e78a3bf7bd08509f7694a5d0fa7 Mon Sep 17 00:00:00 2001 From: SantiagoBragagnolo Date: Sat, 22 Feb 2020 15:57:31 +0000 Subject: [PATCH] Adding a limit to the header. to let it be short. --- src/Grafoscopio/GrafoscopioAbstractNode.class.st | 2 +- src/Grafoscopio/GrafoscopioNewNotebook.class.st | 7 +------ src/Grafoscopio/GrafoscopioNotebook.class.st | 7 +------ 3 files changed, 3 insertions(+), 13 deletions(-) diff --git a/src/Grafoscopio/GrafoscopioAbstractNode.class.st b/src/Grafoscopio/GrafoscopioAbstractNode.class.st index c4aa9d3..160451a 100644 --- a/src/Grafoscopio/GrafoscopioAbstractNode.class.st +++ b/src/Grafoscopio/GrafoscopioAbstractNode.class.st @@ -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' } diff --git a/src/Grafoscopio/GrafoscopioNewNotebook.class.st b/src/Grafoscopio/GrafoscopioNewNotebook.class.st index 4d34f36..3bf2e27 100644 --- a/src/Grafoscopio/GrafoscopioNewNotebook.class.st +++ b/src/Grafoscopio/GrafoscopioNewNotebook.class.st @@ -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 diff --git a/src/Grafoscopio/GrafoscopioNotebook.class.st b/src/Grafoscopio/GrafoscopioNotebook.class.st index b77fbaa..56836ed 100644 --- a/src/Grafoscopio/GrafoscopioNotebook.class.st +++ b/src/Grafoscopio/GrafoscopioNotebook.class.st @@ -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