The clim-widgets Reference Manual

3.1.1 clim-widgets/clim-widgets.asd

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

ASDF Systems

clim-widgets.

---

3.1.2 clim-widgets/package.lisp

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Packages

• cw-clock.
• cw-examples.
• cw-utils.
• clim-widgets.
• cw-calendar.
• cw-treeview.

---

3.1.3 clim-widgets/cw-utils.lisp

Dependency

package.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Public Interface

• key (method).
• key (method).
• nodes (special variable).
• pack (function).
• sym2stg (function).
• t2h (function).
• t2h-r (function).
• textsize (symbol macro).

Internals

• pack-leaves (function).
• pega (function).
• rmapcar (function).
• stg (function).
• t2h-r% (function).
• tira (function).

---

3.1.4 clim-widgets/clim-widgets.lisp

Dependency

cw-utils.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

---

3.1.5 clim-widgets/calendar.lisp

Dependency

clim-widgets.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Public Interface

• calendar (function).
• update-instance-for-redefined-class (method).

Internals

• cal (class).
• change-m (function).
• change-m%parser (function).
• change-y (function).
• change-y%parser (function).
• d (reader method).
• (setf d) (writer method).
• days (special variable).
• define-cal-command (macro).
• disp-day-nr (macro).
• disp-fn (macro).
• get-date (function).
• get-date%parser (function).
• layout1 (function).
• layout2 (function).
• m (reader method).
• (setf m) (writer method).
• mp (macro).
• reinitialize-panes-and-layouts (method).
• s (macro).
• start (function).
• switch-layout (function).
• switch-layout%parser (function).
• todays-date (function).
• todays-date%parser (function).
• y (reader method).
• (setf y) (writer method).

---

3.1.6 clim-widgets/clock.lisp

Dependency

calendar.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Public Interface

• clock (function).
• digital-clock-eu (function).

Internals

• clock-eu% (function).
• face-dec-eu (function).
• hand (function).
• hand-s (symbol macro).
• hand-s (function).
• tics (function).
• uset (macro).

---

3.1.7 clim-widgets/tree-view.lisp

Dependency

clock.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Public Interface

• childnode-is-youngestsibling (method).
• children (method).
• children (reader method).
• children (method).
• (setf children) (writer method).
• define-node-methods (macro).
• display-tree (method).
• group (reader method).
• (setf group) (writer method).
• item-name (method).
• item-name (method).
• item-name (method).
• item-name (method).
• item-name (method).
• leaf (class).
• list-dir (function).
• name (reader method).
• (setf name) (writer method).
• node (class).
• node-p (generic function).
• tree (class).
• tree-view (function).
• treeview (function).
• update-instance-for-redefined-class (method).

Internals

• bar (function).
• bar% (function).
• d (symbol macro).
• dashed-lines (special variable).
• define-tree-command (macro).
• disp-tree (method).
• disp-tree (method).
• disp-tree (method).
• draw-icon (function).
• get-children (generic function).
• grid (special variable).
• grid (method).
• icon (special variable).
• indent (reader method).
• (setf indent) (writer method).
• item (class).
• leaf-fs (class).
• m (function).
• node-fs (class).
• p (function).
• plus (function).
• pointr (function).
• pointr% (function).
• ptype (reader method).
• (setf ptype) (writer method).
• rect (function).
• reinitialize-panes-and-layouts (method).
• show-children (reader method).
• (setf show-children) (writer method).
• spc (function).
• toggle (method).
• tri-m (function).
• tri-p (function).
• triangle (function).
• triangle2 (function).
• txt-size (function).
• txt-size%parser (function).
• txtsize (reader method).
• (setf txtsize) (writer method).
• youngest-child (reader method).
• (setf youngest-child) (writer method).

---

3.1.8 clim-widgets/cw-examples.lisp

Dependency

tree-view.lisp (file).

Source

clim-widgets.asd.

Parent Component

clim-widgets (system).

Public Interface

