;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: dojo/src/djbutton.lisp $

;;; Copyright (c) 2008, Andrea Chiumenti.  All rights reserved.

;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:

;;;   * Redistributions of source code must retain the above copyright
;;;     notice, this list of conditions and the following disclaimer.

;;;   * Redistributions in binary form must reproduce the above
;;;     copyright notice, this list of conditions and the following
;;;     disclaimer in the documentation and/or other materials
;;;     provided with the distribution.

;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

(in-package :dojo)

(defclass djbutton (djwidget)
  ()
  (:metaclass metacomponent)
  (:documentation "Class for dojo dijit.form.Button component. More info at http://api.dojotoolkit.org/")
  (:default-initargs :dojo-type "dijit.form.Button"))

(defclass djdrop-down-button (djwidget)
  ()
  (:metaclass metacomponent)
  (:documentation "Class for dojo dijit.form.DropDownButton component. More info at http://api.dojotoolkit.org/")
  (:default-initargs :dojo-type "dijit.form.DropDownButton" :dojo-require (list "dijit.form.Button")))


(defclass djcombo-button (djwidget)
  ()
  (:metaclass metacomponent)
  (:documentation "Class for dojo dijit.form.ComboButton component. More info at http://api.dojotoolkit.org/")
  (:default-initargs :dojo-type "dijit.form.ComboButton" :dojo-require (list "dijit.form.Button")))


(defclass djtoggle-button (djwidget)
  ()
  (:metaclass metacomponent)
  (:documentation "Class for dojo dijit.form.ToggleButton component. More info at http://api.dojotoolkit.org/")
  (:default-initargs :dojo-type "dijit.form.ToggleButton" :dojo-require (list "dijit.form.Button")))


;;;--------------------------------------------------------
(defclass djsubmit-button (csubmit)
  ((form :initform nil
         :accessor djsubmit-button-form))
  (:metaclass metacomponent)
  (:documentation "This class is used to render dijit.form.Button that incorporates the logic to be included inside a CFORM component."))

(defmethod wcomponent-template ((obj djsubmit-button))
  (let* ((id (htcomponent-client-id obj))
	 (value (csubmit-value obj)))
    (djbutton> :static-id id
               (wcomponent-informal-parameters obj)
               value)))

(defmethod wcomponent-before-prerender ((obj djsubmit-button) (page page))
  (hunchentoot:log-message :info "PRERENDER@@@@@@@@@@@@@@@~a" (page-current-form page))
  (setf (djsubmit-button-form obj) (page-current-form page)))

(defmethod wcomponent-before-render ((obj djsubmit-button) (page page))
  (hunchentoot:log-message :info "RENDER@@@@@@@@@@@@@@@~a" (page-current-form page))
  (setf (djsubmit-button-form obj) (page-current-form page)))

(defmethod htcomponent-instance-initscript ((obj djsubmit-button))
  (let ((id (htcomponent-client-id obj))
        (form-id (htcomponent-client-id (djsubmit-button-form obj))))
    (ps*
     `(dojo.connect (dijit.by-id ,id)
                    "onClick"
                    (lambda (e) (let ((the-form (dijit.by-id ,form-id)))
                                  (unless the-form
                                    (setf the-form (dojo.by-id ,form-id)))
                                  (.submit the-form)))))))