sawfish r4228 - in trunk: . lisp/sawfish/wm

[chrisb svn gnome org]

Author: chrisb
Date: Mon Jul 28 20:15:09 2008
New Revision: 4228
URL: http://svn.gnome.org/viewvc/sawfish?rev=4228&view=rev

Log:
also remove themer references from lisp/sawfish/wm/frames.jl


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/frames.jl

Modified: trunk/lisp/sawfish/wm/frames.jl
==============================================================================
--- trunk/lisp/sawfish/wm/frames.jl	(original)
+++ trunk/lisp/sawfish/wm/frames.jl	Mon Jul 28 20:15:09 2008
@@ -189,9 +189,6 @@
   ;; files they were loaded from; used to check if the theme needs reloading
   (define frame-style-files nil)
 
-  ;; List of styles that can be edited using sawfish-themer
-  (define editable-frame-styles nil)
-
   (define frame-type-mappers '()
     "List of functions that map (WINDOW FRAME-TYPE) -> FRAME-TYPE. Used when
 deciding which frame type to ask a theme to generate.")
@@ -205,8 +202,6 @@
   (defvar themes-are-gaolled t
     "When non-nil themes are assumed to be malicious.")
 
-  (defvar sawfish-themer-program "sawfish-themer")
-
 
 ;;; defcustom's for some built-in variables
 
@@ -363,15 +358,6 @@
 
   (define (frame-style-editable-p style) (memq style editable-frame-styles))
 
-  (define-command 'edit-frame-style
-    (lambda (style)
-      (if (not (memq style editable-frame-styles))
-	  (error "Frame style isn't editable")
-	(let ((dir (find-frame-style style)))
-	  (when dir
-	    (system (format nil "%s %s &" sawfish-themer-program dir))))))
-    #:spec (lambda () (list default-frame-style)))
-
 
 ;;; kludge different window decors by modifying the assumed window type