[Morphologie-cvs] r17 - trunk/src

ksprotte at common-lisp.net ksprotte at common-lisp.net
Fri Jul 6 13:25:36 UTC 2007


Author: ksprotte
Date: Fri Jul  6 09:25:35 2007
New Revision: 17

Modified:
   trunk/src/morphologie.lisp
Log:
some menu correctionsome menu correctionss


Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Fri Jul  6 09:25:35 2007
@@ -1447,7 +1447,7 @@
     (position-if #'match list-dom)))
 
 (define-box ins-ptrn ((seq (1 2 3 4 1 2 5 3 4)) (ptrn ((1 2 3 4) (1 2)))
-		       &optional (prof 1) (set nil) (marg 0))
+		       &optional (prof 1) (set nil) (marg 3))
   "Finds the pattern(s) PTRN in list seq with or without
 up to a number prof inserted items;
 Return each pattern and its start positions.
@@ -3188,7 +3188,7 @@
 	     dove (= n (- (length list1) 1)). In questo caso si puo' decidere con il
 	     menù se avere la prima ricorsione per completare list2."
   :non-generic t
-  :menu (list2 (1 "ltd") (2 "copl"))
+  :menu (total (1 "ltd") (2 "copl"))
   (case total
     (1 (inter-profile list1 list2))
     (2
@@ -3919,7 +3919,7 @@
 		     remarkable-nodes)))
 
 (define-box draw-tree ((tree nil) &optional (nodes nil) (name nil)
-			(fontname "times") (fontsize 12) (fontstyle "normal"))
+			(fontname "times") (fontsize 12) (fontstyle :normal))
   "Draw in a new window a graphic representation of the Prim tree.
 TREE :  a tree list from Prim-tree.
 Optional arguments :
@@ -3932,7 +3932,7 @@
   :menu (fontname ("geneva" "Geneva") ("helvetica" "Helvetica")
 		  ("monaco" "Monaco") ("new york" "New York") ("times" "Times"))
   :menu (fontsize (9 "9") (10 "10") (12 "12") (14 "14") (18 "18"))
-  :menu (fontstyle (nil "normal") (:bold "bold"))
+  :menu (fontstyle (:normal "normal") (:bold "bold"))
   (let* ((window-name
 	  (if name
 	      (cond ((stringp name) name) ((symbolp name) (string name)))



More information about the Morphologie-cvs mailing list