e_menu

 Check-in [f73d333c4d]
aplsimple | Login
☰Home DocsDownload Wiki

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

Overview
Comment:v4.6.1
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f73d333c4d1121275531dcb497510d156cdc007e2602e7967bd1c218815fe1d5
User & Date: apl 2025-04-16 11:56:34.293
Context
2025-04-23
10:52
apave mod. check-in: 071c84a69a user: apl tags: trunk
2025-04-16
11:56
v4.6.1 check-in: f73d333c4d user: apl tags: trunk
2025-04-08
17:38
v4.6.0 check-in: 7fb8ce8ec0 user: apl tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to CHANGELOG.md. 
1
2
3
4
5
6
7
8
9
10
11
12
13

# Last changes:


Version `4.6.0 (2 Apr'25)`

  - CHANGE: packages: apave 4.6.0


Version `4.5.3 (19 Feb'25)`

  - NEW   : doctest: code may include #< comments to execute by doctest
  - CHANGE: packages: apave 4.5.3





|

|








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

# Last changes:


Version `4.6.1 (16 Apr'25)`

  - CHANGE: packages: apave 4.6.1


Version `4.5.3 (19 Feb'25)`

  - NEW   : doctest: code may include #< comments to execute by doctest
  - CHANGE: packages: apave 4.5.3
︙︙
Changes to e_menu.tcl.
︙︙
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

# source ~/PG/bb.tcl
#####################################################################

package require Tk
wm withdraw .

namespace eval ::em {
  variable em_version {e_menu 4.6.0}
  variable em_script [file normalize [info script]]
  variable solo [expr {[info exist ::em::executable] || ( \
  [info exist ::argv0] && [file normalize $::argv0] eq $em_script)} ? 1 : 0]
  variable Argv0
  if {$solo} {set Argv0 [file normalize $::argv0]} {set Argv0 [info script]}
  if {[info exist ::em::executable]} {set Argv0 [file dirname $Argv0]}
  variable Argv; if {[info exist ::argv]} {set Argv $::argv} {set Argv [list]}








|








24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

# source ~/PG/bb.tcl
#####################################################################

package require Tk
wm withdraw .

namespace eval ::em {
  variable em_version {e_menu 4.6.1}
  variable em_script [file normalize [info script]]
  variable solo [expr {[info exist ::em::executable] || ( \
  [info exist ::argv0] && [file normalize $::argv0] eq $em_script)} ? 1 : 0]
  variable Argv0
  if {$solo} {set Argv0 [file normalize $::argv0]} {set Argv0 [info script]}
  if {[info exist ::em::executable]} {set Argv0 [file dirname $Argv0]}
  variable Argv; if {[info exist ::argv]} {set Argv $::argv} {set Argv [list]}
︙︙
Changes to src/apave.tcl. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

###########################################################
# Name:    apave.tcl
# Author:  Alex Plotnikov  (aplsimple@gmail.com)
# Date:    12/09/2021
# Brief:   Handles APave class creating input dialogs.
# License: MIT.
###########################################################

package require Tk
package provide apave 4.6.0

source [file join [file dirname [info script]] apavedialog.tcl]

# ________________________ Independent procs _________________________ #

proc ::iswindows {} {
  # Checks for "platform is MS Windows".










|








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

###########################################################
# Name:    apave.tcl
# Author:  Alex Plotnikov  (aplsimple@gmail.com)
# Date:    12/09/2021
# Brief:   Handles APave class creating input dialogs.
# License: MIT.
###########################################################

package require Tk
package provide apave 4.6.1

source [file join [file dirname [info script]] apavedialog.tcl]

# ________________________ Independent procs _________________________ #

proc ::iswindows {} {
  # Checks for "platform is MS Windows".
︙︙
Changes to src/obbit.tcl.
︙︙
1750
1751
1752
1753
1754
1755
1756

1757
1758
1759
1760
1761
1762
1763

        -focusfill [list {readonly focus} $tbgS] -arrowcolor [list disabled $tfgD]
    } else {
      my Ttk_style configure $ts -foreground $tfg2
      my Ttk_style configure $ts -background $tbg2
      if {$ts eq {Treeview}} {
        ttk::style map $ts -foreground [list readonly $tfgD disabled $tfgD {selected focus} $tfgS {selected !focus} $thlp] \
          -background [list readonly $tbgD disabled $tbgD {selected focus} $tbgS {selected !focus} $tbg1]

      } else {
        my Ttk_style map $ts -foreground [list readonly $tfgD disabled $tfgD selected $tfgS]
        my Ttk_style map $ts -background [list readonly $tbgD disabled $tbgD selected $tbgS]
        my Ttk_style map $ts -fieldforeground [list readonly $tfgD disabled $tfgD]
        my Ttk_style map $ts -fieldbackground [list readonly $tbgD disabled $tbgD]
        my Ttk_style map $ts -arrowcolor [list disabled $tfgD]
        my Ttk_style configure $ts -arrowcolor $tfg1








>








1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764

        -focusfill [list {readonly focus} $tbgS] -arrowcolor [list disabled $tfgD]
    } else {
      my Ttk_style configure $ts -foreground $tfg2
      my Ttk_style configure $ts -background $tbg2
      if {$ts eq {Treeview}} {
        ttk::style map $ts -foreground [list readonly $tfgD disabled $tfgD {selected focus} $tfgS {selected !focus} $thlp] \
          -background [list readonly $tbgD disabled $tbgD {selected focus} $tbgS {selected !focus} $tbg1]
        ttk::style configure $ts -rowheight [expr {[my basicFontSize] + 9}]
      } else {
        my Ttk_style map $ts -foreground [list readonly $tfgD disabled $tfgD selected $tfgS]
        my Ttk_style map $ts -background [list readonly $tbgD disabled $tbgD selected $tbgS]
        my Ttk_style map $ts -fieldforeground [list readonly $tfgD disabled $tfgD]
        my Ttk_style map $ts -fieldbackground [list readonly $tbgD disabled $tbgD]
        my Ttk_style map $ts -arrowcolor [list disabled $tfgD]
        my Ttk_style configure $ts -arrowcolor $tfg1
︙︙
Changes to src/pkgIndex.tcl. 
1
2
3
4
5
6
7
8

package ifneeded apave 4.6.0 [list source [file join $dir apave.tcl]]

# A short intro (for Ruff! docs generator:)

namespace eval apave {

  set _ruff_preamble {


|








1
2
3
4
5
6
7
8

package ifneeded apave 4.6.1 [list source [file join $dir apave.tcl]]

# A short intro (for Ruff! docs generator:)

namespace eval apave {

  set _ruff_preamble {
︙︙
This page was generated in about 0.031s by Fossil 2.26 [1205ec86cb] 2025-04-30 16:57:32