1
0
Pārlūkot izejas kodu

Tab label setting should with dive now.

Herby Vojčík 4 gadi atpakaļ
vecāks
revīzija
c7476c2d9b
2 mainītis faili ar 12 papildinājumiem un 4 dzēšanām
  1. 11 3
      src/Helios-Inspector.js
  2. 1 1
      src/Helios-Inspector.st

+ 11 - 3
src/Helios-Inspector.js

@@ -1731,7 +1731,15 @@ $ctx1.supercall = true,
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.supercall = false;
 //>>excludeEnd("ctx");;
-$self._setTabLabel_($self._label());
+$recv((function(){
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+return $core.withContext(function($ctx2) {
+//>>excludeEnd("ctx");
+return $self._setTabLabel_($self._label());
+//>>excludeStart("ctx", pragmas.excludeDebugContexts);
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
+//>>excludeEnd("ctx");
+}))._fork();
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})});
@@ -1739,11 +1747,11 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anObject"],
-source: "inspect: anObject\x0a\x09super inspect: anObject.\x0a\x09self setTabLabel: self label",
+source: "inspect: anObject\x0a\x09super inspect: anObject.\x0a\x09[ self setTabLabel: self label ] fork",
 referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
-messageSends: ["inspect:", "setTabLabel:", "label"]
+messageSends: ["inspect:", "fork", "setTabLabel:", "label"]
 }),
 $globals.HLInspector);
 

+ 1 - 1
src/Helios-Inspector.st

@@ -379,7 +379,7 @@ HLInspectorWidget subclass: #HLInspector
 
 inspect: anObject
 	super inspect: anObject.
-	self setTabLabel: self label
+	[ self setTabLabel: self label ] fork
 ! !
 
 !HLInspector methodsFor: 'rendering'!