Browse Source

fixes #904

Nicolas Petton 11 years ago
parent
commit
345ec9de48
2 changed files with 9 additions and 6 deletions
  1. 6 5
      src/Helios-Browser.js
  2. 3 1
      src/Helios-Browser.st

+ 6 - 5
src/Helios-Browser.js

@@ -1612,23 +1612,24 @@ smalltalk.addMethod(
 smalltalk.method({
 selector: "onClassRemoved:",
 protocol: 'reactions',
-fn: function (anAnnouncement) {
+fn: function (anAnnouncement){
 var self=this;
 var class_;
 return smalltalk.withContext(function($ctx1) { 
-var $1;
+var $1,$2;
 class_=_st(anAnnouncement)._theClass();
 $1=_st(_st(class_)._package()).__eq(_st(self._model())._selectedPackage());
 if(! smalltalk.assert($1)){
 return self;
 };
 self._selectItem_(nil);
+$2=self._selectedItem_(nil);
 self._setItemsForSelectedPackage();
 self._refresh();
-return self}, function($ctx1) {$ctx1.fill(self,"onClassRemoved:",{anAnnouncement:anAnnouncement,class_:class_},globals.HLClassesListWidget)});},
+return self}, function($ctx1) {$ctx1.fill(self,"onClassRemoved:",{anAnnouncement:anAnnouncement,class_:class_},globals.HLClassesListWidget)})},
 args: ["anAnnouncement"],
-source: "onClassRemoved: anAnnouncement\x0a\x09| class |\x0a\x09class := anAnnouncement theClass.\x0a\x0a\x09class package = self model selectedPackage ifFalse: [ ^ self ].\x0a    \x0a\x09self selectItem: nil.\x0a    self setItemsForSelectedPackage.\x0a    self refresh",
-messageSends: ["theClass", "ifFalse:", "=", "package", "selectedPackage", "model", "selectItem:", "setItemsForSelectedPackage", "refresh"],
+source: "onClassRemoved: anAnnouncement\x0a\x09| class |\x0a\x09class := anAnnouncement theClass.\x0a\x0a\x09class package = self model selectedPackage ifFalse: [ ^ self ].\x0a    \x0a\x09self \x0a\x09\x09selectItem: nil;\x0a\x09\x09selectedItem: nil.\x0a    self setItemsForSelectedPackage.\x0a    self refresh",
+messageSends: ["theClass", "ifFalse:", "=", "package", "selectedPackage", "model", "selectItem:", "selectedItem:", "setItemsForSelectedPackage", "refresh"],
 referencedClasses: []
 }),
 globals.HLClassesListWidget);

+ 3 - 1
src/Helios-Browser.st

@@ -602,7 +602,9 @@ onClassRemoved: anAnnouncement
 
 	class package = self model selectedPackage ifFalse: [ ^ self ].
     
-	self selectItem: nil.
+	self 
+		selectItem: nil;
+		selectedItem: nil.
     self setItemsForSelectedPackage.
     self refresh
 !