• childnode-is-youngestsibling (method).
• childnode-is-youngestsibling (method).
• children (method).
• children (method).
• children (method).
• item-name (method).
• item-name (method).
• item-name (method).
• item-name (method).
• item-name (method).
• item-name (method).
• node-p (method).
• node-p (method).
• update-instance-for-redefined-class (method).
• update-instance-for-redefined-class (method).
• update-instance-for-redefined-class (method).

Internals

• class-browser (class).
• class-browser1 (function).
• class-browser2 (function).
• define-class-browser-command (macro).
• define-icd9it-command (macro).
• define-pkg-doc-command (macro).
• disp-pkg-info (method).
• filter-with-init (function).
• get-children (method).
• get-children (method).
• get-children (method).
• group-by-first-letter (function).
• ht (special variable).
• icd-test (function).
• icd9it (class).
• icds (special variable).
• info (reader method).
• info (reader method).
• info (reader method).
• (setf info) (writer method).
• (setf info) (writer method).
• (setf info) (writer method).
• leaf-88 (class).
• leaf-cb (class).
• leaf-pkg (class).
• node-88 (class).
• node-cb (class).
• node-pkg (class).
• packages (function).
• packages%parser (function).
• pkg-doc (function).
• pkg-doc (class).
• pkg-list (special variable).
• present-symbols%% (function).
• proc (macro).
• reinitialize-panes-and-layouts (method).
• reinitialize-panes-and-layouts (method).
• reinitialize-panes-and-layouts (method).
• run-all-examples (function).
• show-childreno (method).
• show-childreno (method).
• show-info (function).
• show-info%parser (function).
• stgtree (special variable).
• symtree (special variable).
• view-deb-available (function).
• view-deb-installed (function).
• view-exe (function).
• xx (function).
• xx%parser (function).
• xxx (function).
• xxx%parser (function).

---

5.1.1 Special variables

Special Variable: nodes ¶

Package

cw-utils.

Source

cw-utils.lisp.

---

5.1.2 Symbol macros

Symbol Macro: textsize ¶

Package

cw-utils.

Source

cw-utils.lisp.

---

5.1.3 Macros

Macro: define-node-methods (&key nc cc nn ln gc cp cy) ¶

Define subclasses of node and leaf CLASSES with corresponding METHODS to get the childs of a node. All these classes and methods can also be defined, subclassed, etc. in the normal way. Keyword arguments:
:nc node class
:cc children class
:nn node name
:ln leaf name
:gc supply a form that returns a list of a node’s children ### ev cl for children-list <—- :cp supply a form to test if a child is node or leaf
:cy supply a function to test for equality o child nodes
See view directory for an example usage

Package

cw-treeview.

Source

tree-view.lisp.

---

5.1.4 Ordinary functions

Function: calendar (&optional month year) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: clock () ¶

Package

cw-clock.

Source

clock.lisp.

Function: digital-clock-eu () ¶

Package

cw-clock.

Source

clock.lisp.

Function: list-dir (d) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: pack (l) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: sym2stg (l) ¶

transform a symbol-tree into a downcase string-tree

Package

cw-utils.

Source

cw-utils.lisp.

Function: t2h (tree) ¶

tree to hash-table, key is a superior, val is a list of inferiors

Package

cw-utils.

Source

cw-utils.lisp.

Function: t2h-r (l) ¶

insert into an emtpy ht

Package

cw-utils.

Source

cw-utils.lisp.

Function: tree-view (group &optional frame ptype &key left top right bottom pretty-name &allow-other-keys) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: treeview (tree &optional key) ¶

view a tree

Package

cw-treeview.

Source

tree-view.lisp.

---

5.1.5 Generic functions

Generic Function: childnode-is-youngestsibling (n ch) ¶

Package

cw-treeview.

Methods

Method: childnode-is-youngestsibling ((n string) ch) ¶

Source

cw-examples.lisp.

Method: childnode-is-youngestsibling ((n symbol) ch) ¶

Source

cw-examples.lisp.

Method: childnode-is-youngestsibling ((n pathname) ch) ¶

Source

