CBNB-12-PURPS

(EXAMPLE
     :NAME                   CBNB-12-PURPS
     :GENERATEDFORM          "Pro ukončení křivky stiskněte Enter."
     :GLOSS                  ( :ENGLISH
                               "For ending.cb/acc polyline.nb/gen press enter.nb"
                               )
     :TARGETFORM             "Pro ukončení křivky stiskněte ENTER."
     :LOGICALFORM
     (R / RST-PURPOSE
          :SPEECHACT IMPERATIVE
          :DOMAIN
          (P / DM::PRESS
               :SPEECHACT IMPERATIVE
               :ACTEE
               (D / OBJECT
                    :NAME GUI-RETURN
                    :CONTEXTUAL-BOUNDNESS NO )
               )

          :RANGE
          (E / DM::END-LINE
               :ACTEE
               (P2 / DM::POLYLINE
                    :CONTEXTUAL-BOUNDNESS NO )

               :CONTEXTUAL-BOUNDNESS YES )
          )
     :SET-NAME               |TBCbNb|
     )

Return to index. )

Return to index.