Fixed posibly uninitialized reproperties

Uko · Jan 20, 2017 · 6af40ba · 6af40ba
1 parent cd8e365
commit 6af40ba
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 7 deletions.
diff --git a/Renraku.package/Object.extension/instance/gtInspectorEProportiesIn..st b/Renraku.package/Object.extension/instance/gtInspectorEProportiesIn..st
@@ -3,21 +3,26 @@ gtInspectorEProportiesIn: composite
 	"This provides a list of all external properties"
 
 	<gtInspectorPresentationOrder: 20>
-	| eProperties |
+	| eProperties ePropLazy |
+
+	ReSettings inspectorPluggin ifFalse: [ ^ self ].
+
+	ePropLazy := [
+		eProperties ifNil: [ eProperties := self externalProperties ] ].
+
 	composite list
-		when:
-				[ ReSettings inspectorPluggin and: [ (eProperties := self externalProperties) notEmpty ] ];
-		title: [ eProperties size asString , (' property' asPluralBasedOn: eProperties) ];
+		when: [ ePropLazy value notEmpty ];
+		title: [ ePropLazy value size asString, (' property' asPluralBasedOn: ePropLazy value) ];
 		titleIcon: [ CircleMorph new
 				extent: 16 @ 16;
 				borderWidth: 0;
 				color: Color red darker darker;
 				addMorphCentered:
-					(eProperties size asStringMorph
+					(ePropLazy value size asStringMorph
 						color: Color white;
 						emphasis: 1;
 						yourself);
 				iconOrThumbnail ];
-		display: [ self externalProperties ];
+		display: [ ePropLazy value ];
 		icon: #icon;
 		format: #title
diff --git a/Renraku.package/Object.extension/methodProperties.json b/Renraku.package/Object.extension/methodProperties.json
@@ -4,5 +4,5 @@
 	"instance" : {
 		"externalProperties" : "YuriyTymchuk 1/14/2016 00:08",
 		"glmCritiqueSourceIn:" : "Uko 9/7/2016 00:38:48",
-		"gtInspectorEProportiesIn:" : " 9/5/2016 09:34:29",
+		"gtInspectorEProportiesIn:" : "YuriyTymchuk 1/20/2017 16:51",
 		"spotterRePropertiesFor:" : "Uko 10/7/2016 16:23:56" } }
diff --git a/Renraku.package/monticello.meta/version b/Renraku.package/monticello.meta/version