--- a/extensions.st	Fri Sep 14 18:40:57 2018 +0200
+++ b/extensions.st	Fri Sep 14 21:37:08 2018 +0200
@@ -246,6 +246,8 @@
 !Block methodsFor:'inspecting'!
 
 inspector2TabClassOfHome
+    "another tab browsing the block's home method"
+    
     <inspector2Tab>
 
     |homeMethod mclass|
@@ -261,6 +263,7 @@
     ^ nil
 
     "Created: / 14-09-2018 / 18:21:52 / Claus Gittinger"
+    "Modified (comment): / 14-09-2018 / 21:34:01 / Claus Gittinger"
 ! !
 
 !Block methodsFor:'inspecting'!
@@ -466,27 +469,26 @@
 !ChangeSet methodsFor:'inspecting'!
 
 inspector2TabBrowser
+    "another tab browsing the changeset"
+
+    <inspector2Tab>
 
     ^self newInspector2Tab
-	label: 'Changes';
-	priority: 35;
-	"JV@2011-08-06: Cannot do 'UserPreferences current changeSetBrowserClass'
-	 here since ChangeSetBrowser has no #on: and it is not an application model.
-	 Thus, enforce Tools::ChangeSetBrowser2 here..."
-	application: ((Tools::ChangeSetBrowser2 on: self) beOneColumn; yourself)
+        label: 'Changes';
+        priority: 35;
+        "JV@2011-08-06: Cannot do 'UserPreferences current changeSetBrowserClass'
+         here since ChangeSetBrowser has no #on: and it is not an application model.
+         Thus, enforce Tools::ChangeSetBrowser2 here..."
+        application: ((Tools::ChangeSetBrowser2 on: self) beOneColumn; yourself)
+
+    "
+     ChangeSet current inspect
+    "
 
     "Modified: / 25-07-2011 / 12:22:07 / sr"
     "Modified: / 06-08-2011 / 21:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 13-09-2011 / 11:55:53 / cg"
-! !
-
-!ChangeSet methodsFor:'inspecting'!
-
-inspector2Tabs
-    ^ super inspector2Tabs , #( inspector2TabBrowser )
-
-    "Created: / 05-07-2011 / 13:40:19 / cg"
-    "Modified: / 13-02-2015 / 21:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 14-09-2018 / 21:34:47 / Claus Gittinger"
 ! !
 
 !Character methodsFor:'inspecting'!
@@ -1115,6 +1117,47 @@
     "Modified (comment): / 14-09-2018 / 18:27:06 / Claus Gittinger"
 ! !
 
+!FontDescription methodsFor:'inspecting'!
+
+inspector2TabCharacterSet
+    "an extra tab showing the font"
+
+    <inspector2Tab>
+
+    |v|
+
+    CharacterSetView 
+            openOn:self 
+            in:(v := View new) 
+            label:'font' clickLabel:nil asInputFor:nil encoder:nil.
+
+    ^ self newInspector2Tab
+        label: 'Font';
+        priority: 50;
+        view: (HVScrollableView forView:v)
+
+    "Modified: / 14-09-2018 / 21:35:45 / Claus Gittinger"
+! !
+
+!FontDescription methodsFor:'inspecting'!
+
+inspector2TabPreview
+    "an extra tab showing the quick brown fox"
+
+    <inspector2Tab>
+
+    ^ self newInspector2Tab
+        label: 'Preview';
+        priority: 50;
+        view: (TextView new
+                contents:'The quick brown fox jumps over the lazy dog';
+                font:self;
+                yourself)
+
+    "Created: / 07-06-2018 / 18:34:32 / Claus Gittinger"
+    "Modified: / 14-09-2018 / 21:35:39 / Claus Gittinger"
+! !
+
 !Form methodsFor:'misc ui support'!
 
 inspectorClass