Changeset 4 in project


Ignore:
Timestamp:
11/02/05 22:22:46 (14 years ago)
Author:
felix winkelmann
Message:

added missing files

Files:
258 added
5 edited

Legend:

Unmodified
Added
Removed
  • aquaterm/aquaterm.html

    r1 r4  
    507507<h3>Examples</h3>
    508508<div id="examples">
    509 <p>The following code is a free translation of the C API demo program shipped with AquaTerm. Most of the functionality of the library is demonstrated here.</p><pre>
    510 (use extras aquaterm)
     509Error: (open-input-file) can not open file - No such file or directory: "aquaterm-demo.html"
    511510
    512 <i><font color="#B22222">;; initialize the library
    513 </font></i>(unless (aqt:init) (error <font color="#BC8F8F"><b>"could not initialize AquaTerm"</b></font>))
     511        Call history:
    514512
    515 <i><font color="#B22222">;; open a plot for drawing
    516 </font></i>(aqt:open-plot 1)
    517 (aqt:set-plot-size! 620 420)
    518 (aqt:set-plot-title! <font color="#BC8F8F"><b>"Testview"</b></font>)
    519 
    520 <i><font color="#B22222">;; set colormap
    521 </font></i>(<b><font color="#A020F0">let</font></b> next ((i 0)
    522            (colors
    523             '((1.0 1.0 1.0) <i><font color="#B22222">;; white
    524 </font></i>           (0.0 0.0 0.0) <i><font color="#B22222">;; black
    525 </font></i>           (1.0 0.0 0.0) <i><font color="#B22222">;; red
    526 </font></i>           (0.0 1.0 0.0) <i><font color="#B22222">;; green
    527 </font></i>           (0.0 0.0 1.0) <i><font color="#B22222">;; blue
    528 </font></i>           (1.0 0.0 1.0) <i><font color="#B22222">;; purple
    529 </font></i>           (1.0 1.0 0.5) <i><font color="#B22222">;; yellow
    530 </font></i>           (0.0 0.5 0.5)))) <i><font color="#B22222">;; dark-green
    531 </font></i>  (apply aqt:set-colormap-entry! i (car colors))
    532   (unless (null? (cdr colors))
    533     (next (add1 i) (cdr colors))))
    534 
    535 <i><font color="#B22222">;; set color explicitly
    536 </font></i>(aqt:set-color! 0.0 0.0 0.0)
    537 (aqt:set-fontname! <font color="#BC8F8F"><b>"Helvetica"</b></font>)
    538 (aqt:set-fontsize! 12)
    539 (aqt:add-label! <font color="#BC8F8F"><b>"Testview 620x420 pt"</b></font>  4 412 0 'left 'middle)
    540 
    541 <i><font color="#B22222">;; frame the plot
    542 </font></i>(aqt:move-to! 20 20)
    543 (for-each
    544  (cute apply aqt:add-line-to! &lt;&gt;)
    545  '((600  20)
    546    (600 400)
    547    ( 20 400)
    548    ( 20  20)))
    549 (aqt:add-label! <font color="#BC8F8F"><b>"Frame 600x400 pt"</b></font> 24 30 0 'left 'middle)
    550 
    551 <i><font color="#B22222">;; colormap
    552 </font></i>(aqt:add-label!
    553  (sprintf <font color="#BC8F8F"><b>"Custom colormap (8 out of ~a)"</b></font> (aqt:colormap-size))
    554  30 390 0 'left 'middle)
    555 
    556 (aqt:set-color! 0.8 0.8 0.8)
    557 (aqt:add-filled-rect! 28 348 24 24)
    558 (<b><font color="#A020F0">do</font></b> ((i 0 (add1 i))) ((&gt;= i 8))
    559   (aqt:take-color-from-colormap-entry! i)
    560   (aqt:add-filled-rect! (+ 30 (* i 30)) 350 20 20)
    561   (aqt:set-color! 0.5 0.5 0.5)
    562   (aqt:add-label! (number-&gt;string i) (+ 40 (* i 30)) 360 0 'center 'middle))
    563 
    564 <i><font color="#B22222">;; continuous colors
    565 </font></i>(aqt:take-color-from-colormap-entry! 1)
    566 (aqt:add-label! <font color="#BC8F8F"><b>"\"Any color you like\""</b></font> 320 390 0 'left 'middle)
    567 (aqt:set-linewidth! 1)
    568 (<b><font color="#A020F0">do</font></b> ((i 0 (add1 i))) ((&gt;= i 256))
    569   (<b><font color="#A020F0">let*</font></b> ((f (/ i 255)) (g (- 1 f)))
    570     (aqt:set-color! 1 f (/ f 2))
    571     (aqt:add-filled-rect! (+ 320 i) 350 1 20)
    572     (aqt:set-color! 0 f g)
    573     (aqt:add-filled-rect! (+ 320 i) 328 1 20)
    574     (aqt:set-color! g g g)
    575     (aqt:add-filled-rect! (+ 320 i) 306 1 20)))
    576 
    577 <i><font color="#B22222">;; lines
    578 </font></i>(aqt:take-color-from-colormap-entry! 1)
    579 (<b><font color="#A020F0">do</font></b> ((f 1 (+ f 2))) ((&gt;= f 13))
    580   (<b><font color="#A020F0">let</font></b> ((lw (/ f 2)) (g (+ 200.5 (* f 10))))
    581     (aqt:set-linewidth! lw)
    582     (aqt:move-to! 30 g)
    583     (aqt:add-line-to! 200 g)
    584     (aqt:add-label!
    585      (sprintf <font color="#BC8F8F"><b>"linewidth ~a"</b></font> lw) 210 (add1 g) 0 'left 'middle)))
    586 
    587 <i><font color="#B22222">;; linecap styles
    588 </font></i>(aqt:add-label! <font color="#BC8F8F"><b>"(aqt:set-linecap-style! ..."</b></font> 43 190.5 0 'left 'middle)
    589 (<b><font color="#A020F0">let</font></b> next ((styles '(butt round square)) (y 170.5))
    590   (aqt:set-linewidth! 11)
    591   (aqt:take-color-from-colormap-entry! 1)
    592   (aqt:set-line-cap-style! (car styles))
    593   (aqt:move-to! 40.5 y)
    594   (aqt:add-line-to! 150.5 y)
    595   (aqt:add-label!
    596    (sprintf <font color="#BC8F8F"><b>"... '~a)"</b></font> (car styles))
    597    160.5 y 0 'left 'middle)
    598   (aqt:set-linewidth! 1)
    599   (aqt:take-color-from-colormap-entry! 6)
    600   (aqt:move-to! 40.5 y)
    601   (aqt:add-line-to! 150.5 y)
    602   (unless (null? (cdr styles))
    603     (next (cdr styles) (- y 20))))
    604 
    605 <i><font color="#B22222">;; line joins
    606 </font></i>(aqt:take-color-from-colormap-entry! 1)
    607 (aqt:add-label! <font color="#BC8F8F"><b>"Line joins:"</b></font> 43 90 0 'left 'middle)
    608 
    609 (for-each
    610  (<b><font color="#A020F0">lambda</font></b> (xs)
    611    (aqt:set-linewidth! 11)
    612    (aqt:take-color-from-colormap-entry! 1)
    613    (aqt:set-line-cap-style! 'butt)
    614    (aqt:move-to! (vector-ref xs 0) 50)
    615    (aqt:add-line-to! (vector-ref xs 1) 70)
    616    (aqt:add-line-to! (vector-ref xs 2) 50)
    617    (aqt:set-linewidth! 1)
    618    (aqt:take-color-from-colormap-entry! 6)
    619    (aqt:move-to! (vector-ref xs 0) 50)
    620    (aqt:add-line-to! (vector-ref xs 1) 70)
    621    (aqt:add-line-to! (vector-ref xs 2) 50))
    622  '(#(40 75 110)
    623    #(130 150 170)
    624    #(190 200 210)))
    625 
    626 <i><font color="#B22222">;; polygons
    627 </font></i>(aqt:take-color-from-colormap-entry! 1)
    628 (aqt:add-label! <font color="#BC8F8F"><b>"Polygons"</b></font> 320 290 0 'left 'middle)
    629 
    630 (aqt:take-color-from-colormap-entry! 2)
    631 (aqt:add-polygon!
    632  (<b><font color="#A020F0">let</font></b> more ((i 0))
    633    (<b><font color="#A020F0">if</font></b> (&lt; i 4)
    634        (cons
    635         (<b><font color="#A020F0">let</font></b> ((rad (* i (asin 1))))
    636           (list (+ 340 (* 20 (cos rad))) (+ 255 (* 20 (sin rad)))))
    637         (more (add1 i)))
    638        '())))
    639 
    640 (<b><font color="#A020F0">let</font></b> ((ps (<b><font color="#A020F0">let</font></b> more ((i 0))
    641             (<b><font color="#A020F0">if</font></b> (&lt; i 5)
    642                 (cons
    643                  (<b><font color="#A020F0">let</font></b> ((rad (* i (acos -1) 0.8)))
    644                    (list
    645                     (+ 400 (* 20 (cos rad)))
    646                     (+ 255 (* 20 (sin rad)))))
    647                  (more (add1 i)))
    648                 '()))))
    649   (aqt:take-color-from-colormap-entry! 3)
    650   (aqt:add-polygon! ps)
    651   (aqt:take-color-from-colormap-entry! 1)
    652   (aqt:add-polyline! (append ps (list (car ps)))))
    653 
    654 (aqt:take-color-from-colormap-entry! 4)
    655 (aqt:add-polygon!
    656  (<b><font color="#A020F0">let</font></b> more ((i 0))
    657    (<b><font color="#A020F0">if</font></b> (&lt; i 8)
    658        (cons
    659         (<b><font color="#A020F0">let</font></b> ((rad (* i (asin 1) 0.5)))
    660           (list (+ 460 (* 20 (cos rad))) (+ 255 (* 20 (sin rad)))))
    661         (more (add1 i)))
    662        '())))
    663 
    664 (aqt:take-color-from-colormap-entry! 5)
    665 (aqt:add-polygon!
    666  (<b><font color="#A020F0">let</font></b> more ((i 0))
    667    (<b><font color="#A020F0">if</font></b> (&lt; i 32)
    668        (cons
    669         (<b><font color="#A020F0">let</font></b> ((rad (* i (asin 1) 0.125)))
    670           (list (+ 520 (* 20 (cos rad))) (+ 255 (* 20 (sin rad)))))
    671         (more (add1 i)))
    672        '())))
    673 
    674 <i><font color="#B22222">;; images
    675 </font></i>(aqt:take-color-from-colormap-entry! 1)
    676 (aqt:add-label! <font color="#BC8F8F"><b>"Images"</b></font> 320 220 0 'left 'middle)
    677 
    678 (<b><font color="#A020F0">let</font></b> ((img <font color="#BC8F8F"><b>"\xFF\x00\x00\x00\xFF\x00\x00\x00\xFF\x00\x00\x00"</b></font>))
    679   (aqt:add-image-with-bitmap! img 2 2 328 200 4 4)
    680   (aqt:add-label! <font color="#BC8F8F"><b>"bits"</b></font> 330 180 0 'center 'middle)
    681   (aqt:add-image-with-bitmap! img 2 2 360 190 40 15)
    682   (aqt:add-label! <font color="#BC8F8F"><b>"fit bounds"</b></font> 380 180 0 'center 'middle)
    683   (aqt:set-image-transform! 9.23880 3.82683 -3.82683 9.23880 494.6 186.9)
    684   (aqt:add-transformed-image-with-bitmap! img 2 2 0 0 600 400)
    685   (aqt:add-label! <font color="#BC8F8F"><b>"scale, rotate and translate"</b></font> 500 180 0 'center 'middle)
    686   (aqt:reset-image-transform!))
    687 
    688 <i><font color="#B22222">;; text
    689 </font></i>(for-each
    690  (<b><font color="#A020F0">lambda</font></b> (as)
    691    (aqt:take-color-from-colormap-entry! (vector-ref as 0))
    692    (aqt:set-fontname! (vector-ref as 1))
    693    (aqt:set-fontsize! (vector-ref as 2))
    694    (aqt:add-label!
    695     (sprintf <font color="#BC8F8F"><b>"~a ~a pt"</b></font> (vector-ref as 1) (vector-ref as 2))
    696     320 (vector-ref as 3) 0 'left 'middle))
    697  '(#(1 <font color="#BC8F8F"><b>"Times-Roman"</b></font> 16 150)
    698    #(2 <font color="#BC8F8F"><b>"Times-Italic"</b></font> 16 130)
    699    #(4 <font color="#BC8F8F"><b>"Zapfino"</b></font> 12 100)))
    700 
    701 (aqt:take-color-from-colormap-entry! 2)
    702 (aqt:set-linewidth! 0.5)
    703 (aqt:move-to! 510.5 160)
    704 (aqt:add-line-to! 510.5 100)
    705 
    706 (aqt:add-polyline!
    707  '((545.5 75.5) (535.5 75.5) (540.5 75.5) (540.5 70.5) (540.5 80.5)))
    708 
    709 (aqt:take-color-from-colormap-entry! 1)
    710 (aqt:set-fontname! <font color="#BC8F8F"><b>"Verdana"</b></font>)
    711 (aqt:set-fontsize! 10)
    712 (<b><font color="#A020F0">let</font></b> next ((as '(left center right)) (y 150))
    713   (aqt:add-label! (sprintf <font color="#BC8F8F"><b>"~a-aligned"</b></font> (car as)) 510.5 y 0 (car as) 'middle)
    714   (unless (null? (cdr as))
    715     (next (cdr as) (- y 20))))
    716 
    717 (aqt:set-fontname! <font color="#BC8F8F"><b>"Times-Roman"</b></font>)
    718 (aqt:set-fontsize! 14)
    719 (for-each
    720  (cute aqt:add-label! <font color="#BC8F8F"><b>"-rotate"</b></font> 540.5 75.5 &lt;&gt; 'left 'middle)
    721  '(90 45 -30 -60 -90))
    722 
    723 <i><font color="#B22222">;; string styling is not possible through the C interface
    724 </font></i>(aqt:set-fontsize! 12)
    725 (aqt:add-label!
    726  <font color="#BC8F8F"><b>"No string styling from Scheme, sorry"</b></font> 320 75 0 'left 'middle)
    727 
    728 (aqt:take-color-from-colormap-entry! 2)
    729 (aqt:set-linewidth! 0.5)
    730 (aqt:move-to! 320 45.5)
    731 (aqt:add-line-to! 520 45.5)
    732 (aqt:take-color-from-colormap-entry! 1)
    733 (aqt:set-fontname! <font color="#BC8F8F"><b>"Times-Italic"</b></font>)
    734 (aqt:set-fontsize! 14)
    735 (<b><font color="#A020F0">let</font></b> next ((as '(top bottom middle baseline)) (x 330))
    736   (aqt:add-label! (symbol-&gt;string (car as)) x 45.5 0 'left (car as))
    737   (unless (null? (cdr as))
    738     (next (cdr as) (+ x 45))))
    739 
    740 <i><font color="#B22222">;; draw it all
    741 </font></i>(aqt:render-plot!)
    742 
    743 <i><font color="#B22222">;; wait for events
    744 </font></i>(<b><font color="#A020F0">let</font></b> loop ()
    745   (<b><font color="#A020F0">let</font></b> ((evt (aqt:wait-next-event)))
    746     (unless (<b><font color="#A020F0">and</font></b> evt (pair? evt) (eq? (car evt) 'key) (eq? (caddr evt) #\q))
    747       (display <font color="#BC8F8F"><b>"unhandled event: "</b></font>) (write evt) (newline)
    748       (loop))))
    749 
    750 <i><font color="#B22222">;; let go of it when done
    751 </font></i>(aqt:close-plot!)
    752 (aqt:terminate)
    753 </pre></div></div>
    754 <div class="section">
    755 <h3>License</h3>
    756 <pre id="license">Copyright (c) 2005, Thomas Chust &lt;chust@web.de&gt;.  All rights reserved.
    757 
    758 Redistribution and use in source and binary forms, with or without
    759 modification, are permitted provided that the following conditions are met:
    760 
    761   Redistributions of source code must retain the above copyright notice,
    762   this list of conditions and the following disclaimer. Redistributions in
    763   binary form must reproduce the above copyright notice, this list of
    764   conditions and the following disclaimer in the documentation and/or
    765   other materials provided with the distribution. Neither the name of the
    766   author nor the names of its contributors may be used to endorse or
    767   promote products derived from this software without specific prior
    768   written permission.
    769 
    770 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS &quot;AS
    771 IS&quot; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
    772 THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
    773 PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
    774 CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
    775 EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
    776 PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
    777 PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
    778 LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
    779 NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
    780 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.</pre></div></div></div>
    781 <div id="footer">
    782 <hr />
    783 <a href="index.html">&lt; Egg index</a>
    784 <div id="revision-history">$Revision$ $Date$</div>&nbsp;</div></body></html>
     513        <eval>          (##sys#list (quote td) (##sys#list (quote tt) (quote "#f")))
     514        <eval>          (##sys#list (quote tt) (quote "#f"))
     515        <eval>          (##sys#list (quote td) (quote "No event was received."))
     516        <eval>          (##sys#list (quote tr) (##sys#list (quote td) (##sys#list (quote tt) (quote "('mouse (x y) button)"))) (##sys#list (quote td) (quote "The mouse-button with the number ") (##sys#list (quote tt) (quote "button")) (quote " was clicked at the position ") (##sys#list (quote tt) (quote "x, y")) (quote " in plot coordinates.")))
     517        <eval>          (##sys#list (quote td) (##sys#list (quote tt) (quote "('mouse (x y) button)")))
     518        <eval>          (##sys#list (quote tt) (quote "('mouse (x y) button)"))
     519        <eval>          (##sys#list (quote td) (quote "The mouse-button with the number ") (##sys#list (quote tt) (quote "button")) (quote " was clicked at the position ") (##sys#list (quote tt) (quote "x, y")) (quote " in plot coordinates."))
     520        <eval>          (##sys#list (quote tt) (quote "button"))
     521        <eval>          (##sys#list (quote tt) (quote "x, y"))
     522        <eval>          (##sys#list (quote tr) (##sys#list (quote td) (##sys#list (quote tt) (quote "('key (x y) key)"))) (##sys#list (quote td) (quote "The key corresponding to the character ") (##sys#list (quote tt) (quote "key")) (quote " was clicked while the mouse was at the position ") (##sys#list (quote tt) (quote "x, y")) (quote " in plot coordinates.")))
     523        <eval>          (##sys#list (quote td) (##sys#list (quote tt) (quote "('key (x y) key)")))
     524        <eval>          (##sys#list (quote tt) (quote "('key (x y) key)"))
     525        <eval>          (##sys#list (quote td) (quote "The key corresponding to the character ") (##sys#list (quote tt) (quote "key")) (quote " was clicked while the mouse was at the position ") (##sys#list (quote tt) (quote "x, y")) (quote " in plot coordinates."))
     526        <eval>          (##sys#list (quote tt) (quote "key"))
     527        <eval>          (##sys#list (quote tt) (quote "x, y"))
     528        <eval>          (##sys#list (quote p) (quote "Should the event returned from the library encode an error, a continuable exception of the composite kind ") (##sys#list (quote tt) (quote "(exn aquaterm)")) (quote " is thrown, which has an additional property ") (##sys#list (quote tt) (quote "type")) (quote " holding either the symbol ") (##sys#list (quote tt) (quote "server")) (quote " or ") (##sys#list (quote tt) (quote "general")) (quote " depending on the source of the error."))
     529        <eval>          (##sys#list (quote tt) (quote "(exn aquaterm)"))
     530        <eval>          (##sys#list (quote tt) (quote "type"))
     531        <eval>          (##sys#list (quote tt) (quote "server"))
     532        <eval>          (##sys#list (quote tt) (quote "general"))
     533        <eval>          (##sys#list (quote procedure) (quote "(aqt:wait-next-event) => <list|boolean>") (##sys#list (quote p) (quote "Works analogous to ") (##sys#list (quote tt) (quote "aqt:get-last-event")) (quote " but blocks and waits for an event instead of returning immediately.")))
     534        <eval>          (##sys#list (quote p) (quote "Works analogous to ") (##sys#list (quote tt) (quote "aqt:get-last-event")) (quote " but blocks and waits for an event instead of returning immediately."))
     535        <eval>          (##sys#list (quote tt) (quote "aqt:get-last-event"))
     536        <eval>          (##sys#list (quote examples) (##sys#list (quote p) (quote "The following code is a free translation of the C API demo program shipped with AquaTerm. Most of the functionality of the library is demonstrated here.")) pull-aquaterm-demo-code-in)
     537        <eval>          (##sys#list (quote p) (quote "The following code is a free translation of the C API demo program shipped with AquaTerm. Most of the functionality of the library is demonstrated here."))
     538        <eval>          (##sys#list (quote license) (quote "Copyright (c) 2005, Thomas Chust <chust@web.de>.  All rights reserved.\n\nRedistribution and use in source and binary forms, with or without\nmodification, are permitted provided that the following conditions are met:\n\n  Redistributions of source code must retain the above copyright notice,\n  this list of conditions and the following disclaimer. Redistributions in\n  binary form must reproduce the above copyright notice, this list of\n  conditions and the following disclaimer in the documentation and/or\n  other materials provided with the distribution. Neither the name of the\n  author nor the names of its contributors may be used to endorse or\n  promote products derived from this software without specific prior\n  written permission.\n\nTHIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS\nIS\" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,\nTHE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR\nPURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR\nCONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,\nEXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,\nPROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR\nPROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF\nLIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING\nNEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\nSOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."))
     539        <eval>          (eggdoc->html doc (eggdoc:make-stylesheet doc))
     540        <eval>          (eggdoc:make-stylesheet doc)
     541        <eval>          (write-shtml-as-html (car ((sxpath (quote (// pre))) (call-with-input-file "aquaterm-demo.html" html->sxml))))
     542        <eval>          (car ((sxpath (quote (// pre))) (call-with-input-file "aquaterm-demo.html" html->sxml)))
     543        <eval>          ((sxpath (quote (// pre))) (call-with-input-file "aquaterm-demo.html" html->sxml))
     544        <eval>          (call-with-input-file "aquaterm-demo.html" html->sxml)  <--
     545<p>The following code is a free translation of the C API demo program shipped with AquaTerm. Most of the functionality of the library is demonstrated here.</p>
  • bb/bb.html

    r3 r4  
    4040<ul>
    4141<li>1.16
    42 Fixed several bugs in property-getting code [Thanks to John]
     42Fixed several bugs in property-getting code [Thanks to John]; <code>bb:add!</code>
     43can replace current selection in text-editor widget
    4344<li>1.15
    4445Fixed bug in <code>bb:show</code> [Thanks to Markus H&ouml;smann]
     
    538539[procedure] (bb:add! LISTWIDGET TEXT [POSITION])
    539540[procedure] (bb:add! TREEWIDGET TEXT [PARENT [POSITION [SUBWIDGET]])
    540 [procedure] (bb:add! TABLEWIDGET [CELLTEXT ...])</b></pre>
     541[procedure] (bb:add! TABLEWIDGET [CELLTEXT ...])
     542[procedure] (bb:add! TEXTEDITOR TEXT [REPLACE])</b></pre>
    541543</dt><dd>If <code>WIDGET</code> is a <code>menu-bar</code>, <code>choice-button</code> or
    542544<code>menu-button</code>, <code>bb:add!</code> adds a new menu with the text
     
    558560<code>entry</code> or <code>text-edit</code> widget, <code>ITEM</code>
    559561should be a string, which will be added to the end of the existing text.
     562In case of a <code>text-editor</code>, the optional boolean argument <code>REPLACE</code>
     563indicates whether the text should be inserted, or the current selection be replaced.
    560564
    561565</p><p>If <code>WIDGET</code> is a <code>list</code>, the <code>ITEM</code> should be a string, which will added to the list
  • bb/bb.scm

    r1 r4  
    5757         bb:group bb:run bb:redraw bb:show bb:select-file bb:rgb bb:image bb:select-color
    5858         bb:event bb:image-data) )
    59 
    60 (require-extension srfi-17)
    6159
    6260(define-record widget type ptr name resources parent children)
     
    766764     (if (widget? text)
    767765         (bb:AddWidget w text)
    768          (bb:AddItem w text (:optional more -1)) ) ] ) )
     766         (bb:AddItem
     767          w text
     768          (let ((m (:optional more -1)))
     769            (case m
     770              ((#t) 1)
     771              ((#f) 0)
     772              (else m) ) ) ) ) ] ) )
    769773
    770774(define (delete-callback ptr tbl)
  • postgresql/postgresql.html

    r1 r4  
    5757<h3>Version:</h3>
    5858<ul>
     59<li>2.0.7 - Added missing error-function [Thanks to Reed Sheridan]
    5960<li>2.0.6 - Removed dependency on format [Thanks to Reed Sheridan]
    6061<li>2.0.5 - Some bugfixes and <code>pq:escape-string</code> by Reed Sheridan; adapted to SRFI-69 hash-tables
  • postgresql/postgresql.scm

    r1 r4  
    5858enum ExecStatusType PQresultStatus (const PGresult *res);
    5959char     *PQresultErrorMessage (const PGresult *res);
     60char     *PQerrorMessage(const PGconn *conn);
    6061void      PQclear (PGresult *res);
    6162int       PQntuples (const PGresult *res);
Note: See TracChangeset for help on using the changeset viewer.