tree-view.lisp.

Generic Function: children (object) ¶

Package

cw-treeview.

Methods

Method: children :before ((n node-pkg)) ¶

create children-instances

Source

cw-examples.lisp.

Method: children :before ((n node-cb)) ¶

create children-instances

Source

cw-examples.lisp.

Method: children :before ((n node-88)) ¶

create children-instances

Source

cw-examples.lisp.

Method: children :before ((n node-fs)) ¶

create children-instances

Source

tree-view.lisp.

Reader Method: children :before ((n node)) ¶

create children-instances

Source

tree-view.lisp.

Target Slot

children.

Method: children ((node node)) ¶

list of children with attributes such as indentation, node or leaf, youngest-child

Source

tree-view.lisp.

Generic Writer: (setf children) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf children) ((node node)) ¶

list of children with attributes such as indentation, node or leaf, youngest-child

Source

tree-view.lisp.

Target Slot

children.

Generic Function: display-tree (f p) ¶

Package

cw-treeview.

Methods

Method: display-tree ((f tree) p) ¶

Source

tree-view.lisp.

Generic Reader: group (object) ¶

Generic Writer: (setf group) (object) ¶

Package

cw-treeview.

Methods

Reader Method: group ((tree tree)) ¶

Writer Method: (setf group) ((tree tree)) ¶

group is an object of a node-class

Source

tree-view.lisp.

Target Slot

group.

Generic Function: item-name (n) ¶

Package

cw-treeview.

Methods

Method: item-name ((n leaf-pkg)) ¶

Source

cw-examples.lisp.

Method: item-name ((n node-pkg)) ¶

Source

cw-examples.lisp.

Method: item-name ((n leaf-cb)) ¶

Source

cw-examples.lisp.

Method: item-name ((n node-cb)) ¶

Source

cw-examples.lisp.

Method: item-name ((n leaf-88)) ¶

Source

cw-examples.lisp.

Method: item-name ((n node-88)) ¶

Source

cw-examples.lisp.

Method: item-name ((n leaf-fs)) ¶

Source

tree-view.lisp.

Method: item-name ((n node-fs)) ¶

Source

tree-view.lisp.

Method: item-name ((n leaf)) ¶

Source

tree-view.lisp.

Method: item-name ((n node)) ¶

Source

tree-view.lisp.

Method: item-name (n) ¶

Source

tree-view.lisp.

Generic Function: key (s) ¶

Package

cw-utils.

Methods

Method: key ((s string)) ¶

Source

cw-utils.lisp.

Method: key ((s symbol)) ¶

Source

cw-utils.lisp.

Generic Reader: name (object) ¶

Package

cw-treeview.

Methods

Reader Method: name ((item item)) ¶

automatically generated reader method

Source

tree-view.lisp.

Target Slot

name.

Generic Writer: (setf name) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf name) ((item item)) ¶

automatically generated writer method

Source

tree-view.lisp.

Target Slot

name.

Generic Function: node-p (n) ¶

test if child is node or leaf

Package

cw-treeview.

Source

tree-view.lisp.

Methods

Method: node-p ((n string)) ¶

Source

cw-examples.lisp.

Method: node-p ((n symbol)) ¶

Source

cw-examples.lisp.

Method: node-p ((n pathname)) ¶

---

5.1.6 Standalone methods

Method: update-instance-for-redefined-class :after ((instance icd9it) as ds pl &rest initargs) ¶

Source

cw-examples.lisp.

Method: update-instance-for-redefined-class :after ((instance class-browser) as ds pl &rest initargs) ¶

Source

cw-examples.lisp.

Method: update-instance-for-redefined-class :after ((instance pkg-doc) as ds pl &rest initargs) ¶

Source

cw-examples.lisp.

Method: update-instance-for-redefined-class :after ((instance cal) as ds pl &rest initargs) ¶

Source

calendar.lisp.

Method: update-instance-for-redefined-class :after ((instance tree) as ds pl &rest initargs) ¶

Source

tree-view.lisp.

---

5.1.7 Classes

