--- a/ApplicationModel.st	Mon Oct 10 09:29:07 2016 +0200
+++ b/ApplicationModel.st	Tue Oct 11 16:23:39 2016 +0200
@@ -616,39 +616,99 @@
 !ApplicationModel class methodsFor:'font specs'!
 
 buttonFont
+    "that is a symbolic font"
+    
     <resource: #fontSpec>
 
     ^ Button defaultFont  
 !
 
+buttonFontSmall
+    "that is a symbolic font"
+
+    <resource: #fontSpec>
+
+    ^ self smallFontFor:(self buttonFont)
+!
+
 inputFont
+    "that is a symbolic font"
+
     <resource: #fontSpec>
 
     ^ EditField defaultFont  
 !
 
+inputFontSmall
+    "that is a symbolic font"
+
+    <resource: #fontSpec>
+
+    ^ self smallFontFor:(self inputFont)
+!
+
 labelFont
+    "that is a symbolic font"
+
     <resource: #fontSpec>
 
     ^ Label defaultFont  
 !
 
+labelFontSmall
+    "that is a symbolic font"
+
+    <resource: #fontSpec>
+
+    ^ self smallFontFor:(self labelFont)
+!
+
 listFont
+    "that is a symbolic font"
+
     <resource: #fontSpec>
 
     ^ SelectionInListView defaultFont  
 !
 
+listFontSmall
+    "that is a symbolic font"
+
+    <resource: #fontSpec>
+
+    ^ self smallFontFor:(self listFont)
+!
+
 menuFont
+    "that is a symbolic font"
+
     <resource: #fontSpec>
 
     ^ MenuView defaultFont  
 !
 
+smallFontFor:aFont
+    |newSize|
+    
+    newSize := aFont size * 0.8.
+    newSize := newSize rounded asInteger.
+    ^ aFont asSize:newSize.
+!
+
 textFont
+    "that is a symbolic font"
+
     <resource: #fontSpec>
 
     ^ TextView defaultFont  
+!
+
+textFontSmall
+    "that is a symbolic font"
+
+    <resource: #fontSpec>
+
+    ^ self smallFontFor:(self textFont)
 ! !
 
 !ApplicationModel class methodsFor:'help'!