texmacs
/
doc
mirror of https://github.com/texmacs/doc.git
1
0
Fork 0
Code

Doc: Added documentation for enum, choice, choices, tree-widget. 

Added test widget for tree-widget.
This commit is contained in:
Miguel de Benito 2014-01-01 01:24:16 +00:00
parent 687087a148
commit 812ee2a023
4 changed files with 332 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
devel/scheme/gui/scheme-gui-dialogs.en.tm
View File

@ -1,4 +1,4 @@
<TeXmacs|1.0.7.16>
<TeXmacs|1.0.7.21>
<style|tmdoc>
@ -147,7 +147,7 @@
Note that our second dialog, <scm|widget1-buttons> is just a copy of
<scm|widget1> with an extra line at the end. We could have spared us the
keytrokes in this way:
keystrokes in this way:
<\session|scheme|default>
<\unfolded-io|Scheme] >
@ -183,3 +183,6 @@
with no Back-Cover Texts. A copy of\nthe license is included in the section
entitled "GNU Free Documentation License".>
</body>
<initial|<\collection>
</collection>>

6
devel/scheme/gui/scheme-gui-intro.en.tm
View File

@ -1,4 +1,4 @@
<TeXmacs|1.0.7.19>
<TeXmacs|1.0.7.21>
<style|tmdoc>
@ -150,6 +150,10 @@
</input>
</session>
From here you can go on reading ``<hlink|Extending the graphical user
interface|scheme-gui.en.tm>'' or see the sample widgets in
<hlink|menu-test.scm|$TEXMACS_PATH/progs/kernel/gui/menu-test.scm>.
<tmdoc-copyright|2012|the <TeXmacs> team.>
<tmdoc-license|Permission is granted to copy, distribute and/or modify

318
devel/scheme/gui/scheme-gui-lists-trees.en.tm Normal file
View File