Class: leaf ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct superclasses

item.

Direct subclasses

• leaf-88.
• leaf-cb.
• leaf-fs.
• leaf-pkg.

Direct methods

• disp-tree.
• item-name.

Class: node ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct superclasses

item.

Direct subclasses

• node-88.
• node-cb.
• node-fs.
• node-pkg.

Direct methods

• children.
• (setf children).
• children.
• disp-tree.
• get-children.
• item-name.
• (setf show-children).
• show-children.
• (setf youngest-child).
• youngest-child.

Direct slots

Slot: children ¶

list of children with attributes such as indentation, node or leaf, youngest-child

Readers

children.

Writers

(setf children).

Slot: youngest-child ¶

Initform

t

Initargs

:youngest-child

Readers

youngest-child.

Writers

(setf youngest-child).

Slot: show-children ¶

boolean

Initargs

:show-children

Readers

show-children.

Writers

(setf show-children).

Class: tree ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct superclasses

standard-application-frame.

Direct subclasses

• class-browser.
• icd9it.
• pkg-doc.

Direct methods

• display-tree.
• (setf group).
• group.
• (setf ptype).
• ptype.
• reinitialize-panes-and-layouts.
• (setf txtsize).
• txtsize.
• update-instance-for-redefined-class.

Direct Default Initargs

Initarg	Value
:name	(quote tree)
:pretty-name	tree
:command-table	(find-command-table (quote tree))
:disabled-commands	(quote nil)
:menu-bar	(quote t)
:pointer-documentation	(quote nil)
:current-layout	(quote default)
:layouts	(quote ((default single-pane)))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote single-pane) (coerce-pane-name (make-pane (quote application-pane) display-function (quote display-tree) incremental-redisplay t end-of-line-action allow end-of-page-action allow) (quote single-pane))))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((single-pane (assoc-value named-panes (quote single-pane) test (function eq)))) (declare (ignorable single-pane)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (default single-pane))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: txtsize ¶

Initform

:normal

Readers

txtsize.

Writers

(setf txtsize).

Slot: group ¶

group is an object of a node-class

Initargs

:group

Readers

group.

Writers

(setf group).

Slot: ptype ¶

Initargs

:ptype

Readers

ptype.

Writers

(setf ptype).

---

5.2.1 Special variables

Special Variable: dashed-lines ¶

Package

cw-treeview.

Source

tree-view.lisp.

Special Variable: days ¶

Package

cw-calendar.

Source

calendar.lisp.

Special Variable: grid ¶

Package

cw-treeview.

Source

tree-view.lisp.

Special Variable: ht ¶

Package

cw-examples.

Source

cw-examples.lisp.

Special Variable: icds ¶

Package

cw-examples.

Source

cw-examples.lisp.

Special Variable: icon ¶

Package

cw-treeview.

Source

tree-view.lisp.

Special Variable: pkg-list ¶

Package

cw-examples.

Source

cw-examples.lisp.

Special Variable: stgtree ¶

Package

cw-examples.

Source

cw-examples.lisp.

Special Variable: symtree ¶

Package

cw-examples.

Source

cw-examples.lisp.

---

5.2.2 Symbol macros

Symbol Macro: d ¶

Package

cw-treeview.

Source

tree-view.lisp.

Symbol Macro: hand-s ¶

Package

cw-clock.

Source

clock.lisp.

---

5.2.3 Macros

Macro: define-cal-command (name-and-options arguments &rest body) ¶

Package

cw-calendar.

Source

calendar.lisp.

Macro: define-class-browser-command (name-and-options arguments &rest body) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Macro: define-icd9it-command (name-and-options arguments &rest body) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Macro: define-pkg-doc-command (name-and-options arguments &rest body) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Macro: define-tree-command (name-and-options arguments &rest body) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Macro: disp-day-nr () ¶

Package

cw-calendar.

Source

calendar.lisp.

Macro: disp-fn (rc) ¶

Package

cw-calendar.

Source

calendar.lisp.

Macro: mp (d-fn) ¶

