[snow-cvs] r63 - trunk/src/lisp/snow

[Alessio Stalla]

Author: astalla
Date: Tue Feb 23 11:45:54 2010
New Revision: 63

Log:
renamed with-widget to simply widget


Modified:
   trunk/src/lisp/snow/inspector.lisp
   trunk/src/lisp/snow/packages.lisp
   trunk/src/lisp/snow/snow.lisp

Modified: trunk/src/lisp/snow/inspector.lisp
==============================================================================
--- trunk/src/lisp/snow/inspector.lisp	(original)
+++ trunk/src/lisp/snow/inspector.lisp	Tue Feb 23 11:45:54 2010
@@ -104,8 +104,8 @@
     (panel (:id panel
 	    :layout-manager '(:box :y))
       (scroll (:layout "grow, wrap")
-	(with-widget ((text-area :text (object-description descr))
-		                 :id txt :layout "grow")
+	(widget ((text-area :text (object-description descr))
+		 :id txt :layout "grow")
 	  (setf (widget-property txt :line-wrap) (jbool t))));Swing specific!!!
       (bwhen (parts (object-parts descr))
 	(with-parent-widget panel

Modified: trunk/src/lisp/snow/packages.lisp
==============================================================================
--- trunk/src/lisp/snow/packages.lisp	(original)
+++ trunk/src/lisp/snow/packages.lisp	Tue Feb 23 11:45:54 2010
@@ -108,8 +108,8 @@
     #:self
     #:str
     #:syntax
+    #:widget
     #:with-gui
-    #:with-widget
     ;;Java
     #:invoke
     #:new))

Modified: trunk/src/lisp/snow/snow.lisp
==============================================================================
--- trunk/src/lisp/snow/snow.lisp	(original)
+++ trunk/src/lisp/snow/snow.lisp	Tue Feb 23 11:45:54 2010
@@ -257,7 +257,7 @@
     (jproperty-value *backing-bean* property-name)
     widget))
 
-(define-widget-macro with-widget
+(define-widget-macro widget
     ((widget &rest args &key &common-widget-args) &body body)
     `(dont-add (maybe-extract-widget-from-backing-bean ,widget))
   `(progn