@ -0,0 +1,318 @@
<TeXmacs|1.0.7.21>
<style|tmdoc>
<\body>
<tmdoc-title|Displaying lists and trees>
<paragraph|Displaying lists with <scm|enum>, <scm|choice> and
<scm|choices>>
<\explain>
<scm|(enum <scm-arg|cmd> <scm-arg|items> <scm-arg|default>
<scm-arg|width>)><explain-synopsis|a combo box>
<|explain>
Builds a combo box which will execute <scm-arg|cmd> whenever the user
makes a choice. The <scm-arg|width> may be given in any <TeXmacs> length
unit.
<\session|scheme|default>
<\unfolded-io|Scheme] >
(tm-widget (test-enum)
\ \ (enum (display* "First " answer "\\n")
\ \ \ \ \ \ \ \ '("gnu" "gnat" "zebra")
\ \ \ \ \ \ \ \ "zebra" "10em")))
<|unfolded-io>
\;
</unfolded-io>
<\input|Scheme] >
(show test-enum)
</input>
</session>
</explain>
<\explain>
<scm|(choice <scm-arg|cmd> <scm-arg|items>
<scm-arg|default>)><explain-synopsis|a list of items allowing one to be
chosen>
<|explain>
Builds a list of items which will execute <scm-arg|cmd> whenever the user
makes a choice. <scm-arg|items> is a list, <scm-arg|default> a value.
Contrary to <scm|enum>, all items are displayed simultaneously. If one
desires scrollbars, the widget must be enclosed in a <scm|scrollable>
container. The width of the widget may be set using a <scm|resize>
widget.
<\session|scheme|default>
<\unfolded-io|Scheme] >
(tm-widget (test-choice)
\ \ (resize "200px" "50px"
\ \ \ \ (scrollable
\ \ \ \ \ \ (choice (display* answer "\\n")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ '("First" "Second" "Third" "Fourth"
"Fifth" "Sixth")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ "Third"))))
<|unfolded-io>
\;
</unfolded-io>
<\input|Scheme] >
(show test-choice)
</input>
</session>
</explain>
<\explain>
<scm|(choices <scm-arg|cmd> <scm-arg|items>
<scm-arg|defaults>)><explain-synopsis|a list of items allowing several to
be chosen>
<|explain>
Builds a list of items which will execute <scm-arg|cmd> whenever the user
makes a choice. Several items may be selected at the same time. Both
<scm-arg|items> and <scm-arg|defaults> are hence lists. Contrary to
<scm|enum>, all items are displayed simultaneously. If one desires
scrollbars, the widget must be enclosed in a <scm|scrollable> container.
The width of the widget may be set using a <scm|resize> widget.
<\session|scheme|default>
<\unfolded-io|Scheme] >
(tm-widget (test-choices)
\ \ (resize "200px" "100px"
\ \ \ \ (scrollable
\ \ \ \ \ \ (choices (display* answer "\\n")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ '("A" "B" "C" "D" "E" "F" "G" "H" "I"
"J" "K" "L")
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ '("B" "D" "F" "H" "J" "L")))))
<|unfolded-io>
\;
</unfolded-io>
<\input|Scheme] >
(show test-choices)
</input>
</session>
</explain>
<paragraph|Displaying trees with <scm|tree-widget>>
<\explain>
<scm|(tree-widget <scm-arg|data> <scm-arg|data-roles>)><explain-synopsis|a
tree view>
<|explain>
The <scm|tree-widget> provides a graphical representation of a <TeXmacs>
tree <scm-arg|data> (not a <scheme> tree!). This may be part of a
document or any other tree. The first node in <scm-arg|data> won't be
displayed. All other nodes may have attributes called <em|data roles>
which will determine the textual representation of the node, whether it
has some icon next to it and which one, etc. These attributes are simply
children of the nodes in <scm-arg|data> at predefined positions given by
the data roles specification in the argument <scm-arg|data-roles>. This
is a list of identifiers for each tree label present in the data. For
instance, with the following data roles specification:
<\scm-code>
(list
\ \ (library \ \ \ DisplayRole DecorationRole UserRole:1)
\ \ (collection DisplayRole UserRole:1))
</scm-code>
we use the data:
<\scm-code>
(root
\ \ (library "My bibliography" "icon.xpm" 12345
\ \ \ \ (collection "Cool stuff" 001)
\ \ \ \ (collection "Things to read" 002)
\ \ \ \ (collection "Current work" 003
\ \ \ \ \ \ (collection "Forever current" 004)
\ \ \ \ \ \ (collection "Read me" 005))))
</scm-code>
Notice that the node <scm|root> won't be displayed by the
<scm|tree-widget> and needs no data roles. Here <scm|UserRole:1> is used
to store database ids but it can be anything else. The supported data
roles are:
<\verbatim-code>
<\code>
DisplayRole \ \ \ \ \ \ \ ; a string to be displayed
EditRole \ \ \ \ \ \ \ \ \ \ ; a string valid for an editable
representation
ToolTipRole \ \ \ \ \ \ \ ; a small tooltip to display when the mouse
hovers over
StatusTipRole \ \ \ \ \ ; for the status bar (if present and
supported)
DecorationRole \ \ \ \ ; file name of an icon to use (in
$TEXMACS_PIXMAP_PATH)
CommandRole \ \ \ \ \ \ \ ; command to be executed when the user
(double?) clicks
UserRole:\<less\>number\<gtr\> \ ; left to user definition
</code>
</verbatim-code>
It is possible to omit the data role specification. By default the widget
will use the tree label's string representation as <scm|DisplayRole>,
<scm|EditRole>, <scm|ToolTipRole> and <scm|StatusTipRole>. For the
<scm|DecorationRole> it will try to load pixmaps named
<shell|treelabel.xpm> in <shell|$TEXMACS_PIXMAP_PATH>.
For an example see <scm|widget10> in <hlink|menu-test.scm|$TEXMACS_PATH/progs/kernel/gui/menu-test.scm>.
</explain>
<subparagraph|An example using data roles>
We build on the previous example:
<\session|scheme|default>
<\input|Scheme] >
(define t
\ \ (stree-\<gtr\>tree
\ \ \ '(root
\ \ \ \ \ (library "My bibliography" "icon.xpm" 12345
\ \ \ \ \ \ \ \ \ \ \ \ \ \ (collection "Cool stuff" 001)
\ \ \ \ \ \ \ \ \ \ \ \ \ \ (collection "Things to read" 002)
\ \ \ \ \ \ \ \ \ \ \ \ \ \ (collection "Current work" 003
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (collection
"Forever current" 004)
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (collection "Read
me" 005))))))
</input>
<\input|Scheme] >
(define dd
\ \ (stree-\<gtr\>tree
\ \ \ '(list (library DisplayRole DecorationRole UserRole:1)
\ \ \ \ \ \ \ \ \ \ (collection DisplayRole UserRole:1))))
</input>
<\unfolded-io|Scheme] >
(tm-widget (widget-library)
\ \ (resize ("150px" "400px" "9000px") ("300px" "600px" "9000px")
\ \ \ \ (vertical
\ \ \ \ \ \ (bold (text "Testing tree-view"))
\ \ \ \ \ \ ===
\ \ \ \ \ \ (tree-view t dd))))
<|unfolded-io>
\;
</unfolded-io>
<\input|Scheme] >
(top-window widget-library "Tree View")
</input>
</session>
<subparagraph|An example using the buffer tree>
We can even use the <scm|buffer-tree> as argument to <scm|tree-widget>.
Changes in the buffer will show up immediately in the widget. In this
example we use the default data role specification.
<\warning>
As of this writing (31 Dec. 2013) the <name|Qt> implementation is sloppy
and forces a full reloading of the data model for each <cpp|modification>
of the <cpp|tree>. The slowdown is already noticeable with documents of a
few pages like this one. Additionally, the current selection in the
widget is lost after each modification to the buffer (fixing this
requires writing a fully fledged <cpp|observer> and probably an
intermediate copy of the data).
</warning>
<\session|scheme|default>
<\unfolded-io|Scheme] >
(tm-widget (widget-buffer)
\ \ (resize ("150px" "400px" "9000px") ("300px" "600px" "9000px")
\ \ \ \ (vertical
\ \ \ \ \ \ (bold (text "Testing tree-view"))
\ \ \ \ \ \ ===
\ \ \ \ \ \ (tree-view (buffer-tree) (stree-\<gtr\>tree '(dummy))))))
<|unfolded-io>
\;
</unfolded-io>
<\input|Scheme] >
(top-window widget-buffer "Tree View")
</input>
</session>
<subparagraph|An example with the side tools>
If your <TeXmacs> has the side tools enabled, you can try this:
<\session|scheme|default>
<\unfolded-io|Scheme] >
(tm-widget (texmacs-side-tools)
\ \ (vertical
\ \ \ \ (hlist (glue #t #f 15 0) (text "Document tree:") (glue #t #f 15
0))
\ \ \ \ ---
\ \ \ \ (tree-view (buffer-tree) (stree-\<gtr\>tree '(unused)))))
<|unfolded-io>
\;
</unfolded-io>
</session>
<tmdoc-copyright|2013|the <TeXmacs> team.>
<tmdoc-license|Permission is granted to copy, distribute and/or modify
this\ndocument under the terms of the GNU Free Documentation License,
Version 1.1 or\nany later version published by the Free Software
Foundation; with no Invariant\nSections, with no Front-Cover Texts, and
with no Back-Cover Texts. A copy of\nthe license is included in the section
entitled "GNU Free Documentation License".>
</body>
<initial|<\collection>
</collection>>

4
devel/scheme/gui/scheme-gui.en.tm
View File

@ -1,4 +1,4 @@
<TeXmacs|1.0.7.16>
<TeXmacs|1.0.7.21>
<style|tmdoc>
@ -25,6 +25,8 @@
<branch|Menus and toolbars.|scheme-gui-menus.en.tm>
<branch|Displaying lists and trees.|scheme-gui-lists-trees.en.tm>
<branch|Dialogs and composite widgets.|scheme-gui-dialogs.en.tm>
<branch|Forms.|scheme-gui-forms.en.tm>