Tabbed: give a nice description

2025-08-01 12:41:52 -07:00 · 2007-09-28 05:26:08 +00:00
parent 2323b1408c
commit 1593bb54cd
1 changed files with 1 additions and 0 deletions
--- a/Tabbed.hs
+++ b/Tabbed.hs
@@ -107,6 +107,7 @@ whenIJus INothin _ = return ()
 instance Layout Tabbed Window where
    doLayout (Tabbed mst conf) = doLay mst conf
    handleMessage              = handleMess
+    description _              = "Tabbed"

 instance Read FontStruct where
    readsPrec _ _ = []