Package

cw-calendar.

Source

calendar.lisp.

Macro: proc (fn) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Macro: s () ¶

Package

cw-calendar.

Source

calendar.lisp.

Macro: uset (n) ¶

dec 60, doz 72

Package

cw-clock.

Source

clock.lisp.

---

5.2.4 Ordinary functions

Function: bar (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: bar% (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: change-m (c) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: change-m%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: change-y (c) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: change-y%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: class-browser1 (key) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: class-browser2 (key) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: clock-eu% (l n f ts) ¶

Package

cw-clock.

Source

clock.lisp.

Function: draw-icon (s group) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: face-dec-eu (s) ¶

Package

cw-clock.

Source

clock.lisp.

Function: filter-with-init (words init) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: get-date (date) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: get-date%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: group-by-first-letter (words) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: hand (f ink l w tr) ¶

Package

cw-clock.

Source

clock.lisp.

Function: hand-s (s ink l w tr) ¶

Package

cw-clock.

Source

clock.lisp.

Function: icd-test (tree &optional key) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: layout1 (f p) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: layout2 (f p) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: m (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: p (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: pack-leaves (l) ¶

recursive pack every leaf-node into parentheses

Package

cw-utils.

Source

cw-utils.lisp.

Function: packages () ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: packages%parser (arg del str) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: pega (l) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: pkg-doc (&optional pkg) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: plus (s x y o) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: pointr (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: pointr% (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: present-symbols%% (pkg) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: rect (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: rmapcar (fn &rest args) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: run-all-examples () ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: show-info (item) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: show-info%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: spc (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: start (m y) ¶

returns the start-date, i.e. the first of 7x6=42 dates, as an instance e.g #<SIMPLE-DATE-TIME:DATE-TIME 2014-07-27 00:00:00.000 {100654EAF3}>

Package

cw-calendar.

Source

calendar.lisp.

Function: stg (sym) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: switch-layout (c) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: switch-layout%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: t2h-r% (l) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: tics (s n l) ¶

Package

cw-clock.

Source

clock.lisp.

Function: tira (l) ¶

Package

cw-utils.

Source

cw-utils.lisp.

Function: todays-date (c) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: todays-date%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-calendar.

Source

calendar.lisp.

Function: tri-m (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: tri-p (s) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: triangle (s x y o) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: triangle2 (s x y o) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: txt-size () ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: txt-size%parser (arg del str) ¶

Package

cw-treeview.

Source

tree-view.lisp.

Function: view-deb-available () ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: view-deb-installed () ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: view-exe () ¶

list executables on a linux computer

Package

cw-examples.

Source

cw-examples.lisp.

Function: xx (item) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: xx%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: xxx (item) ¶

Package

cw-examples.

Source

cw-examples.lisp.

Function: xxx%parser (argument-parser0 delimiter-parser1 stream2) ¶

Package

cw-examples.

Source

cw-examples.lisp.

---

5.2.5 Generic functions

Generic Reader: d (object) ¶

Package

cw-calendar.

Methods

Reader Method: d ((cal cal)) ¶

automatically generated reader method

Source

calendar.lisp.

Target Slot

day.

Generic Writer: (setf d) (object) ¶

Package

cw-calendar.

Methods

Writer Method: (setf d) ((cal cal)) ¶

automatically generated writer method

Source

calendar.lisp.

Target Slot

day.

Generic Function: disp-pkg-info (f p) ¶

Package

cw-examples.

Methods

Method: disp-pkg-info ((f pkg-doc) p) ¶

Source

cw-examples.lisp.

Generic Function: disp-tree (item pt s indent) ¶

Package

cw-treeview.

Methods

Method: disp-tree (item pt s indent) ¶

This presents the item’s name

Source

tree-view.lisp.

Method: disp-tree :before ((item leaf) pt s indent) ¶

This displays grid and pointer of a leaf-item

Source

tree-view.lisp.

Method: disp-tree :around ((item node) pt s indent) ¶

This displays grid, pointer, icon and children of a node-item

Source

tree-view.lisp.

Generic Function: get-children (n) ¶

get a list of children

Package

cw-treeview.

Source

tree-view.lisp.

Methods

Method: get-children ((n node-pkg)) ¶

Source

cw-examples.lisp.

Method: get-children ((n node-cb)) ¶

Source

cw-examples.lisp.

Method: get-children ((n node-88)) ¶

Source

cw-examples.lisp.

Method: get-children ((n node-fs)) ¶

Method: get-children ((n node)) ¶

Generic Function: grid (s i n) ¶

Package

cw-treeview.

Methods

Method: grid (s i n) ¶

Source

tree-view.lisp.

Generic Reader: indent (object) ¶

Package

cw-treeview.

Methods

Reader Method: indent ((item item)) ¶

automatically generated reader method

Source

tree-view.lisp.

Target Slot

indent.

Generic Writer: (setf indent) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf indent) ((item item)) ¶

automatically generated writer method

Source

tree-view.lisp.

Target Slot

indent.

Generic Reader: info (object) ¶

Package

cw-examples.

Methods

Reader Method: info ((pkg-doc pkg-doc)) ¶

automatically generated reader method

Source

cw-examples.lisp.

Target Slot

info.

Reader Method: info ((class-browser class-browser)) ¶

automatically generated reader method

Source

cw-examples.lisp.

Target Slot

info.

Reader Method: info ((icd9it icd9it)) ¶

automatically generated reader method

Source

cw-examples.lisp.

Target Slot

info.

Generic Writer: (setf info) (object) ¶

Package

cw-examples.

Methods

Writer Method: (setf info) ((pkg-doc pkg-doc)) ¶

automatically generated writer method

Source

cw-examples.lisp.

Target Slot

info.

Writer Method: (setf info) ((class-browser class-browser)) ¶

automatically generated writer method

Source

cw-examples.lisp.

Target Slot

info.

Writer Method: (setf info) ((icd9it icd9it)) ¶

automatically generated writer method

Source

cw-examples.lisp.

Target Slot

info.

Generic Reader: m (object) ¶

Package

cw-calendar.

Methods

Reader Method: m ((cal cal)) ¶

automatically generated reader method

Source

calendar.lisp.

Target Slot

month.

Generic Writer: (setf m) (object) ¶

Package

cw-calendar.

Methods

Writer Method: (setf m) ((cal cal)) ¶

automatically generated writer method

Source

calendar.lisp.

Target Slot

month.

Generic Reader: ptype (object) ¶

Package

cw-treeview.

Methods

Reader Method: ptype ((tree tree)) ¶

automatically generated reader method

Source

tree-view.lisp.

Target Slot

ptype.

Generic Writer: (setf ptype) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf ptype) ((tree tree)) ¶

automatically generated writer method

Source

tree-view.lisp.

Target Slot

ptype.

Generic Reader: show-children (object) ¶

Generic Writer: (setf show-children) (object) ¶

Package

cw-treeview.

Methods

Reader Method: show-children ((node node)) ¶

Writer Method: (setf show-children) ((node node)) ¶

boolean

Source

tree-view.lisp.

Target Slot

show-children.

Generic Function: show-childreno (f p) ¶

Package

cw-examples.

Methods

Method: show-childreno ((f class-browser) p) ¶

Source

cw-examples.lisp.

Method: show-childreno ((f icd9it) p) ¶

Source

cw-examples.lisp.

Generic Function: toggle (n) ¶

Package

cw-treeview.

Methods

Method: toggle (n) ¶

Source

tree-view.lisp.

Generic Reader: txtsize (object) ¶

Package

cw-treeview.

Methods

Reader Method: txtsize ((tree tree)) ¶

automatically generated reader method

Source

tree-view.lisp.

Target Slot

txtsize.

Generic Writer: (setf txtsize) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf txtsize) ((tree tree)) ¶

automatically generated writer method

Source

tree-view.lisp.

Target Slot

txtsize.

Generic Reader: y (object) ¶

Package

cw-calendar.

Methods

Reader Method: y ((cal cal)) ¶

automatically generated reader method

Source

calendar.lisp.

Target Slot

year.

Generic Writer: (setf y) (object) ¶

Package

cw-calendar.

Methods

Writer Method: (setf y) ((cal cal)) ¶

automatically generated writer method

Source

calendar.lisp.

Target Slot

year.

Generic Reader: youngest-child (object) ¶

Package

cw-treeview.

Methods

Reader Method: youngest-child ((node node)) ¶

automatically generated reader method

Source

tree-view.lisp.

Target Slot

youngest-child.

Generic Writer: (setf youngest-child) (object) ¶

Package

cw-treeview.

Methods

Writer Method: (setf youngest-child) ((node node)) ¶

automatically generated writer method

Source

tree-view.lisp.

Target Slot

youngest-child.

---

5.2.6 Standalone methods

Method: reinitialize-panes-and-layouts ((frame icd9it)) ¶

Package

clim-internals.

Source

cw-examples.lisp.

Method: reinitialize-panes-and-layouts ((frame class-browser)) ¶

Package

clim-internals.

Source

cw-examples.lisp.

Method: reinitialize-panes-and-layouts ((frame pkg-doc)) ¶

Package

clim-internals.

Source

cw-examples.lisp.

Method: reinitialize-panes-and-layouts ((frame cal)) ¶

Package

clim-internals.

Source

calendar.lisp.

Method: reinitialize-panes-and-layouts ((frame tree)) ¶

Package

clim-internals.

Source

tree-view.lisp.

---

5.2.7 Classes

Class: cal ¶

Package

cw-calendar.

Source

calendar.lisp.

Direct superclasses

standard-application-frame.

Direct methods

• (setf d).
• d.
• (setf m).
• m.
• reinitialize-panes-and-layouts.
• update-instance-for-redefined-class.
• (setf y).
• y.

Direct Default Initargs

Initarg	Value
:name	(quote cal)
:pretty-name	cal
:command-table	(find-command-table (quote cal))
:disabled-commands	(quote nil)
:menu-bar	(quote t)
:pointer-documentation	(quote nil)
:current-layout	(quote c1)
:layouts	(quote ((c1 cal1) (c2 cal2)))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote cal1) (coerce-pane-name (mp layout1) (quote cal1))) (cons (quote cal2) (coerce-pane-name (mp layout2) (quote cal2))))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((cal1 (assoc-value named-panes (quote cal1) test (function eq))) (cal2 (assoc-value named-panes (quote cal2) test (function eq)))) (declare (ignorable cal1 cal2)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (c1 cal1) (c2 cal2))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: day ¶

Readers

d.

Writers

(setf d).

Slot: month ¶

Initargs

:m

Readers

m.

Writers

(setf m).

Slot: year ¶

Initargs

:y

Readers

y.

Writers

(setf y).

Class: class-browser ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

tree.

Direct methods

• (setf info).
• info.
• reinitialize-panes-and-layouts.
• show-childreno.
• update-instance-for-redefined-class.

Direct Default Initargs

Initarg	Value
:name	(quote class-browser)
:pretty-name	class-browser
:command-table	(find-command-table (quote class-browser))
:disabled-commands	(quote nil)
:menu-bar	(quote tree)
:pointer-documentation	(quote nil)
:current-layout	(quote double)
:layouts	(quote ((double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info))))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote tree) (make-clim-application-pane name (quote tree) display-function (quote display-tree) incremental-redisplay t end-of-line-action allow end-of-page-action allow)) (cons (quote info) (make-clim-application-pane name (quote info) display-function (quote show-childreno) incremental-redisplay t end-of-line-action allow end-of-page-action allow)))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((tree (assoc-value named-panes (quote tree) test (function eq))) (info (assoc-value named-panes (quote info) test (function eq)))) (declare (ignorable tree info)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info)))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: info ¶

