Tk Library Source Code

Check-in [0893d867ef]
Login
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tcl 9 migration fixes in various packages. Version bumps. - ico 1.1.2 - ipentry 0.3.1 - khim 1.0.2 - shtmlview 1.1.1 Docs regenerated. Release READMEs regenerated.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tklib-0-8-rc
Files: files | file ages | folders
SHA3-256: 0893d867efc0b833235a5ea490db004b9b9b7ce274747430379c447cc8b04081
User & Date: aku 2024-07-03 18:59:39
Context
2024-07-06
11:49
Updated .tap and PACKAGES Closed-Leaf check-in: b8311069d6 user: aku tags: tklib-0-8-rc
2024-07-03
18:59
Tcl 9 migration fixes in various packages. Version bumps. - ico 1.1.2 - ipentry 0.3.1 - khim 1.0.2 - shtmlview 1.1.1 Docs regenerated. Release READMEs regenerated. check-in: 0893d867ef user: aku tags: tklib-0-8-rc
2024-07-01
16:54
Merged the suspended 2022 work on a tklib 0.8 release into the active run. check-in: fff1b7ef73 user: aku tags: tklib-0-8-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to embedded/md/tklib/files/modules/ico/ico.md.

1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (ico \- Windows ICO handling)
[//000000002]: # (Generated from file 'ico\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (ico\(n\) 1\.1\.1 tklib "Windows ICO handling")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>



|







1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (ico \- Windows ICO handling)
[//000000002]: # (Generated from file 'ico\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (ico\(n\) 1\.1\.2 tklib "Windows ICO handling")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
  - [Bugs, Ideas, Feedback](#section5)

  - [Keywords](#keywords)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl 8\.4  
package require ico ?1\.1\.1?  

[__::ico::icons__ *file* ?*option* *value*\.\.\.?](#1)  
[__::ico::iconMembers__ *file* *name* ?*option* *value*\.\.\.?](#2)  
[__::ico::getIcon__ *file* *name* ?*option* *value*\.\.\.?](#3)  
[__::ico::getIconByName__ *file* *name* ?*option* *value*\.\.\.?](#4)  
[__::ico::getFileIcon__ *file* ?*option* *value*\.\.\.?](#5)  
[__::ico::writeIcon__ *file* *name* *depth* *data* ?*option* *value*\.\.\.?](#6)  







|







31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
  - [Bugs, Ideas, Feedback](#section5)

  - [Keywords](#keywords)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl 8\.4  
package require ico ?1\.1\.2?  

[__::ico::icons__ *file* ?*option* *value*\.\.\.?](#1)  
[__::ico::iconMembers__ *file* *name* ?*option* *value*\.\.\.?](#2)  
[__::ico::getIcon__ *file* *name* ?*option* *value*\.\.\.?](#3)  
[__::ico::getIconByName__ *file* *name* ?*option* *value*\.\.\.?](#4)  
[__::ico::getFileIcon__ *file* ?*option* *value*\.\.\.?](#5)  
[__::ico::writeIcon__ *file* *name* *depth* *data* ?*option* *value*\.\.\.?](#6)  

Changes to embedded/md/tklib/files/modules/ipentry/ipentry.md.

1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (ipentry \- An IP address entry widget)
[//000000002]: # (Generated from file 'ipentry\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (ipentry\(n\) 0\.3 tklib "An IP address entry widget")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>



|







1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (ipentry \- An IP address entry widget)
[//000000002]: # (Generated from file 'ipentry\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (ipentry\(n\) 0\.3\.1 tklib "An IP address entry widget")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

  - [Category](#category)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl 8\.4  
package require Tk 8\.4  
package require ipentry ?0\.3?  

[__::ipentry::ipentry__ *pathName* ?*option* *value*\.\.\.?](#1)  
[__::ipentry::ipentry6__ *pathName* ?*option* *value*\.\.\.?](#2)  
[*pathName* __complete__](#3)  
[*pathName* __get__](#4)  
[*pathName* __insert__ *iplist*](#5)  
[*pathName* __icursor__ *index*](#6)  







|







30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

  - [Category](#category)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl 8\.4  
package require Tk 8\.4  
package require ipentry ?0\.3\.1?  

[__::ipentry::ipentry__ *pathName* ?*option* *value*\.\.\.?](#1)  
[__::ipentry::ipentry6__ *pathName* ?*option* *value*\.\.\.?](#2)  
[*pathName* __complete__](#3)  
[*pathName* __get__](#4)  
[*pathName* __insert__ *iplist*](#5)  
[*pathName* __icursor__ *index*](#6)  

Changes to embedded/md/tklib/files/modules/khim/khim.md.

1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (khim \- Kevin's Hacky Input Method)
[//000000002]: # (Generated from file 'khim\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (khim\(n\) 1\.0 tklib "Kevin's Hacky Input Method")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>



|







1
2
3
4
5
6
7
8
9
10
11

[//000000001]: # (khim \- Kevin's Hacky Input Method)
[//000000002]: # (Generated from file 'khim\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (khim\(n\) 1\.0\.2 tklib "Kevin's Hacky Input Method")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  - [Bugs, Ideas, Feedback](#section5)

  - [Keywords](#keywords)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl  
package require khim ?1\.0?  

[__::khim::getOptions__ *path*](#1)  
[__::khim::getConfig__](#2)  
[__::khim::setConfig__ *version* *enabled* *compose* *map*](#3)  
[__::khim::showHelp__ *path*](#4)  

# <a name='description'></a>DESCRIPTION







|







32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  - [Bugs, Ideas, Feedback](#section5)

  - [Keywords](#keywords)

# <a name='synopsis'></a>SYNOPSIS

package require Tcl  
package require khim ?1\.0\.2?  

[__::khim::getOptions__ *path*](#1)  
[__::khim::getConfig__](#2)  
[__::khim::setConfig__ *version* *enabled* *compose* *map*](#3)  
[__::khim::showHelp__ *path*](#4)  

# <a name='description'></a>DESCRIPTION

Changes to embedded/md/tklib/files/modules/shtmlview/shtmlview.md.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

[//000000001]: # (shtmlview \- Basic HTML and Markdown viewer widget)
[//000000002]: # (Generated from file 'shtmlview\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (Copyright &copy; 2018\-2022, Detlef Groth <detlef\(at\)dgroth\(dot\)de>)
[//000000004]: # (Copyright &copy; 2009, Robert Heller)
[//000000005]: # (Copyright &copy; 2000, Clif Flynt)
[//000000006]: # (Copyright &copy; 1995\-1999, Stephen Uhler)
[//000000007]: # (shtmlview\(n\) 1\.1\.0 tklib "Basic HTML and Markdown viewer widget")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>







|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

[//000000001]: # (shtmlview \- Basic HTML and Markdown viewer widget)
[//000000002]: # (Generated from file 'shtmlview\.man' by tcllib/doctools with format 'markdown')
[//000000003]: # (Copyright &copy; 2018\-2022, Detlef Groth <detlef\(at\)dgroth\(dot\)de>)
[//000000004]: # (Copyright &copy; 2009, Robert Heller)
[//000000005]: # (Copyright &copy; 2000, Clif Flynt)
[//000000006]: # (Copyright &copy; 1995\-1999, Stephen Uhler)
[//000000007]: # (shtmlview\(n\) 1\.1\.1 tklib "Basic HTML and Markdown viewer widget")

<hr> [ <a href="../../../../toc.md">Main Table Of Contents</a> &#124; <a
href="../../../toc.md">Table Of Contents</a> &#124; <a
href="../../../../index.md">Keyword Index</a> &#124; <a
href="../../../../toc0.md">Categories</a> &#124; <a
href="../../../../toc1.md">Modules</a> &#124; <a
href="../../../../toc2.md">Applications</a> ] <hr>
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

# <a name='synopsis'></a>SYNOPSIS

package require Tk  
package require snit  
package require Markdown ;\# optional Markdown support  
package require img::jpeg ;\# optional jpeg image support  
package require shtmlview::shtmlview ?1\.1\.0?  

[__::shtmlview::converter__ *extension* *description* *cmdprefix*](#1)  
[__::shtmlview::shtmlview__ *pathName* ?*options*?](#2)  
[*pathName* __back__](#3)  
[*pathName* __browse__ *filename* ?args?](#4)  
[*pathName* __dosearch__ *string* *direction*](#5)  
[*pathName* __edittext__ *cmd* ?*options*?](#6)  







|







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

# <a name='synopsis'></a>SYNOPSIS

package require Tk  
package require snit  
package require Markdown ;\# optional Markdown support  
package require img::jpeg ;\# optional jpeg image support  
package require shtmlview::shtmlview ?1\.1\.1?  

[__::shtmlview::converter__ *extension* *description* *cmdprefix*](#1)  
[__::shtmlview::shtmlview__ *pathName* ?*options*?](#2)  
[*pathName* __back__](#3)  
[*pathName* __browse__ *filename* ?args?](#4)  
[*pathName* __dosearch__ *string* *direction*](#5)  
[*pathName* __edittext__ *cmd* ?*options*?](#6)  

Changes to idoc/man/files/modules/ico/ico.n.

1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'ico\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "ico" n 1\&.1\&.1 tklib "Windows ICO handling"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,



|







1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'ico\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "ico" n 1\&.1\&.2 tklib "Windows ICO handling"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
..
.BS
.SH NAME
ico \- Reading and writing windows icons
.SH SYNOPSIS
package require \fBTcl  8\&.4\fR
.sp
package require \fBico  ?1\&.1\&.1?\fR
.sp
\fB::ico::icons\fR \fIfile\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ico::iconMembers\fR \fIfile\fR \fIname\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ico::getIcon\fR \fIfile\fR \fIname\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp







|







271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
..
.BS
.SH NAME
ico \- Reading and writing windows icons
.SH SYNOPSIS
package require \fBTcl  8\&.4\fR
.sp
package require \fBico  ?1\&.1\&.2?\fR
.sp
\fB::ico::icons\fR \fIfile\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ico::iconMembers\fR \fIfile\fR \fIname\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ico::getIcon\fR \fIfile\fR \fIname\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp

Changes to idoc/man/files/modules/ipentry/ipentry.n.

1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'ipentry\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "ipentry" n 0\&.3 tklib "An IP address entry widget"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,



|







1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'ipentry\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "ipentry" n 0\&.3\&.1 tklib "An IP address entry widget"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
.SH NAME
ipentry \- An IP address entry widget
.SH SYNOPSIS
package require \fBTcl  8\&.4\fR
.sp
package require \fBTk  8\&.4\fR
.sp
package require \fBipentry  ?0\&.3?\fR
.sp
\fB::ipentry::ipentry\fR \fIpathName\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ipentry::ipentry6\fR \fIpathName\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fIpathName\fR \fBcomplete\fR
.sp







|







273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
.SH NAME
ipentry \- An IP address entry widget
.SH SYNOPSIS
package require \fBTcl  8\&.4\fR
.sp
package require \fBTk  8\&.4\fR
.sp
package require \fBipentry  ?0\&.3\&.1?\fR
.sp
\fB::ipentry::ipentry\fR \fIpathName\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fB::ipentry::ipentry6\fR \fIpathName\fR ?\fIoption\fR \fIvalue\fR\&.\&.\&.?
.sp
\fIpathName\fR \fBcomplete\fR
.sp

Changes to idoc/man/files/modules/khim/khim.n.

1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'khim\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "khim" n 1\&.0 tklib "Kevin's Hacky Input Method"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,



|







1
2
3
4
5
6
7
8
9
10
11
'\"
'\" Generated from file 'khim\&.man' by tcllib/doctools with format 'nroff'
'\"
.TH "khim" n 1\&.0\&.2 tklib "Kevin's Hacky Input Method"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
..
.BS
.SH NAME
khim \- Provides key bindings for entering international characters on a keyboard that does not support them
.SH SYNOPSIS
package require \fBTcl \fR
.sp
package require \fBkhim  ?1\&.0?\fR
.sp
\fB::khim::getOptions\fR \fIpath\fR
.sp
\fB::khim::getConfig\fR
.sp
\fB::khim::setConfig\fR \fIversion\fR \fIenabled\fR \fIcompose\fR \fImap\fR
.sp







|







271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
..
.BS
.SH NAME
khim \- Provides key bindings for entering international characters on a keyboard that does not support them
.SH SYNOPSIS
package require \fBTcl \fR
.sp
package require \fBkhim  ?1\&.0\&.2?\fR
.sp
\fB::khim::getOptions\fR \fIpath\fR
.sp
\fB::khim::getConfig\fR
.sp
\fB::khim::setConfig\fR \fIversion\fR \fIenabled\fR \fIcompose\fR \fImap\fR
.sp

Changes to idoc/man/files/modules/shtmlview/shtmlview.n.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'\"
'\" Generated from file 'shtmlview\&.man' by tcllib/doctools with format 'nroff'
'\" Copyright (c) 2018-2022, Detlef Groth <detlef(at)dgroth(dot)de>
'\" Copyright (c) 2009, Robert Heller
'\" Copyright (c) 2000, Clif Flynt
'\" Copyright (c) 1995-1999, Stephen Uhler
'\"
.TH "shtmlview" n 1\&.1\&.0 tklib "Basic HTML and Markdown viewer widget"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,







|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'\"
'\" Generated from file 'shtmlview\&.man' by tcllib/doctools with format 'nroff'
'\" Copyright (c) 2018-2022, Detlef Groth <detlef(at)dgroth(dot)de>
'\" Copyright (c) 2009, Robert Heller
'\" Copyright (c) 2000, Clif Flynt
'\" Copyright (c) 1995-1999, Stephen Uhler
'\"
.TH "shtmlview" n 1\&.1\&.1 tklib "Basic HTML and Markdown viewer widget"
.\" The -*- nroff -*- definitions below are for supplemental macros used
.\" in Tcl/Tk manual entries.
.\"
.\" .AP type name in/out ?indent?
.\"	Start paragraph describing an argument to a library procedure.
.\"	type is type of argument (int, etc.), in/out is either "in", "out",
.\"	or "in/out" to describe whether procedure reads or modifies arg,
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
.sp
package require \fBsnit \fR
.sp
package require \fBMarkdown ;# optional Markdown support \fR
.sp
package require \fBimg::jpeg ;# optional jpeg image support \fR
.sp
package require \fBshtmlview::shtmlview  ?1\&.1\&.0?\fR
.sp
\fB::shtmlview::converter\fR \fIextension\fR \fIdescription\fR \fIcmdprefix\fR
.sp
\fB::shtmlview::shtmlview\fR \fIpathName\fR ?\fIoptions\fR?
.sp
\fIpathName\fR \fBback\fR
.sp







|







281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
.sp
package require \fBsnit \fR
.sp
package require \fBMarkdown ;# optional Markdown support \fR
.sp
package require \fBimg::jpeg ;# optional jpeg image support \fR
.sp
package require \fBshtmlview::shtmlview  ?1\&.1\&.1?\fR
.sp
\fB::shtmlview::converter\fR \fIextension\fR \fIdescription\fR \fIcmdprefix\fR
.sp
\fB::shtmlview::shtmlview\fR \fIpathName\fR ?\fIoptions\fR?
.sp
\fIpathName\fR \fBback\fR
.sp

Changes to idoc/www/tklib/files/modules/ico/ico.html.

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">ico(n) 1.1.1 tklib &quot;Windows ICO handling&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>ico - Reading and writing windows icons</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">API</a></li>
<li class="doctools_section"><a href="#section3">EXAMPLE</a></li>
<li class="doctools_section"><a href="#section4">LIMITATIONS</a></li>
<li class="doctools_section"><a href="#section5">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.4</b></li>
<li>package require <b class="pkgname">ico <span class="opt">?1.1.1?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::ico::icons</b> <i class="arg">file</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#2"><b class="cmd">::ico::iconMembers</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#3"><b class="cmd">::ico::getIcon</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#4"><b class="cmd">::ico::getIconByName</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#5"><b class="cmd">::ico::getFileIcon</b> <i class="arg">file</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>







|



















|







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">ico(n) 1.1.2 tklib &quot;Windows ICO handling&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>ico - Reading and writing windows icons</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">API</a></li>
<li class="doctools_section"><a href="#section3">EXAMPLE</a></li>
<li class="doctools_section"><a href="#section4">LIMITATIONS</a></li>
<li class="doctools_section"><a href="#section5">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.4</b></li>
<li>package require <b class="pkgname">ico <span class="opt">?1.1.2?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::ico::icons</b> <i class="arg">file</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#2"><b class="cmd">::ico::iconMembers</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#3"><b class="cmd">::ico::getIcon</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#4"><b class="cmd">::ico::getIconByName</b> <i class="arg">file</i> <i class="arg">name</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#5"><b class="cmd">::ico::getFileIcon</b> <i class="arg">file</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>

Changes to idoc/www/tklib/files/modules/ipentry/ipentry.html.

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">ipentry(n) 0.3 tklib &quot;An IP address entry widget&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>ipentry - An IP address entry widget</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">Widget options</a></li>
<li class="doctools_section"><a href="#section3">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
<li class="doctools_section"><a href="#category">Category</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.4</b></li>
<li>package require <b class="pkgname">Tk 8.4</b></li>
<li>package require <b class="pkgname">ipentry <span class="opt">?0.3?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::ipentry::ipentry</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#2"><b class="cmd">::ipentry::ipentry6</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#3"><i class="arg">pathName</i> <b class="method">complete</b></a></li>
<li><a href="#4"><i class="arg">pathName</i> <b class="method">get</b></a></li>
<li><a href="#5"><i class="arg">pathName</i> <b class="method">insert</b> <i class="arg">iplist</i></a></li>







|



















|







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">ipentry(n) 0.3.1 tklib &quot;An IP address entry widget&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>ipentry - An IP address entry widget</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">Widget options</a></li>
<li class="doctools_section"><a href="#section3">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
<li class="doctools_section"><a href="#category">Category</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl 8.4</b></li>
<li>package require <b class="pkgname">Tk 8.4</b></li>
<li>package require <b class="pkgname">ipentry <span class="opt">?0.3.1?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::ipentry::ipentry</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#2"><b class="cmd">::ipentry::ipentry6</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">option</i> <i class="arg">value</i>...?</span></a></li>
<li><a href="#3"><i class="arg">pathName</i> <b class="method">complete</b></a></li>
<li><a href="#4"><i class="arg">pathName</i> <b class="method">get</b></a></li>
<li><a href="#5"><i class="arg">pathName</i> <b class="method">insert</b> <i class="arg">iplist</i></a></li>

Changes to idoc/www/tklib/files/modules/khim/khim.html.

101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">khim(n) 1.0 tklib &quot;Kevin's Hacky Input Method&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>khim - Provides key bindings for entering international characters on a keyboard that does not support them</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">PROCEDURES</a></li>
<li class="doctools_section"><a href="#section3">LOCALISATION</a></li>
<li class="doctools_section"><a href="#section4">ACKNOWLEDGMENTS</a></li>
<li class="doctools_section"><a href="#section5">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl</b></li>
<li>package require <b class="pkgname">khim <span class="opt">?1.0?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::khim::getOptions</b> <i class="arg">path</i></a></li>
<li><a href="#2"><b class="cmd">::khim::getConfig</b></a></li>
<li><a href="#3"><b class="cmd">::khim::setConfig</b> <i class="arg">version</i> <i class="arg">enabled</i> <i class="arg">compose</i> <i class="arg">map</i></a></li>
<li><a href="#4"><b class="cmd">::khim::showHelp</b> <i class="arg">path</i></a></li>
</ul>







|



















|







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">khim(n) 1.0.2 tklib &quot;Kevin's Hacky Input Method&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>khim - Provides key bindings for entering international characters on a keyboard that does not support them</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
<li class="doctools_section"><a href="#section1">Description</a></li>
<li class="doctools_section"><a href="#section2">PROCEDURES</a></li>
<li class="doctools_section"><a href="#section3">LOCALISATION</a></li>
<li class="doctools_section"><a href="#section4">ACKNOWLEDGMENTS</a></li>
<li class="doctools_section"><a href="#section5">Bugs, Ideas, Feedback</a></li>
<li class="doctools_section"><a href="#keywords">Keywords</a></li>
</ul>
</div>
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tcl</b></li>
<li>package require <b class="pkgname">khim <span class="opt">?1.0.2?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::khim::getOptions</b> <i class="arg">path</i></a></li>
<li><a href="#2"><b class="cmd">::khim::getConfig</b></a></li>
<li><a href="#3"><b class="cmd">::khim::setConfig</b> <i class="arg">version</i> <i class="arg">enabled</i> <i class="arg">compose</i> <i class="arg">map</i></a></li>
<li><a href="#4"><b class="cmd">::khim::showHelp</b> <i class="arg">path</i></a></li>
</ul>

Changes to idoc/www/tklib/files/modules/shtmlview/shtmlview.html.

103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">shtmlview(n) 1.1.0 tklib &quot;Basic HTML and Markdown viewer widget&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>shtmlview - Extended Tcl/Tk text widget with basic support for rendering of HTML and Markdown</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>







|







103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
&#124; <a href="../../../toc.html">Table Of Contents</a>
&#124; <a href="../../../../index.html">Keyword Index</a>
&#124; <a href="../../../../toc0.html">Categories</a>
&#124; <a href="../../../../toc1.html">Modules</a>
&#124; <a href="../../../../toc2.html">Applications</a>
 ] <hr>
<div class="doctools">
<h1 class="doctools_title">shtmlview(n) 1.1.1 tklib &quot;Basic HTML and Markdown viewer widget&quot;</h1>
<div id="name" class="doctools_section"><h2><a name="name">Name</a></h2>
<p>shtmlview - Extended Tcl/Tk text widget with basic support for rendering of HTML and Markdown</p>
</div>
<div id="toc" class="doctools_section"><h2><a name="toc">Table Of Contents</a></h2>
<ul class="doctools_toc">
<li class="doctools_section"><a href="#toc">Table Of Contents</a></li>
<li class="doctools_section"><a href="#synopsis">Synopsis</a></li>
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tk</b></li>
<li>package require <b class="pkgname">snit</b></li>
<li>package require <b class="pkgname">Markdown ;# optional Markdown support</b></li>
<li>package require <b class="pkgname">img::jpeg ;# optional jpeg image support</b></li>
<li>package require <b class="pkgname">shtmlview::shtmlview <span class="opt">?1.1.0?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::shtmlview::converter</b> <i class="arg">extension</i> <i class="arg">description</i> <i class="arg">cmdprefix</i></a></li>
<li><a href="#2"><b class="cmd">::shtmlview::shtmlview</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">options</i>?</span></a></li>
<li><a href="#3"><i class="arg">pathName</i> <b class="method">back</b></a></li>
<li><a href="#4"><i class="arg">pathName</i> <b class="method">browse</b> <i class="arg">filename</i> <span class="opt">?args?</span></a></li>
<li><a href="#5"><i class="arg">pathName</i> <b class="method">dosearch</b> <i class="arg">string</i> <i class="arg">direction</i></a></li>







|







135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
<div id="synopsis" class="doctools_section"><h2><a name="synopsis">Synopsis</a></h2>
<div class="doctools_synopsis">
<ul class="doctools_requirements">
<li>package require <b class="pkgname">Tk</b></li>
<li>package require <b class="pkgname">snit</b></li>
<li>package require <b class="pkgname">Markdown ;# optional Markdown support</b></li>
<li>package require <b class="pkgname">img::jpeg ;# optional jpeg image support</b></li>
<li>package require <b class="pkgname">shtmlview::shtmlview <span class="opt">?1.1.1?</span></b></li>
</ul>
<ul class="doctools_syntax">
<li><a href="#1"><b class="cmd">::shtmlview::converter</b> <i class="arg">extension</i> <i class="arg">description</i> <i class="arg">cmdprefix</i></a></li>
<li><a href="#2"><b class="cmd">::shtmlview::shtmlview</b> <i class="arg">pathName</i> <span class="opt">?<i class="arg">options</i>?</span></a></li>
<li><a href="#3"><i class="arg">pathName</i> <b class="method">back</b></a></li>
<li><a href="#4"><i class="arg">pathName</i> <b class="method">browse</b> <i class="arg">filename</i> <span class="opt">?args?</span></a></li>
<li><a href="#5"><i class="arg">pathName</i> <b class="method">dosearch</b> <i class="arg">string</i> <i class="arg">direction</i></a></li>

Changes to modules/canvas/canvas_pdf.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# *- tcl -*-
# ### ### ### ######### ######### #########

# Copyright (c) 2014 andreas Kupries, Arjen Markus
# OLL licensed (http://wiki.tcl.tk/10892).

# ### ### ### ######### ######### #########
## Requisites

package require Tcl 8.5
package require Tk  8.5
package require pdf4tcl
package require fileutil

namespace eval ::canvas {}

# ### ### ### ######### ######### #########
## Implementation.









|
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# *- tcl -*-
# ### ### ### ######### ######### #########

# Copyright (c) 2014 andreas Kupries, Arjen Markus
# OLL licensed (http://wiki.tcl.tk/10892).

# ### ### ### ######### ######### #########
## Requisites

package require Tcl 8.5-
package require Tk  8.5-
package require pdf4tcl
package require fileutil

namespace eval ::canvas {}

# ### ### ### ######### ######### #########
## Implementation.

Changes to modules/ico/ico.man.

1
2
3
4
5
6
7
8
9
[comment {-*- tcl -*- doctools manpage}]
[vset VERSION 1.1.1]
[manpage_begin ico n [vset VERSION]]
[keywords dll]
[keywords entry]
[keywords exe]
[keywords ico]
[keywords icon]
[moddesc   {Windows ICO handling}]

|







1
2
3
4
5
6
7
8
9
[comment {-*- tcl -*- doctools manpage}]
[vset VERSION 1.1.2]
[manpage_begin ico n [vset VERSION]]
[keywords dll]
[keywords entry]
[keywords exe]
[keywords ico]
[keywords icon]
[moddesc   {Windows ICO handling}]

Changes to modules/ico/ico.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
# ico.tcl --
#
# Win32 ico manipulation code
#
# Copyright (c) 2003-2007 Aaron Faupell
# Copyright (c) 2003-2011 ActiveState
#
# RCS: @(#) $Id: ico.tcl,v 1.32 2011/10/05 00:10:46 hobbs Exp $

# Sample usage:
#	set file bin/wish.exe
#	set icos [::ico::icons $file]
#	set img  [::ico::getIcon $file [lindex $icos 1] -format image -res 32]

package require Tcl 8.4-






<
<







1
2
3
4
5
6


7
8
9
10
11
12
13
# ico.tcl --
#
# Win32 ico manipulation code
#
# Copyright (c) 2003-2007 Aaron Faupell
# Copyright (c) 2003-2011 ActiveState



# Sample usage:
#	set file bin/wish.exe
#	set icos [::ico::icons $file]
#	set img  [::ico::getIcon $file [lindex $icos 1] -format image -res 32]

package require Tcl 8.4-
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
    }

    set file [file normalize $exeFile]
    FindResources $file

    if {$icoDir == ""} { set icoDir [file dirname $file] }

    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    foreach group $RES($file,group,names) {
        set dir  {}
        set data {}
        foreach icon $RES($file,group,$group,members) {
            seek $fh $RES($file,icon,$icon,offset) start
	    set ico $RES($file,icon,$icon,data)
	    eval [list lappend dir] $ico
	    append data [read $fh [eval calcSize $ico 40]]
        }

        # write them out to a file
        set ifh [open [file join $icoDir [file tail $exeFile]-$group.ico] w+]
        fconfigure $ifh -eofchar {} -encoding binary -translation lf

        bputs $ifh sss 0 1 [llength $RES($file,group,$group,members)]
        set offset [expr {6 + ([llength $RES($file,group,$group,members)] * 16)}]
        foreach {w h bpp} $dir {
            set len [calcSize $w $h $bpp 40]
            lappend fix $offset $len
            bputs $ifh ccccssii $w $h [expr {$bpp <= 8 ? 1 << $bpp : 0}] 0 1 $bpp $len $offset







|
<












|
<







427
428
429
430
431
432
433
434

435
436
437
438
439
440
441
442
443
444
445
446
447

448
449
450
451
452
453
454
    }

    set file [file normalize $exeFile]
    FindResources $file

    if {$icoDir == ""} { set icoDir [file dirname $file] }

    set fh [open $file rb]


    foreach group $RES($file,group,names) {
        set dir  {}
        set data {}
        foreach icon $RES($file,group,$group,members) {
            seek $fh $RES($file,icon,$icon,offset) start
	    set ico $RES($file,icon,$icon,data)
	    eval [list lappend dir] $ico
	    append data [read $fh [eval calcSize $ico 40]]
        }

        # write them out to a file
        set ifh [open [file join $icoDir [file tail $exeFile]-$group.ico] wb+]


        bputs $ifh sss 0 1 [llength $RES($file,group,$group,members)]
        set offset [expr {6 + ([llength $RES($file,group,$group,members)] * 16)}]
        foreach {w h bpp} $dir {
            set len [calcSize $w $h $bpp 40]
            lappend fix $offset $len
            bputs $ifh ccccssii $w $h [expr {$bpp <= 8 ? 1 << $bpp : 0}] 0 1 $bpp $len $offset
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
	append and $tmp
    }

    return [list $w $h $bpp $palette $xor $and]
}

proc ::ico::getIconListICO {file} {
    set fh [open $file r]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    if {"[getword $fh] [getword $fh]" ne "0 1"} {
	return -code error "not an icon file"
    }
    close $fh
    return 0
}







|
<







847
848
849
850
851
852
853
854

855
856
857
858
859
860
861
	append and $tmp
    }

    return [list $w $h $bpp $palette $xor $and]
}

proc ::ico::getIconListICO {file} {
    set fh [open $file rb]


    if {"[getword $fh] [getword $fh]" ne "0 1"} {
	return -code error "not an icon file"
    }
    close $fh
    return 0
}
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
        set ret ""
        foreach x $RES($file,group,$name,members) {
            lappend ret [linsert $RES($file,icon,$x,data) 0 $x]
        }
        return $ret
    }

    set fh [open $file r]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
	return -code error "not an icon file"
    }








|
<







896
897
898
899
900
901
902
903

904
905
906
907
908
909
910
        set ret ""
        foreach x $RES($file,group,$name,members) {
            lappend ret [linsert $RES($file,icon,$x,data) 0 $x]
        }
        return $ret
    }

    set fh [open $file rb]


    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
	return -code error "not an icon file"
    }

992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
    }
    return $ret
}

# returns an icon in the form:
#       {width height depth palette xor_mask and_mask}
proc ::ico::getRawIconDataICO {file name} {
    set fh [open $file r]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
        return -code error "not an icon file"
    }
    set num [getword $fh]







|
<







986
987
988
989
990
991
992
993

994
995
996
997
998
999
1000
    }
    return $ret
}

# returns an icon in the form:
#       {width height depth palette xor_mask and_mask}
proc ::ico::getRawIconDataICO {file name} {
    set fh [open $file rb]


    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
        return -code error "not an icon file"
    }
    set num [getword $fh]
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
proc ::ico::getRawIconDataEXE {file name} {
    variable RES

    set file [file normalize $file]
    FindResources $file

    if {![info exists RES($file,icon,$name,offset)]} { error "No icon \"$name\"" }
    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    seek $fh $RES($file,icon,$name,offset) start

    # readDIB returns: {w h bpp palette xor and}
    set dib [readDIB $fh]
    close $fh
    return $dib
}

proc ::ico::writeIconICO {file name w h bpp palette xor and} {
    if {![file exists $file]} {
	set fh [open $file w+]
	fconfigure $fh -eofchar {} -encoding binary -translation lf
	set num 0
    } else {
	set fh [open $file r+]
	fconfigure $fh -eofchar {} -encoding binary -translation lf
	if {"[getword $fh] [getword $fh]" ne "0 1"} {
	    close $fh
	    return -code error "not an icon file"
	}
	set num [getword $fh]
	seek $fh [expr {6 + (16 * $num)}] start
    }







|
<










|
<


|
<







1063
1064
1065
1066
1067
1068
1069
1070

1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081

1082
1083
1084

1085
1086
1087
1088
1089
1090
1091
proc ::ico::getRawIconDataEXE {file name} {
    variable RES

    set file [file normalize $file]
    FindResources $file

    if {![info exists RES($file,icon,$name,offset)]} { error "No icon \"$name\"" }
    set fh [open $file rb]

    seek $fh $RES($file,icon,$name,offset) start

    # readDIB returns: {w h bpp palette xor and}
    set dib [readDIB $fh]
    close $fh
    return $dib
}

proc ::ico::writeIconICO {file name w h bpp palette xor and} {
    if {![file exists $file]} {
	set fh [open $file wb+]

	set num 0
    } else {
	set fh [open $file rb+]

	if {"[getword $fh] [getword $fh]" ne "0 1"} {
	    close $fh
	    return -code error "not an icon file"
	}
	set num [getword $fh]
	seek $fh [expr {6 + (16 * $num)}] start
    }
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
    set input $new
    append input [join $data {}]

    return $name
}

proc ::ico::writeIconBMP {file name w h bpp palette xor and} {
    set fh [open $file w+]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    set size [expr {[string length $palette] + [string length $xor]}]
    # bitmap header: magic, file size, reserved, reserved, offset of bitmap data
    bputs $fh a2issi BM [expr {14 + 40 + $size}] 0 0 54
    bputs $fh iiissiiiiii 40 $w $h 1 $bpp 0 $size 0 0 0 0
    puts -nonewline $fh $palette$xor
    close $fh
}







|
<







1161
1162
1163
1164
1165
1166
1167
1168

1169
1170
1171
1172
1173
1174
1175
    set input $new
    append input [join $data {}]

    return $name
}

proc ::ico::writeIconBMP {file name w h bpp palette xor and} {
    set fh [open $file wb+]

    set size [expr {[string length $palette] + [string length $xor]}]
    # bitmap header: magic, file size, reserved, reserved, offset of bitmap data
    bputs $fh a2issi BM [expr {14 + 40 + $size}] 0 0 54
    bputs $fh iiissiiiiii 40 $w $h 1 $bpp 0 $size 0 0 0 0
    puts -nonewline $fh $palette$xor
    close $fh
}
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
    if {![info exists RES($file,icon,$name,data)]} {
	return -code error "no icon \"$name\""
    }
    if {"$w $h $bpp" != $RES($file,icon,$name,data)} {
	return -code error "icon format differs from original"
    }

    set fh [open $file r+]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    seek $fh [expr {$RES($file,icon,$name,offset) + 40}] start

    puts -nonewline $fh $palette$xor$and
    close $fh
}

proc ::ico::FindResources {file} {
    variable RES

    if {[info exists RES($file,group,names)]} {
        return [llength $RES($file,group,names)]
    }

    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    if {[read $fh 2] ne "MZ"} {
	close $fh
	return -code error "file is not a valid executable"
    }
    seek $fh 60 start
    seek $fh [getword $fh] start
    set sig [read $fh 4]







|
<













|
<







1183
1184
1185
1186
1187
1188
1189
1190

1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204

1205
1206
1207
1208
1209
1210
1211
    if {![info exists RES($file,icon,$name,data)]} {
	return -code error "no icon \"$name\""
    }
    if {"$w $h $bpp" != $RES($file,icon,$name,data)} {
	return -code error "icon format differs from original"
    }

    set fh [open $file rb+]

    seek $fh [expr {$RES($file,icon,$name,offset) + 40}] start

    puts -nonewline $fh $palette$xor$and
    close $fh
}

proc ::ico::FindResources {file} {
    variable RES

    if {[info exists RES($file,group,names)]} {
        return [llength $RES($file,group,names)]
    }

    set fh [open $file rb]

    if {[read $fh 2] ne "MZ"} {
	close $fh
	return -code error "file is not a valid executable"
    }
    seek $fh 60 start
    seek $fh [getword $fh] start
    set sig [read $fh 4]
1460
1461
1462
1463
1464
1465
1466
1467
interp alias {} ::ico::getRawIconDataDLL {} ::ico::getRawIconDataEXE
interp alias {} ::ico::writeIconDLL      {} ::ico::writeIconEXE
interp alias {} ::ico::getIconListICL    {} ::ico::getIconListEXE
interp alias {} ::ico::getIconMembersICL {} ::ico::getIconMembersEXE
interp alias {} ::ico::getRawIconDataICL {} ::ico::getRawIconDataEXE
interp alias {} ::ico::writeIconICL      {} ::ico::writeIconEXE

package provide ico 1.1.1







|
1447
1448
1449
1450
1451
1452
1453
1454
interp alias {} ::ico::getRawIconDataDLL {} ::ico::getRawIconDataEXE
interp alias {} ::ico::writeIconDLL      {} ::ico::writeIconEXE
interp alias {} ::ico::getIconListICL    {} ::ico::getIconListEXE
interp alias {} ::ico::getIconMembersICL {} ::ico::getIconMembersEXE
interp alias {} ::ico::getRawIconDataICL {} ::ico::getRawIconDataEXE
interp alias {} ::ico::writeIconICL      {} ::ico::writeIconEXE

package provide ico 1.1.2

Changes to modules/ico/ico0.tcl.

278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
    variable ICONS

    set file [file normalize $exeFile]
    set cnt  [SearchForIcos $file]
    set dir  {}
    set data {}

    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    for {set i 0} {$i <= $cnt} {incr i} {
        seek $fh $ICONS($file,$i) start
	set ico $ICONS($file,$i,data)
	eval [list lappend dir] $ico
	append data [read $fh [eval calcSize $ico 40]]
    }
    close $fh

    # write them out to a file
    set ifh [open $icoFile w+]
    fconfigure $ifh -eofchar {} -encoding binary -translation lf

    bputs $ifh sss 0 1 [expr {$cnt + 1}]
    set offset [expr {6 + (($cnt + 1) * 16)}]
    foreach {w h bpp} $dir {
	set colors 0
	if {$bpp <= 8} {set colors [expr {1 << $bpp}]}
	set s [calcSize $w $h $bpp 40]







|
<










|
<







278
279
280
281
282
283
284
285

286
287
288
289
290
291
292
293
294
295
296

297
298
299
300
301
302
303
    variable ICONS

    set file [file normalize $exeFile]
    set cnt  [SearchForIcos $file]
    set dir  {}
    set data {}

    set fh [open $file rb]


    for {set i 0} {$i <= $cnt} {incr i} {
        seek $fh $ICONS($file,$i) start
	set ico $ICONS($file,$i,data)
	eval [list lappend dir] $ico
	append data [read $fh [eval calcSize $ico 40]]
    }
    close $fh

    # write them out to a file
    set ifh [open $icoFile wb+]


    bputs $ifh sss 0 1 [expr {$cnt + 1}]
    set offset [expr {6 + (($cnt + 1) * 16)}]
    foreach {w h bpp} $dir {
	set colors 0
	if {$bpp <= 8} {set colors [expr {1 << $bpp}]}
	set s [calcSize $w $h $bpp 40]
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
	append and $tmp
    }

    return [list $w $h $bpp $palette $xor $and]
}

proc ::ico::getIconListICO {file} {
    set fh [open $file r]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
	return -code error "not an icon file"
    }
    set num [getword $fh]
    set r {}







|
<







691
692
693
694
695
696
697
698

699
700
701
702
703
704
705
	append and $tmp
    }

    return [list $w $h $bpp $palette $xor $and]
}

proc ::ico::getIconListICO {file} {
    set fh [open $file rb]


    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
	return -code error "not an icon file"
    }
    set num [getword $fh]
    set r {}
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790

    return $icons
}

# returns an icon in the form:
#	{width height depth palette xor_mask and_mask}
proc ::ico::getRawIconDataICO {file index} {
    set fh [open $file r]
    fconfigure $fh -eofchar {} -encoding binary -translation lf

    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
	return -code error "not an icon file"
    }
    if {$index < 0 || $index >= [getword $fh]} {







|
<







772
773
774
775
776
777
778
779

780
781
782
783
784
785
786

    return $icons
}

# returns an icon in the form:
#	{width height depth palette xor_mask and_mask}
proc ::ico::getRawIconDataICO {file index} {
    set fh [open $file rb]


    # both words must be read to keep in sync with later reads
    if {"[getword $fh] [getword $fh]" ne "0 1"} {
        close $fh
	return -code error "not an icon file"
    }
    if {$index < 0 || $index >= [getword $fh]} {
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
    variable ICONS

    set file [file normalize $file]
    set cnt  [SearchForIcos $file $index]

    if {$cnt < $index} { return -code error "index out of range" }

    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    seek $fh $ICONS($file,$index) start

    # readDIB returns: {w h bpp palette xor and}
    set dib [readDIB $fh]
    close $fh
    return $dib
}

proc ::ico::writeIconICO {file index w h bpp palette xor and} {
    if {![file exists $file]} {
	set fh [open $file w+]
	fconfigure $fh -eofchar {} -encoding binary -translation lf
	bputs $fh sss 0 1 0
	seek $fh 0 start
    } else {
	set fh [open $file r+]
	fconfigure $fh -eofchar {} -encoding binary -translation lf
    }
    if {[file size $file] > 4 && "[getword $fh] [getword $fh]" ne "0 1"} {
	close $fh
	return -code error "not an icon file"
    }
    set num [getword $fh]
    if {$index eq "end"} { set index $num }







|
<










|
<



|
<







849
850
851
852
853
854
855
856

857
858
859
860
861
862
863
864
865
866
867

868
869
870
871

872
873
874
875
876
877
878
    variable ICONS

    set file [file normalize $file]
    set cnt  [SearchForIcos $file $index]

    if {$cnt < $index} { return -code error "index out of range" }

    set fh [open $file rb]

    seek $fh $ICONS($file,$index) start

    # readDIB returns: {w h bpp palette xor and}
    set dib [readDIB $fh]
    close $fh
    return $dib
}

proc ::ico::writeIconICO {file index w h bpp palette xor and} {
    if {![file exists $file]} {
	set fh [open $file wb+]

	bputs $fh sss 0 1 0
	seek $fh 0 start
    } else {
	set fh [open $file rb+]

    }
    if {[file size $file] > 4 && "[getword $fh] [getword $fh]" ne "0 1"} {
	close $fh
	return -code error "not an icon file"
    }
    set num [getword $fh]
    if {$index eq "end"} { set index $num }
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
    append data [binary format ccccssii $w $h $colors 0 0 $bpp [expr {$size + 40}] 22]
    append data [binary format iiissiiiiii 40 $w [expr {$h * 2}] 1 $bpp 0 $size 0 0 0 0]
    append data $palette $xor $and
}

proc ::ico::writeIconBMP {file index w h bpp palette xor and} {
    if {$index != 0} {return -code error "index out of range"}
    set fh [open $file w+]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    set size [expr {[string length $palette] + [string length $xor]}]
    # bitmap header: magic, file size, reserved, reserved, offset of bitmap data
    bputs $fh a2issi BM [expr {14 + 40 + $size}] 0 0 54
    bputs $fh iiissiiiiii 40 $w $h 1 $bpp 0 $size 0 0 0 0
    puts -nonewline $fh $palette$xor
    close $fh
}







|
<







954
955
956
957
958
959
960
961

962
963
964
965
966
967
968
    append data [binary format ccccssii $w $h $colors 0 0 $bpp [expr {$size + 40}] 22]
    append data [binary format iiissiiiiii 40 $w [expr {$h * 2}] 1 $bpp 0 $size 0 0 0 0]
    append data $palette $xor $and
}

proc ::ico::writeIconBMP {file index w h bpp palette xor and} {
    if {$index != 0} {return -code error "index out of range"}
    set fh [open $file wb+]

    set size [expr {[string length $palette] + [string length $xor]}]
    # bitmap header: magic, file size, reserved, reserved, offset of bitmap data
    bputs $fh a2issi BM [expr {14 + 40 + $size}] 0 0 54
    bputs $fh iiissiiiiii 40 $w $h 1 $bpp 0 $size 0 0 0 0
    puts -nonewline $fh $palette$xor
    close $fh
}
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
    if {$index eq "end"} {set index $cnt}
    if {$cnt < $index} { return -code error "index out of range" }

    if {[list $w $h $bpp] != $ICONS($file,$index,data)} {
	return -code error "icon format differs from original"
    }

    set fh [open $file r+]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    seek $fh [expr {$ICONS($file,$index) + 40}] start

    puts -nonewline $fh $palette$xor$and
    close $fh
}

proc ::ico::SearchForIcos {file {index -1}} {
    variable ICONS	  ; # stores icos offsets by index, and [list w h bpp]

    if {[info exists ICONS($file,$index)]} {
	return $ICONS($file,$index)
    }
    set fh [open $file]
    fconfigure $fh -eofchar {} -encoding binary -translation lf
    if {[read $fh 2] ne "MZ"} {
	close $fh
	return -code error "unknown file format"
    }
    seek $fh 60 start
    seek $fh [getword $fh] start
    set sig [read $fh 4]







|
<












|
<







976
977
978
979
980
981
982
983

984
985
986
987
988
989
990
991
992
993
994
995
996

997
998
999
1000
1001
1002
1003
    if {$index eq "end"} {set index $cnt}
    if {$cnt < $index} { return -code error "index out of range" }

    if {[list $w $h $bpp] != $ICONS($file,$index,data)} {
	return -code error "icon format differs from original"
    }

    set fh [open $file rb+]

    seek $fh [expr {$ICONS($file,$index) + 40}] start

    puts -nonewline $fh $palette$xor$and
    close $fh
}

proc ::ico::SearchForIcos {file {index -1}} {
    variable ICONS	  ; # stores icos offsets by index, and [list w h bpp]

    if {[info exists ICONS($file,$index)]} {
	return $ICONS($file,$index)
    }
    set fh [open $file rb]

    if {[read $fh 2] ne "MZ"} {
	close $fh
	return -code error "unknown file format"
    }
    seek $fh 60 start
    seek $fh [getword $fh] start
    set sig [read $fh 4]
1186
1187
1188
1189
1190
1191
1192
1193
	    update idletasks
	}
    }
    grid rowconfigure $parent 0 -weight 1
    grid columnconfigure $parent 0 -weight 1
}

package provide ico 0.3.3







|
1176
1177
1178
1179
1180
1181
1182
1183
	    update idletasks
	}
    }
    grid rowconfigure $parent 0 -weight 1
    grid columnconfigure $parent 0 -weight 1
}

package provide ico 0.3.4

Changes to modules/ico/pkgIndex.tcl.

1
2
3
4
5
6
7
# pkgIndex.tcl --
#
# Copyright (c) 2003 ActiveState Corporation.
# All rights reserved.

package ifneeded ico 0.3.3 [list source [file join $dir ico0.tcl]]
package ifneeded ico 1.1.1 [list source [file join $dir ico.tcl]]





|
|
1
2
3
4
5
6
7
# pkgIndex.tcl --
#
# Copyright (c) 2003 ActiveState Corporation.
# All rights reserved.

package ifneeded ico 0.3.4 [list source [file join $dir ico0.tcl]]
package ifneeded ico 1.1.2 [list source [file join $dir ico.tcl]]

Changes to modules/ipentry/ipentry.man.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

[comment {-*- tcl -*- doctools manpage}]
[manpage_begin ipentry n 0.3]
[keywords entry]
[keywords {ip address}]
[keywords network]
[moddesc   {An IP address entry widget}]
[titledesc {An IP address entry widget}]
[category Widget]
[require Tcl 8.4]
[require Tk 8.4]
[require ipentry [opt 0.3]]
[description]

This package provides a widget for the entering of a IP address.

[para]

[list_begin definitions]
>

|








|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
[vset VERSION 0.3.1]
[comment {-*- tcl -*- doctools manpage}]
[manpage_begin ipentry n [vset VERSION]]
[keywords entry]
[keywords {ip address}]
[keywords network]
[moddesc   {An IP address entry widget}]
[titledesc {An IP address entry widget}]
[category Widget]
[require Tcl 8.4]
[require Tk 8.4]
[require ipentry [opt [vset VERSION]]]
[description]

This package provides a widget for the entering of a IP address.

[para]

[list_begin definitions]

Changes to modules/ipentry/ipentry.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

19
20
21

22
23
24
25
26
27
28
# ipentry.tcl --
#
#       An entry widget for IP addresses.
#
# Copyright (c) 2003-2008 Aaron Faupell <[email protected]>
# Copyright (c) 2008 Pat Thoyts <[email protected]>
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: ipentry.tcl,v 1.19 2009/01/21 07:10:03 afaupell Exp $

package require Tk
package provide ipentry 0.3

namespace eval ::ipentry {
    namespace export ipentry ipentry6
    # copy all the bindings from Entry class to our own IPEntrybindtag class

    foreach x [bind Entry] {
        bind IPEntrybindtag $x [bind Entry $x]
    }

    # then replace certain keys we are interested in with our own
    bind IPEntrybindtag <KeyPress>         {::ipentry::keypress %W %K}
    bind IPEntrybindtag <BackSpace>        {::ipentry::backspace %W}
    bind IPEntrybindtag <period>           {::ipentry::dot %W}
    bind IPEntrybindtag <Key-Right>        {::ipentry::arrow %W %K}
    bind IPEntrybindtag <Key-Left>         {::ipentry::arrow %W %K}
    bind IPEntrybindtag <FocusIn>          {::ipentry::FocusIn %W}









|
<
<

|




>



>







1
2
3
4
5
6
7
8
9
10


11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# ipentry.tcl --
#
#       An entry widget for IP addresses.
#
# Copyright (c) 2003-2008 Aaron Faupell <[email protected]>
# Copyright (c) 2008 Pat Thoyts <[email protected]>
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.



package require Tk
package provide ipentry 0.3.1

namespace eval ::ipentry {
    namespace export ipentry ipentry6
    # copy all the bindings from Entry class to our own IPEntrybindtag class
    variable x
    foreach x [bind Entry] {
        bind IPEntrybindtag $x [bind Entry $x]
    }

    # then replace certain keys we are interested in with our own
    bind IPEntrybindtag <KeyPress>         {::ipentry::keypress %W %K}
    bind IPEntrybindtag <BackSpace>        {::ipentry::backspace %W}
    bind IPEntrybindtag <period>           {::ipentry::dot %W}
    bind IPEntrybindtag <Key-Right>        {::ipentry::arrow %W %K}
    bind IPEntrybindtag <Key-Left>         {::ipentry::arrow %W %K}
    bind IPEntrybindtag <FocusIn>          {::ipentry::FocusIn %W}
45
46
47
48
49
50
51


52
53
54
55
56
57
58
    #             IPEntryFrame.padding -sticky news
    #         }
    #     }
    #     bind [winfo class .] <<ThemeChanged>> \
    #         [list +ttk::style layout IPEntryFrame \
    #              [ttk::style layout IPEntryFrame]]
    # }


}

# ipentry --
#
# main entry point - construct a new ipentry widget
#
# ARGS:







>
>







45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
    #             IPEntryFrame.padding -sticky news
    #         }
    #     }
    #     bind [winfo class .] <<ThemeChanged>> \
    #         [list +ttk::style layout IPEntryFrame \
    #              [ttk::style layout IPEntryFrame]]
    # }

    unset x
}

# ipentry --
#
# main entry point - construct a new ipentry widget
#
# ARGS:

Changes to modules/ipentry/pkgIndex.tcl.

1
2
3
if { ![package vsatisfies [package provide Tcl] 8.4-] } { return }
package ifneeded ipentry 0.3 [list source [file join $dir ipentry.tcl]]


|

1
2
3
if { ![package vsatisfies [package provide Tcl] 8.4-] } { return }
package ifneeded ipentry 0.3.1 [list source [file join $dir ipentry.tcl]]

Changes to modules/khim/khim.man.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

[comment {-*- tcl -*- doctools manpage}]
[manpage_begin khim n 1.0]
[keywords character]
[keywords i18n]
[keywords input]
[keywords international]
[keywords method]
[moddesc   {Kevin's Hacky Input Method}]
[titledesc {Provides key bindings for entering international characters on a keyboard that does not support them}]
[require Tcl]
[require khim [opt 1.0]]
[description]

This package provides a set of key bindings to allow
a user to enter arbitrary characters on a keyboard that
does not support them.  It works by designating some seldom-used key
of the keyboard as a "Compose" key (this key is distinct from any key
so labeled, and is often "Pause," "F12" or "L2"), and having the
>

|








|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
[vset VERSION 1.0.2]
[comment {-*- tcl -*- doctools manpage}]
[manpage_begin khim n [vset VERSION]]
[keywords character]
[keywords i18n]
[keywords input]
[keywords international]
[keywords method]
[moddesc   {Kevin's Hacky Input Method}]
[titledesc {Provides key bindings for entering international characters on a keyboard that does not support them}]
[require Tcl]
[require khim [opt [vset VERSION]]]
[description]

This package provides a set of key bindings to allow
a user to enter arbitrary characters on a keyboard that
does not support them.  It works by designating some seldom-used key
of the keyboard as a "Compose" key (this key is distinct from any key
so labeled, and is often "Pause," "F12" or "L2"), and having the

Changes to modules/khim/khim.tcl.

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
# replaced with a Unicode character, which is inserted into the widget.
#
# Copyright (c) 2006 by Kevin B. Kenny.  All rights reserved.
#
# Refer to the file "license.terms" for the terms and conditions of
# use and redistribution of this file, and a DISCLAIMER OF ALL WARRANTEES.
#
# $Id: khim.tcl,v 1.10 2007/06/08 19:24:31 kennykb Exp $
# $Source: /home/rkeene/tmp/cvs2fossil/tcllib/tklib/modules/khim/khim.tcl,v $
#
#----------------------------------------------------------------------

package require Tcl 8.4-
package require Tk 8.4-
package require msgcat 1.2
package require autoscroll 1.0

package provide khim 1.0.1

namespace eval khim [list variable KHIMDir [file dirname [info script]]]

namespace eval khim {

    namespace import ::msgcat::mc








<
<
<







|







13
14
15
16
17
18
19



20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# replaced with a Unicode character, which is inserted into the widget.
#
# Copyright (c) 2006 by Kevin B. Kenny.  All rights reserved.
#
# Refer to the file "license.terms" for the terms and conditions of
# use and redistribution of this file, and a DISCLAIMER OF ALL WARRANTEES.
#



#----------------------------------------------------------------------

package require Tcl 8.4-
package require Tk 8.4-
package require msgcat 1.2
package require autoscroll 1.0

package provide khim 1.0.2

namespace eval khim [list variable KHIMDir [file dirname [info script]]]

namespace eval khim {

    namespace import ::msgcat::mc

294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
    wm title $w [mc "KHIM Controls"]
    bind $w <Destroy> [list ::khim::HandleDestroy $w %W]

    # Create GUI and manage geometry

    checkbutton $w.v -variable ::khim::inputUse -text [mc "Use KHIM"]
    label $w.l1 -text [mc "Compose key:"]
    button $w.b1 -textvariable khim::inputComposeKey \
	-command [list ::khim::GetComposeKey $w.b1]
    labelframe $w.lf1 -text [mc "Key sequences"] -padx 5 -pady 5 -width 400
    listbox $w.lf1.lb -height 20 -yscroll [list $w.lf1.y set] \
	-font {Courier 12} -width 8 -height 10 \
	-exportselection 0
    bind $w.lf1.lb <<ListboxSelect>> [list ::khim::Select %W]
    scrollbar $w.lf1.y -orient vertical -command [list $w.lf1.lb yview]







|







291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
    wm title $w [mc "KHIM Controls"]
    bind $w <Destroy> [list ::khim::HandleDestroy $w %W]

    # Create GUI and manage geometry

    checkbutton $w.v -variable ::khim::inputUse -text [mc "Use KHIM"]
    label $w.l1 -text [mc "Compose key:"]
    button $w.b1 -textvariable ::khim::inputComposeKey \
	-command [list ::khim::GetComposeKey $w.b1]
    labelframe $w.lf1 -text [mc "Key sequences"] -padx 5 -pady 5 -width 400
    listbox $w.lf1.lb -height 20 -yscroll [list $w.lf1.y set] \
	-font {Courier 12} -width 8 -height 10 \
	-exportselection 0
    bind $w.lf1.lb <<ListboxSelect>> [list ::khim::Select %W]
    scrollbar $w.lf1.y -orient vertical -command [list $w.lf1.lb yview]
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651

    if { ![info exists CMapInputCodePage($map)] } {
	set CMapInputCodePage($map) 0
	set CMapCodePage($map) 0
    }
    grid [label $map.l1 -text [mc {Select code page:}]] \
	-row 0 -column 0 -sticky e
    grid [spinbox $map.spin -textvariable khim::CMapInputCodePage($map) \
	      -width 4] \
	-row 0 -column 1 -sticky w

    # Get canvas background from the background that a text widget would
    # have had.
    text $map.text
    set CMapBackground($map) [$map.text cget -background]







|







1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648

    if { ![info exists CMapInputCodePage($map)] } {
	set CMapInputCodePage($map) 0
	set CMapCodePage($map) 0
    }
    grid [label $map.l1 -text [mc {Select code page:}]] \
	-row 0 -column 0 -sticky e
    grid [spinbox $map.spin -textvariable ::khim::CMapInputCodePage($map) \
	      -width 4] \
	-row 0 -column 1 -sticky w

    # Get canvas background from the background that a text widget would
    # have had.
    text $map.text
    set CMapBackground($map) [$map.text cget -background]
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
	[button .bload -text "Load config" -command "testLoadConfig"] \
	[button .bsave -text "Save config" -command "testSaveConfig"] \
	[button .bhelp -text "Help" -command "khim::showHelp .help"] \
	[button .bquit -text "Quit" -command "exit"] \
	-padx 5 -pady 5

    proc testLoadConfig {} {
	source ~/.khimrc
    }
    proc testSaveConfig {} {
	set f [open ~/.khimrc w]
	puts $f [khim::getConfig]
	close $f
    }

}







|


|





2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
	[button .bload -text "Load config" -command "testLoadConfig"] \
	[button .bsave -text "Save config" -command "testSaveConfig"] \
	[button .bhelp -text "Help" -command "khim::showHelp .help"] \
	[button .bquit -text "Quit" -command "exit"] \
	-padx 5 -pady 5

    proc testLoadConfig {} {
	source $::env(HOME)/.khimrc
    }
    proc testSaveConfig {} {
	set f [open $::env(HOME)/.khimrc w]
	puts $f [khim::getConfig]
	close $f
    }

}

Changes to modules/khim/pkgIndex.tcl.

1
2
3
4
5
6
7
8
9
10
11
# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script.  It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands.  When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.

package ifneeded khim 1.0.1 [list source [file join $dir khim.tcl]]
<
<
<
<
<
<
<
<
<
<
|










1










package ifneeded khim 1.0.2 [list source [file join $dir khim.tcl]]

Changes to modules/shtmlview/pkgIndex.tcl.

1
2
3
package ifneeded shtmlview::shtmlview 1.1.0 [list source [file join $dir shtmlview.tcl]]
package ifneeded shtmlview::doctools    0.1 [list source [file join $dir shtmlview-doctools.tcl]]
package ifneeded shtmlview::mkdoc       0.1 [list source [file join $dir shtmlview-mkdoc.tcl]]
|


1
2
3
package ifneeded shtmlview::shtmlview 1.1.1 [list source [file join $dir shtmlview.tcl]]
package ifneeded shtmlview::doctools    0.1 [list source [file join $dir shtmlview-doctools.tcl]]
package ifneeded shtmlview::mkdoc       0.1 [list source [file join $dir shtmlview-mkdoc.tcl]]

Changes to modules/shtmlview/shtmlview.man.

1
2
3
4
5
6
7
8
[vset VERSION 1.1.0]
[comment {-*- mode: tcl; fill-column: 80 -*- doctools manpage}]
[manpage_begin shtmlview n [vset VERSION]]
[see_also text]
[keywords text]
[keywords html]
[keywords widget]
[copyright {2018-2022, Detlef Groth <detlef(at)dgroth(dot)de>}]
|







1
2
3
4
5
6
7
8
[vset VERSION 1.1.1]
[comment {-*- mode: tcl; fill-column: 80 -*- doctools manpage}]
[manpage_begin shtmlview n [vset VERSION]]
[see_also text]
[keywords text]
[keywords html]
[keywords widget]
[copyright {2018-2022, Detlef Groth <detlef(at)dgroth(dot)de>}]

Changes to modules/shtmlview/shtmlview.tcl.

102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
    lappend auto_path [file join [file dirname [info script]] .. libs]
}

package require Tcl 8.5-
package require Tk
package require snit

package provide shtmlview::shtmlview 1.1.0

# Optional packages supporting various features (jpeg images, tile/themes)
# Markdown support - See bottom
catch { package require img::jpeg }
catch { package require tile      }

if {[info command luniq] eq ""} {







|







102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
    lappend auto_path [file join [file dirname [info script]] .. libs]
}

package require Tcl 8.5-
package require Tk
package require snit

package provide shtmlview::shtmlview 1.1.1

# Optional packages supporting various features (jpeg images, tile/themes)
# Markdown support - See bottom
catch { package require img::jpeg }
catch { package require tile      }

if {[info command luniq] eq ""} {
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
                 #
                 #}
            }
            $win insert $var(S_insert) "\n"
            set var(tabletext) ""
            set var(tablecols) [list]
            set var(tablemode) false
        }
        proc HMtag_tr {selfns win param text} {
            upvar #0 HM$win var
            upvar $text data
            append var(tabletext) "\n"
            if {[info exists var(tablemode)] && !$var(tablemode)} {
                $win insert $var(S_insert) ""
            }







|







1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
                 #
                 #}
            }
            $win insert $var(S_insert) "\n"
            set var(tabletext) ""
            set var(tablecols) [list]
            set var(tablemode) false
	}
        proc HMtag_tr {selfns win param text} {
            upvar #0 HM$win var
            upvar $text data
            append var(tabletext) "\n"
            if {[info exists var(tablemode)] && !$var(tablemode)} {
                $win insert $var(S_insert) ""
            }
3244
3245
3246
3247
3248
3249
3250






3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283

namespace eval ::svgconvert {
    # collect all the include directories
    catch {
        package require critcl
    }
    if {[info command ::critcl::compiling] ne "" && [critcl::compiling]} {






        catch {
        set options [regsub -all -- -I [exec pkg-config --cflags --libs cairo --libs librsvg-2.0] "I "]
        set dirs [list]
        foreach {i dir} $options {
            if {$i eq "I"} {
                lappend dirs $dir
            }
        }
        critcl::clibraries -lrsvg-2 -lm -lgio-2.0 -lgdk_pixbuf-2.0 -lgobject-2.0 -lglib-2.0 -lcairo -pthread
        critcl::config I $dirs
        critcl::ccode {
            #include <string.h>
            #include <stdio.h>
            #include <cairo.h>
            #include <cairo/cairo-pdf.h>
            #include <cairo/cairo-svg.h>
            #include <librsvg/rsvg.h>
        }


        critcl::cproc svgconvert {char* svgfile  char* outfile double scalex double scaley} void {
            // new
            char *epdf = ".pdf";
            char *esvg = ".svg";
            char *pdf = strstr(outfile, epdf);
            char *svg = strstr(outfile, esvg);

            RsvgHandle *handle;
            //RsvgDimensionData dimension_data; // deprecated
            gdouble width = 0.0;
            gdouble height = 0.0;
            GError* err = NULL;
            handle = rsvg_handle_new_from_file(svgfile, &err);







>
>
>
>
>
>

|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|

<
|
|
|
|
|
|







3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275

3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288

namespace eval ::svgconvert {
    # collect all the include directories
    catch {
        package require critcl
    }
    if {[info command ::critcl::compiling] ne "" && [critcl::compiling]} {
	# ensure that these are in the namespace, and not global
	variable options
	variable dirs
	variable dir
	variable i
	
        catch {
	    set options [regsub -all -- -I [exec pkg-config --cflags --libs cairo --libs librsvg-2.0] "I "]
	    set dirs [list]
	    foreach {i dir} $options {
		if {$i eq "I"} {
		    lappend dirs $dir
		}
	    }
	    critcl::clibraries -lrsvg-2 -lm -lgio-2.0 -lgdk_pixbuf-2.0 -lgobject-2.0 -lglib-2.0 -lcairo -pthread
	    critcl::config I $dirs
	    critcl::ccode {
		#include <string.h>
		#include <stdio.h>
		#include <cairo.h>
		#include <cairo/cairo-pdf.h>
		#include <cairo/cairo-svg.h>
		#include <librsvg/rsvg.h>
	    }


	    critcl::cproc svgconvert {char* svgfile  char* outfile double scalex double scaley} void {
		// new
		char *epdf = ".pdf";
		char *esvg = ".svg";
		char *pdf = strstr(outfile, epdf);
		char *svg = strstr(outfile, esvg);

            RsvgHandle *handle;
            //RsvgDimensionData dimension_data; // deprecated
            gdouble width = 0.0;
            gdouble height = 0.0;
            GError* err = NULL;
            handle = rsvg_handle_new_from_file(svgfile, &err);

Changes to modules/tablelist/scripts/tablelistEdit.tcl.

3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
	    return 1
	} else {
	    set bindTags [bindtags $w]
	    return [expr {([lsearch -exact $bindTags "MentryDateTime"] >= 0 ||
			   [lsearch -exact $bindTags "MentryMeridian"] >= 0 ||
			   [lsearch -exact $bindTags "MentryIPAddr"] >= 0 ||
			   [lsearch -exact $bindTags "MentryIPv6Addr"] >= 0) &&
			  ($mentry::version >= 3.2)}]
	}
    }
}

#------------------------------------------------------------------------------
# tablelist::isComboTopMapped
#







|







3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
	    return 1
	} else {
	    set bindTags [bindtags $w]
	    return [expr {([lsearch -exact $bindTags "MentryDateTime"] >= 0 ||
			   [lsearch -exact $bindTags "MentryMeridian"] >= 0 ||
			   [lsearch -exact $bindTags "MentryIPAddr"] >= 0 ||
			   [lsearch -exact $bindTags "MentryIPv6Addr"] >= 0) &&
			  ($::mentry::version >= 3.2)}]
	}
    }
}

#------------------------------------------------------------------------------
# tablelist::isComboTopMapped
#

Changes to support/releases/history/README-0.8.md.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Overview
========

||||||
|---:|:---|:---|---:|:---|
|50|new packages|in|6|modules|
|16|changed packages|in|13|modules|
|42|internally changed packages|in|19|modules|
|7|unchanged packages|in|2|modules|
|122|packages, total|in|35|modules, total|

Legend
======

|Change|Details|Comments|






|
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Overview
========

||||||
|---:|:---|:---|---:|:---|
|50|new packages|in|6|modules|
|18|changed packages|in|15|modules|
|40|internally changed packages|in|17|modules|
|7|unchanged packages|in|2|modules|
|122|packages, total|in|35|modules, total|

Legend
======

|Change|Details|Comments|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
||map::track::map-display|0.1||
||map::track::store::fs|0.1||
||map::track::store::memory|0.1||
||map::track::table-display|0.1||
|||||
|shtmlview|shtmlview::doctools|0.1||
||shtmlview::mkdoc|0.1||
||shtmlview::shtmlview|1.1.0||
|||||
|text|dgw::txmixins|0.2.0||
|treeview|dgw::tvmixins|0.3||
|widget|widget|3.1||
||widget::arrowbutton|1.0||
||widget::calendar|1.0.1||
||widget::dateentry|0.97||







|







59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
||map::track::map-display|0.1||
||map::track::store::fs|0.1||
||map::track::store::memory|0.1||
||map::track::table-display|0.1||
|||||
|shtmlview|shtmlview::doctools|0.1||
||shtmlview::mkdoc|0.1||
||shtmlview::shtmlview|1.1.1||
|||||
|text|dgw::txmixins|0.2.0||
|treeview|dgw::tvmixins|0.3||
|widget|widget|3.1||
||widget::arrowbutton|1.0||
||widget::calendar|1.0.1||
||widget::dateentry|0.97||
93
94
95
96
97
98
99
100
101



102
103
104
105
106
107
108
||canvas::edit::quadrilateral|0.1|0.2|D EF I|
||||||
|chatwidget|chatwidget|1.1.0|1.1.4|B EF I|
|crosshair|crosshair|1.2|1.2.1|B D I|
|diagrams|diagram::application|1.2|1.3|EF I|
|history|history|0.1|0.2|D EF I|
||||||
|ico|ico|0.3.2|0.3.3|B D I|
||ico|1.1|1.1.1|B D I|



||||||
|mentry|mentry::common|3.10||B D EF|
||mentry::common||4.2|B D EF|
||||||
|notifywindow|notifywindow|1.0|1.0.1|B D I|
|plotchart|Plotchart|2.4.1|2.6.2|B D EF I T|
||||||







|
|
>
>
>







93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
||canvas::edit::quadrilateral|0.1|0.2|D EF I|
||||||
|chatwidget|chatwidget|1.1.0|1.1.4|B EF I|
|crosshair|crosshair|1.2|1.2.1|B D I|
|diagrams|diagram::application|1.2|1.3|EF I|
|history|history|0.1|0.2|D EF I|
||||||
|ico|ico|0.3.2|0.3.4|B D I|
||ico|1.1|1.1.2|B D I|
||||||
|ipentry|ipentry|0.3|0.3.1|D I|
|khim|khim|1.0.1|1.0.2|I|
||||||
|mentry|mentry::common|3.10||B D EF|
||mentry::common||4.2|B D EF|
||||||
|notifywindow|notifywindow|1.0|1.0.1|B D I|
|plotchart|Plotchart|2.4.1|2.6.2|B D EF I T|
||||||
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
||diagram::core|1|1|I|
||diagram::direction|1|1|I|
||diagram::element|1|1|I|
||diagram::navigation|1|1|I|
||diagram::point|1|1|I|
||||||
|getstring|getstring|0.1|0.1|D I|
|ipentry|ipentry|0.3|0.3|D I|
|khim|khim|1.0.1|1.0.1|I|
||||||
|menubar|menubar|0.5|0.5|D I|
||menubar::debug|0.5|0.5|I|
||menubar::node|0.5|0.5|I|
||menubar::tree|0.5|0.5|I|
||||||
|persistentSelection|persistentSelection|1.0b1|1.0b1|D I|







<
<







154
155
156
157
158
159
160


161
162
163
164
165
166
167
||diagram::core|1|1|I|
||diagram::direction|1|1|I|
||diagram::element|1|1|I|
||diagram::navigation|1|1|I|
||diagram::point|1|1|I|
||||||
|getstring|getstring|0.1|0.1|D I|


||||||
|menubar|menubar|0.5|0.5|D I|
||menubar::debug|0.5|0.5|I|
||menubar::node|0.5|0.5|I|
||menubar::tree|0.5|0.5|I|
||||||
|persistentSelection|persistentSelection|1.0b1|1.0b1|D I|

Changes to support/releases/history/README-0.8.txt.

1
2
3
4
5
6
7
8
9
10
11
12
13
Overview
========

    50  new packages                in 6  modules
    16  changed packages            in 13 modules
    42  internally changed packages in 19 modules
    7   unchanged packages          in 2  modules
    122 packages, total             in 35 modules, total

Legend
======

    Change   Details   Comments




|
|







1
2
3
4
5
6
7
8
9
10
11
12
13
Overview
========

    50  new packages                in 6  modules
    18  changed packages            in 15 modules
    40  internally changed packages in 17 modules
    7   unchanged packages          in 2  modules
    122 packages, total             in 35 modules, total

Legend
======

    Change   Details   Comments
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
                map::track::map-display     0.1
                map::track::store::fs       0.1
                map::track::store::memory   0.1
                map::track::table-display   0.1
    ----------- --------------------------- ------------- ----------
    shtmlview   shtmlview::doctools         0.1
                shtmlview::mkdoc            0.1
                shtmlview::shtmlview        1.1.0
    ----------- --------------------------- ------------- ----------
    text        dgw::txmixins               0.2.0
    treeview    dgw::tvmixins               0.3
    ----------- --------------------------- ------------- ----------
    widget      widget                      3.1
                widget::arrowbutton         1.0
                widget::calendar            1.0.1







|







58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
                map::track::map-display     0.1
                map::track::store::fs       0.1
                map::track::store::memory   0.1
                map::track::table-display   0.1
    ----------- --------------------------- ------------- ----------
    shtmlview   shtmlview::doctools         0.1
                shtmlview::mkdoc            0.1
                shtmlview::shtmlview        1.1.1
    ----------- --------------------------- ------------- ----------
    text        dgw::txmixins               0.2.0
    treeview    dgw::tvmixins               0.3
    ----------- --------------------------- ------------- ----------
    widget      widget                      3.1
                widget::arrowbutton         1.0
                widget::calendar            1.0.1
93
94
95
96
97
98
99
100
101



102
103
104
105
106
107
108
                   canvas::edit::quadrilateral   0.1        0.2      D EF I
    -------------- ----------------------------- ---------- -------- ------------
    chatwidget     chatwidget                    1.1.0      1.1.4    B EF I
    crosshair      crosshair                     1.2        1.2.1    B D I
    diagrams       diagram::application          1.2        1.3      EF I
    history        history                       0.1        0.2      D EF I
    -------------- ----------------------------- ---------- -------- ------------
    ico            ico                           0.3.2      0.3.3    B D I
                   ico                           1.1        1.1.1    B D I



    -------------- ----------------------------- ---------- -------- ------------
    mentry         mentry::common                3.10                B D EF
                   mentry::common                           4.2      B D EF
    -------------- ----------------------------- ---------- -------- ------------
    notifywindow   notifywindow                  1.0        1.0.1    B D I
    plotchart      Plotchart                     2.4.1      2.6.2    B D EF I T
    -------------- ----------------------------- ---------- -------- ------------







|
|
>
>
>







93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
                   canvas::edit::quadrilateral   0.1        0.2      D EF I
    -------------- ----------------------------- ---------- -------- ------------
    chatwidget     chatwidget                    1.1.0      1.1.4    B EF I
    crosshair      crosshair                     1.2        1.2.1    B D I
    diagrams       diagram::application          1.2        1.3      EF I
    history        history                       0.1        0.2      D EF I
    -------------- ----------------------------- ---------- -------- ------------
    ico            ico                           0.3.2      0.3.4    B D I
                   ico                           1.1        1.1.2    B D I
    -------------- ----------------------------- ---------- -------- ------------
    ipentry        ipentry                       0.3        0.3.1    D I
    khim           khim                          1.0.1      1.0.2    I
    -------------- ----------------------------- ---------- -------- ------------
    mentry         mentry::common                3.10                B D EF
                   mentry::common                           4.2      B D EF
    -------------- ----------------------------- ---------- -------- ------------
    notifywindow   notifywindow                  1.0        1.0.1    B D I
    plotchart      Plotchart                     2.4.1      2.6.2    B D EF I T
    -------------- ----------------------------- ---------- -------- ------------
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
                          diagram::core          1          1        I
                          diagram::direction     1          1        I
                          diagram::element       1          1        I
                          diagram::navigation    1          1        I
                          diagram::point         1          1        I
    --------------------- ---------------------- ---------- -------- ----------
    getstring             getstring              0.1        0.1      D I
    ipentry               ipentry                0.3        0.3      D I
    khim                  khim                   1.0.1      1.0.1    I
    --------------------- ---------------------- ---------- -------- ----------
    menubar               menubar                0.5        0.5      D I
                          menubar::debug         0.5        0.5      I
                          menubar::node          0.5        0.5      I
                          menubar::tree          0.5        0.5      I
    --------------------- ---------------------- ---------- -------- ----------
    persistentSelection   persistentSelection    1.0b1      1.0b1    D I







<
<







155
156
157
158
159
160
161


162
163
164
165
166
167
168
                          diagram::core          1          1        I
                          diagram::direction     1          1        I
                          diagram::element       1          1        I
                          diagram::navigation    1          1        I
                          diagram::point         1          1        I
    --------------------- ---------------------- ---------- -------- ----------
    getstring             getstring              0.1        0.1      D I


    --------------------- ---------------------- ---------- -------- ----------
    menubar               menubar                0.5        0.5      D I
                          menubar::debug         0.5        0.5      I
                          menubar::node          0.5        0.5      I
                          menubar::tree          0.5        0.5      I
    --------------------- ---------------------- ---------- -------- ----------
    persistentSelection   persistentSelection    1.0b1      1.0b1    D I