Changeset 15054 for lang/gauche

Show
Ignore:
Timestamp:
07/02/08 22:34:21 (6 months ago)
Author:
kiyoka
Message:

Added "comment" command.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua

    r14311 r15054  
    334334       (a/ (@/ (href (string-append (oldtype:static-base-path) "oldtype-mode.el"))) 
    335335           "[Download oldtype-mode.el now]")) 
     336 
     337      ;; input comment 
     338      ((comment) 
     339       (form/ (@/ (action ".")) 
     340              (table/ 
     341               (tr/ (th/ "Name:") 
     342                    (td/ (input/ 
     343                          (@/ (type "text") (value "") (size 20))))) 
     344               (tr/ (th/ "Comment:") 
     345                    (td/ (input/ 
     346                          (@/ (type "text") (value "") (size 120))))) 
     347               (tr/ (th/ "") 
     348                    (td/ (input/ (@/ (type "submit") (value "Add")))))))) 
     349                     
    336350      (else 
    337351       `(p/ ,(format "!!Error : no such macro \"~a\"!!" command))))))