Initform

""

Readers

info.

Writers

(setf info).

Class: icd9it ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

tree.

Direct methods

• (setf info).
• info.
• reinitialize-panes-and-layouts.
• show-childreno.
• update-instance-for-redefined-class.

Direct Default Initargs

Initarg	Value
:name	(quote icd9it)
:pretty-name	icd9it
:command-table	(find-command-table (quote icd9it))
:disabled-commands	(quote nil)
:menu-bar	(quote tree)
:pointer-documentation	(quote nil)
:current-layout	(quote double)
:layouts	(quote ((double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info))))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote tree) (make-clim-application-pane name (quote tree) display-function (quote display-tree) incremental-redisplay t end-of-line-action allow end-of-page-action allow)) (cons (quote info) (make-clim-application-pane name (quote info) display-function (quote show-childreno) incremental-redisplay t)))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((tree (assoc-value named-panes (quote tree) test (function eq))) (info (assoc-value named-panes (quote info) test (function eq)))) (declare (ignorable tree info)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info)))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: info ¶

Initform

""

Readers

info.

Writers

(setf info).

Class: item ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct subclasses

• leaf.
• node.

Direct methods

• (setf indent).
• indent.
• (setf name).
• name.

Direct slots

Slot: name ¶

Initargs

:name

