equal
deleted
inserted
replaced
706 |
706 |
707 inspectorValueStringInListFor:anInspector |
707 inspectorValueStringInListFor:anInspector |
708 "returns a string to be shown in the inspector's list" |
708 "returns a string to be shown in the inspector's list" |
709 |
709 |
710 ^ self basicStoreString contractTo:30. |
710 ^ self basicStoreString contractTo:30. |
|
711 ! ! |
|
712 |
|
713 !Class methodsFor:'inspecting'! |
|
714 |
|
715 inspector2TabDocumentation |
|
716 <inspector2Tab> |
|
717 |
|
718 ^ self newInspector2Tab |
|
719 label: 'Documentation'; |
|
720 priority: 5; |
|
721 view: ((ScrollableView for:EditTextView) |
|
722 autoHideVerticalScrollBar:true; |
|
723 contents: (self commentOrDocumentationString); |
|
724 yourself); |
|
725 yourself |
|
726 |
|
727 " |
|
728 Array inspect |
|
729 " |
|
730 |
|
731 "Created: / 22-09-2018 / 10:56:07 / Claus Gittinger" |
711 ! ! |
732 ! ! |
712 |
733 |
713 !Class methodsFor:'misc ui support'! |
734 !Class methodsFor:'misc ui support'! |
714 |
735 |
715 inspectorClass |
736 inspectorClass |