Changeset 4 in project
- Timestamp:
- 11/02/05 22:22:46 (15 years ago)
- Files:
-
- 258 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
aquaterm/aquaterm.html
r1 r4 507 507 <h3>Examples</h3> 508 508 <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) 509 Error: (open-input-file) can not open file - No such file or directory: "aquaterm-demo.html" 511 510 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: 514 512 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! <>) 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))) ((>= 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->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))) ((>= 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))) ((>= 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> (< 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> (< 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> (< 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> (< 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 <> '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->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 <chust@web.de>. 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 "AS 771 IS" 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">< Egg index</a> 784 <div id="revision-history">$Revision$ $Date$</div> </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 40 40 <ul> 41 41 <li>1.16 42 Fixed several bugs in property-getting code [Thanks to John] 42 Fixed several bugs in property-getting code [Thanks to John]; <code>bb:add!</code> 43 can replace current selection in text-editor widget 43 44 <li>1.15 44 45 Fixed bug in <code>bb:show</code> [Thanks to Markus Hösmann] … … 538 539 [procedure] (bb:add! LISTWIDGET TEXT [POSITION]) 539 540 [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> 541 543 </dt><dd>If <code>WIDGET</code> is a <code>menu-bar</code>, <code>choice-button</code> or 542 544 <code>menu-button</code>, <code>bb:add!</code> adds a new menu with the text … … 558 560 <code>entry</code> or <code>text-edit</code> widget, <code>ITEM</code> 559 561 should be a string, which will be added to the end of the existing text. 562 In case of a <code>text-editor</code>, the optional boolean argument <code>REPLACE</code> 563 indicates whether the text should be inserted, or the current selection be replaced. 560 564 561 565 </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 57 57 bb:group bb:run bb:redraw bb:show bb:select-file bb:rgb bb:image bb:select-color 58 58 bb:event bb:image-data) ) 59 60 (require-extension srfi-17)61 59 62 60 (define-record widget type ptr name resources parent children) … … 766 764 (if (widget? text) 767 765 (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) ) ) ) ) ] ) ) 769 773 770 774 (define (delete-callback ptr tbl) -
postgresql/postgresql.html
r1 r4 57 57 <h3>Version:</h3> 58 58 <ul> 59 <li>2.0.7 - Added missing error-function [Thanks to Reed Sheridan] 59 60 <li>2.0.6 - Removed dependency on format [Thanks to Reed Sheridan] 60 61 <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 58 58 enum ExecStatusType PQresultStatus (const PGresult *res); 59 59 char *PQresultErrorMessage (const PGresult *res); 60 char *PQerrorMessage(const PGconn *conn); 60 61 void PQclear (PGresult *res); 61 62 int PQntuples (const PGresult *res);
Note: See TracChangeset
for help on using the changeset viewer.