Check-in [3eec9d20bd]
Not logged in

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

Overview
Comment:fix for ticket [bbcf24802e]
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3eec9d20bd168b830aa6089ce3188375b29cc090
User & Date: chw 2019-08-16 05:24:42
References
2019-08-16
05:25 Closed ticket [bbcf24802e]: 'package require iwidgets' fails if executable's path contains spaces + FIX plus 5 other changes artifact: 973ddf88cb user: chw
Context
2019-08-16
06:00
another attempt to fix ticket [7044332162] check-in: a6855c2f6f user: chw tags: trunk
05:24
fix for ticket [bbcf24802e] check-in: 3eec9d20bd user: chw tags: trunk
05:14
add tk upstream changes check-in: 9338071fae user: chw tags: trunk
Changes

Changes to assets/iwidgets4.1/pkgIndex.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

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

65
66
67

68

69
70

# Tcl package index file
namespace eval ::iwidgets {
    namespace export *
    variable library [file dirname [info script]]
    variable version 4.1
}
package ifneeded Iwidgets 4.0 {
  package require iwidgets 
  package provide Iwidgets 4.0
}
package ifneeded iwidgets $::iwidgets::version "
  package req itk 4
  source [file join $dir colors.itcl]
  source [file join $dir roman.itcl]
  source [file join $dir buttonbox.itk]
  source [file join $dir calendar.itk]
  source [file join $dir canvasprintbox.itk]
  source [file join $dir shell.itk]
  source [file join $dir dialogshell.itk]
  source [file join $dir dialog.itk]
  source [file join $dir canvasprintdialog.itk]
  source [file join $dir labeledframe.itk]
  source [file join $dir checkbox.itk]
  source [file join $dir labeledwidget.itk]
  source [file join $dir entryfield.itk]
  source [file join $dir combobox.itk]
  source [file join $dir datefield.itk]
  source [file join $dir dateentry.itk]

  source [file join $dir disjointlistbox.itk]
  source [file join $dir extbutton.itk]
  source [file join $dir extfileselectionbox.itk]
  source [file join $dir extfileselectiondialog.itk]
  source [file join $dir feedback.itk]
  source [file join $dir fileselectionbox.itk]
  source [file join $dir fileselectiondialog.itk]
  source [file join $dir finddialog.itk]
  source [file join $dir scrolledwidget.itk]
  source [file join $dir hierarchy.itk]
  source [file join $dir hyperhelp.itk]
  source [file join $dir mainwindow.itk]
  source [file join $dir menubar.itk]
  source [file join $dir messagebox.itk]
  source [file join $dir messagedialog.itk]
  source [file join $dir notebook.itk]
  source [file join $dir optionmenu.itk]
  source [file join $dir panedwindow.itk]
  source [file join $dir pane.itk]
  source [file join $dir promptdialog.itk]
  source [file join $dir pushbutton.itk]
  source [file join $dir radiobox.itk]
  source [file join $dir regexpfield.itk]
  source [file join $dir scrolledcanvas.itk]
  source [file join $dir scrolledframe.itk]
  source [file join $dir scrolledtext.itk]
  source [file join $dir scrolledhtml.itk]
  source [file join $dir scrolledlistbox.itk]
  source [file join $dir selectionbox.itk]
  source [file join $dir selectiondialog.itk]
  source [file join $dir spindate.itk]
  source [file join $dir spinner.itk]
  source [file join $dir spinint.itk]
  source [file join $dir spintime.itk]
  source [file join $dir tabnotebook.itk]
  source [file join $dir tabset.itk]

  source [file join $dir timefield.itk]
  source [file join $dir timeentry.itk]
  source [file join $dir toolbar.itk]

  source [file join $dir watch.itk]

  package provide iwidgets $iwidgets::version
"








|
|

|
|
|
<
|
<
|
<
<
<
|
|
<
<
<
<
<
<
>
|
<
<
|
<
<
|
<
|
<
<
<
<
|
|
<
<
<
<
|
<
<
|
|
<
<
<
|
<
|
<
<
<
<
<
<
>
|
<
|
>
|
>
|
<
>
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

29






30
31

32
33
34
35
36

37
# Tcl package index file
namespace eval ::iwidgets {
    namespace export *
    variable library [file dirname [info script]]
    variable version 4.1
}
package ifneeded Iwidgets 4.0 {
    package require iwidgets 
    package provide Iwidgets 4.0
}
package ifneeded iwidgets $::iwidgets::version [list apply {{dir ver} {
    package require itk 4
    foreach file {

	colors.itcl roman.itcl buttonbox.itk

	calendar.itk canvasprintbox.itk shell.itk



	dialogshell.itk dialog.itk canvasprintdialog.itk
	labeledframe.itk checkbox.itk labeledwidget.itk






	entryfield.itk combobox.itk datefield.itk
	dateentry.itk disjointlistbox.itk extbutton.itk


	extfileselectionbox.itk extfileselectiondialog.itk feedback.itk


	fileselectionbox.itk fileselectiondialog.itk finddialog.itk

	scrolledwidget.itk hierarchy.itk hyperhelp.itk




	mainwindow.itk menubar.itk messagebox.itk
	messagedialog.itk notebook.itk optionmenu.itk




	panedwindow.itk pane.itk promptdialog.itk


	pushbutton.itk radiobox.itk regexpfield.itk
	scrolledcanvas.itk scrolledframe.itk scrolledtext.itk



	scrolledhtml.itk scrolledlistbox.itk selectionbox.itk

	selectiondialog.itk spindate.itk spinner.itk






	spinint.itk spintime.itk tabnotebook.itk
	tabset.itk timefield.itk timeentry.itk

	toolbar.itk watch.itk
    } {
	uplevel [list source [file join $dir $file]]
    }
    package provide iwidgets $ver

}} $dir $::iwidgets::version]

Changes to undroid/ttk-themes/pkgIndex.tcl.

2
3
4
5
6
7
8
9
10
11
12
    upvar $dir updir
    set maindir $updir
    foreach name {
	aquablue Arc blue BlueElegance Breeze
	clearlooks keramik plastik radiance waldorf
    } {
	set updir [file join $maindir $name]
	uplevel source [file join $updir pkgIndex.tcl]
    }
    set updir $maindir
}} dir







|



2
3
4
5
6
7
8
9
10
11
12
    upvar $dir updir
    set maindir $updir
    foreach name {
	aquablue Arc blue BlueElegance Breeze
	clearlooks keramik plastik radiance waldorf
    } {
	set updir [file join $maindir $name]
	uplevel [list source [file join $updir pkgIndex.tcl]]
    }
    set updir $maindir
}} dir