;; $Id: decorations.scm,v 1.4 1998/08/02 23:35:34 gjb Exp $
;; (scwm-path-prefix)
;; (documentation "resize-to")
;;

(use-modules (app scwm base)
	     (app scwm winops)
	     (app scwm winlist)
	     (app scwm wininfo)
             (app scwm style)
	     (app scwm face)
	     (app scwm optargs)
	     (app scwm std-menus)
	     (app scwm decor)
	     (app scwm prefs-menu)
	     (app scwm doc)
	     (app scwm flux)
	     (app scwm fvwm-module)
	     )

(resize-to 500 400 (select-window-interactively "Resize me"))

(define w (select-window-interactively))

;; (X-server-set-synchronize! #t)
(normal-border w)
(plain-border w)

(window-style "FvwmWinList" #:no-titlebar #t)

(define doc-files        ; '("/usr/src/scwm/doc/scwm-procedures.txt")
  (list (string-append (scwm-path-prefix) "/share/scwm/scwm-procedures.txt")
	(string-append (scwm-path-prefix) "/share/scwm/cassowary-scm-procedures.txt")))

(normal-border (current-window-with-focus))
(plain-border (current-window-with-focus))

;; from gjb.scwmrc
(window-style "*" 
	      #:fg "black" #:bg "grey76" 
	      #:icon #f ;; this turns off icons, but leaves icon titles
	      #:show-icon #f ;; this turns off both icon titles and icons
	      #:icon-box (list (x- 70) 1 69 (y- 141))
	      #:border-width 4 ;; MS borderwidth of 4 looks slightly better
	                       ;; to my eye than 3.
	      #:focus 'mouse

;	      #:plain-border #t ;; replaces handle-width
				;; MS no, it replaces no-handles, plus
	                        ;; it doesn't work right now.
	      #:sticky-icon #t
	      #:random-placement #t #:smart-placement #t
	      #:mwm-func-hint #t #:mwm-decor-hint #t
	      #:int-override #t #:decorate-transient #f
	      #:PPosition-hint #f
	      #:mini-icon pic-xterm-mini)

;; from system.scwmrc
(window-style "*" 
	      #:fg "white" #:bg "purple" 
	      #:icon "unknown1.xpm" 
	      #:icon-box (list (x- 70) 1 69 (y- 141))
	      #:border-width 6 
	      #:focus 'mouse
	      #:random-placement #t #:smart-placement #t
	      #:mwm-func-hint #t #:mwm-decor-hint #t
	      #:int-override #t #:decorate-transient #t
	      #:PPosition-hint #f
	      #:lenience #t
	      )


(define fvwm-decor (make-decor))

(begin 
  (with-decor fvwm-decor
	      (title-style #:justify 'center #:relief 'raised
			   #:font times-14)
	      (border-style #:no-inset #f #:hidden-handles #f)
;;; Big Lighting Bolt (Fat at top, comes to a point)
;;	      (button-style 1 #:relief-pattern
;;			    '((35 15 #t) (20 50 #t) (40 50 #f) (30 80 #t) 
;;					 (75 40 #f) (50 40 #t) (75 15 #f) 
;;					 (35 15 #t)))
;;; large up triangle
	      (button-style 2 #:relief-pattern
			    '((50 25 #t) (75 75 #f) (25 75 #f) (50 25 #t)))
;;; large down triangle
	    (button-style 4 #:relief-pattern
			  '((50 75 #t) (25 25 #t) (75 25 #t) (50 75 #f)))
	    (set-hilight-foreground! "black")
	    (set-hilight-background! "salmon"))

  (define fvwm-style 
    (make-style #:fg "black" #:bg "tan" #:show-icon #t
		#:border-width 10 #:mwm-border #f
		#:mwm-buttons #f
		#:use-decor fvwm-decor))
 
  
  (window-style "*" #:use-style fvwm-style)
  )

(refresh)

;;I want my windows to have no borders and a plain flat titlebar (twm
;;look). I've tried to do this with this style:

(define std-decor (make-decor))

(define font12
  (make-font "-adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"))

(with-decor std-decor
  (title-style #:font font12 #:justify 'left #:relief 'flat)
  (button-style 1 #:relief 'flat #:pixmap "iconify.xpm")
  (button-style 2 #:relief 'flat #:pixmap "resize.xpm")
  (button-style 3 #:relief 'flat #:pixmap "close.xpm")
  (set-hilight-background! "salmon")
  )

(define std-style
  (make-style #:border-width 0 #:plain-border #t #:use-decor std-decor))

(window-style "xlogo" #:use-style std-style)

;; This does not work as I expected. The top resize bar is not removed
;; and is now drawn in the title bar instead of the border. Plain-border
;; seems to only remove the shading of the handles. Setting a
;; border-width of 10 shows that this is also the same for the other
;; handles. Is this a bug or am I missing something here?
;; fixed --07/29/98 gjb