--- a/IRFunction.st	Tue Nov 15 21:28:05 2011 +0000
+++ b/IRFunction.st	Thu Mar 29 18:03:58 2012 +0000
@@ -50,23 +50,6 @@
     "Modified: / 12-08-2009 / 09:22:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-addTempsIfNotDefined: temps
-
-    | ir tempsToAdd |
-    ir := self.
-    tempsToAdd := temps asSet.
-    [ ir isNil ] whileFalse: 
-        [ir tempNames do:
-            [:temp|
-            (tempsToAdd includes:temp)
-                ifTrue:[tempsToAdd remove: temp]].
-        ir := ir environmentIr].
-    tempsToAdd isEmpty ifTrue:[^self].
-    self addTemps: tempsToAdd
-
-    "Created: / 23-03-2010 / 13:51:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 additionalLiterals
 	^additionalLiterals.
 !
@@ -110,10 +93,6 @@
 	^self allInstructionsMatching: [:bc | bc isTempStore].
 !
 
-environmentIr
-    ^ environmentIr
-!
-
 ir
 	^self.
 !
@@ -195,12 +174,11 @@
 inspector2TabIRCode
 
     ^Tools::Inspector2Tab new
-        label: 'IR Code';
-        priority: 75;
-        text: self longPrintString.
+	label: 'IR Code';
+	priority: 75;
+	view: ((ScrollableView for:TextView) contents: self longPrintString; yourself)
 
     "Created: / 11-06-2008 / 01:05:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 15-02-2010 / 13:04:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !IRFunction methodsFor:'decompiling'!
@@ -500,13 +478,13 @@
 !IRFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRFunction.st,v 1.4 2009/10/08 11:59:08 fm Exp $'
+    ^ '$Id$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRFunction.st,v 1.4 2009/10/08 11:59:08 fm Exp $'
+    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRFunction.st,v 1.4 2009/10/08 11:59:08 fm Exp §'
 !
 
 version_SVN
-    ^ '$Id$'
+    ^ '$Id::                                                                                                                        $'
 ! !