[sawfish/tabs-ng] fix Elberg-tabbed and get-S-tabbed to be able to be used without restarting sawfish

[Christopher Bratusek <chrisb src gnome org>]

commit fc48109e0eca39f2f5939af73b87b31812dff869
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Fri Nov 12 19:05:07 2010 +0100

    fix Elberg-tabbed and get-S-tabbed
    to be able to be used without restarting sawfish

 themes/Elberg-tabbed/theme.jl |    3 +--
 themes/get-S-tabbed/theme.jl  |    3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)
---
diff --git a/themes/Elberg-tabbed/theme.jl b/themes/Elberg-tabbed/theme.jl
index 6d348f9..bee03e3 100644
--- a/themes/Elberg-tabbed/theme.jl
+++ b/themes/Elberg-tabbed/theme.jl
@@ -488,9 +488,8 @@
                          ((shaped-transient) shaped-transient-frame))))
 
 (define (create-frames-only w)
-  (lambda ()
     (when (eq (window-get w 'current-frame-style) 'Elberg-tabbed)
-      (create-frames))))
+      (create-frames)))
 
 ;; Create only frames, don't rebuild-frame/reframe-window.
 ;; Tabthemes will reframe/rebuild windows call from tabgroup.jl.
diff --git a/themes/get-S-tabbed/theme.jl b/themes/get-S-tabbed/theme.jl
index 86c19f1..4f2c166 100644
--- a/themes/get-S-tabbed/theme.jl
+++ b/themes/get-S-tabbed/theme.jl
@@ -326,9 +326,8 @@
                          ((shaped-transient) shaped-transient-frame))))
 
 (define (create-frames-only w)
-  (lambda ()
     (when (eq (window-get w 'current-frame-style) 'get-S-tabbed)
-      (create-frames))))
+      (create-frames)))
 
 ;; Create only frames, don't rebuild-frame/reframe-window.
 ;; Tabthemes will reframe/rebuild windows call from tabgroup.jl.