Readers

name.

Writers

(setf name).

Slot: indent ¶

Initform

0

Initargs

:indent

Readers

indent.

Writers

(setf indent).

Class: leaf-88 ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

leaf.

Direct methods

item-name.

Class: leaf-cb ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

leaf.

Direct methods

item-name.

Class: leaf-fs ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct superclasses

leaf.

Direct methods

item-name.

Class: leaf-pkg ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

leaf.

Direct methods

item-name.

Class: node-88 ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

node.

Direct methods

• children.
• get-children.
• item-name.

Class: node-cb ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

node.

Direct methods

• children.
• get-children.
• item-name.

Class: node-fs ¶

Package

cw-treeview.

Source

tree-view.lisp.

Direct superclasses

node.

Direct methods

• children.
• get-children.
• item-name.

Class: node-pkg ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

node.

Direct methods

• children.
• get-children.
• item-name.

Class: pkg-doc ¶

Package

cw-examples.

Source

cw-examples.lisp.

Direct superclasses

tree.

Direct methods

• disp-pkg-info.
• (setf info).
• info.
• reinitialize-panes-and-layouts.
• update-instance-for-redefined-class.

Direct Default Initargs

Initarg	Value
:name	(quote pkg-doc)
:pretty-name	pkg-doc
:command-table	(find-command-table (quote pkg-doc))
:disabled-commands	(quote nil)
:menu-bar	(quote t)
:pointer-documentation	(quote nil)
:current-layout	(quote double)
:layouts	(quote ((double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info))))
:resize-frame	(quote nil)
:top-level-lambda	(lambda (frame-arg0) (default-frame-top-level frame-arg0))
:panes-constructor	(lambda (fm frame) (or (frame-panes-for-layout frame) (setf (frame-panes-for-layout frame) (with-look-and-feel-realization (fm frame) (list (cons (quote tree) (make-clim-application-pane name (quote tree) display-function (quote display-tree) incremental-redisplay t end-of-line-action allow end-of-page-action allow)) (cons (quote info) (make-clim-application-pane name (quote info) display-function (quote disp-pkg-info) incremental-redisplay t)))))))
:layout-constructor	(lambda (fm frame) (disown-frame-panes fm frame) (let ((named-panes (frame-panes-for-layout frame))) (declare (ignorable named-panes)) (let ((tree (assoc-value named-panes (quote tree) test (function eq))) (info (assoc-value named-panes (quote info) test (function eq)))) (declare (ignorable tree info)) (setf (frame-panes frame) (ecase (frame-current-layout frame) (double (horizontally nil tree (make-pane (quote box-adjuster-gadget)) info)))))) (adopt-frame-panes fm frame (frame-current-layout frame)) (update-frame-pane-lists frame))

Direct slots

Slot: info ¶

Initform

""

Readers

info.

Writers

(setf info).

---