mirror of https://github.com/texmacs/doc.git
Doc: Added documentation for enum, choice, choices, tree-widget.
Added test widget for tree-widget.
This commit is contained in:
Miguel de Benito
parent
687087a148
commit
812ee2a023
|
|
@ -1,4 +1,4 @@
|
||||||
<TeXmacs|1.0.7.16>
|
<TeXmacs|1.0.7.21>
|
||||||
|
|
||||||
<style|tmdoc>
|
<style|tmdoc>
|
||||||
|
|
||||||
|
|
@ -147,7 +147,7 @@
|
||||||
|
|
||||||
Note that our second dialog, <scm|widget1-buttons> is just a copy of
|
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
|
<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>
|
<\session|scheme|default>
|
||||||
<\unfolded-io|Scheme] >
|
<\unfolded-io|Scheme] >
|
||||||
|
|
@ -182,4 +182,7 @@
|
||||||
Foundation; with no Invariant\nSections, with no Front-Cover Texts, and
|
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
|
with no Back-Cover Texts. A copy of\nthe license is included in the section
|
||||||
entitled "GNU Free Documentation License".>
|
entitled "GNU Free Documentation License".>
|
||||||
</body>
|
</body>
|
||||||
|
|
||||||
|
<initial|<\collection>
|
||||||
|
</collection>>
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
<TeXmacs|1.0.7.19>
|
<TeXmacs|1.0.7.21>
|
||||||
|
|
||||||
<style|tmdoc>
|
<style|tmdoc>
|
||||||
|
|
||||||
|
|
@ -150,6 +150,10 @@
|
||||||
</input>
|
</input>
|
||||||
</session>
|
</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-copyright|2012|the <TeXmacs> team.>
|
||||||
|
|
||||||
<tmdoc-license|Permission is granted to copy, distribute and/or modify
|
<tmdoc-license|Permission is granted to copy, distribute and/or modify
|
||||||
|
|
|
||||||
|
|
@ -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>>
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
<TeXmacs|1.0.7.16>
|
<TeXmacs|1.0.7.21>
|
||||||
|
|
||||||
<style|tmdoc>
|
<style|tmdoc>
|
||||||
|
|
||||||
|
|
@ -25,6 +25,8 @@
|
||||||
|
|
||||||
<branch|Menus and toolbars.|scheme-gui-menus.en.tm>
|
<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|Dialogs and composite widgets.|scheme-gui-dialogs.en.tm>
|
||||||
|
|
||||||
<branch|Forms.|scheme-gui-forms.en.tm>
|
<branch|Forms.|scheme-gui-forms.en.tm>
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue