Check-in [fd914c2a26]
Not logged in
HomePackagesLeavesTimelineBranchesTagsTicketsWikiLogin
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com or submit via the online form
by Aug 20.

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

Overview
Comment:Fixed examples
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fd914c2a2614e34b3c21d9f8ee01ff63540cb1ee
User & Date: hypnotoad 2016-03-04 07:38:30
Context
2016-03-04
08:22
Consolidated most of the build functions back to the practcl module check-in: 9978e472f1 user: hypnotoad tags: trunk
07:38
Fixed examples check-in: fd914c2a26 user: hypnotoad tags: trunk
2016-03-01
20:11
Removed chatty puts statements injected for debugging check-in: faad732680 user: hypnotoad tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to example/odielib/cube.tcl. 
1
2
3
4
5
6
7
8
9

package require Tk
package require odielib

# this demonstration shows how to use odielib
# to perform an orthogonal 3D transform on a set of points
# and display it on a canvas.

# create random lines
set	data {}


|








1
2
3
4
5
6
7
8
9

package require Tk
package require odielibc

# this demonstration shows how to use odielib
# to perform an orthogonal 3D transform on a set of points
# and display it on a canvas.

# create random lines
set	data {}
︙︙
Changes to example/tao-core/signal.tcl. 
1
2
3
4
5
6
7
8

package require odielib

for {set x 1} {$x < 64} {incr x} {
  proc sig$x {} [list puts "Got signal $x"]
  catch {signal add $x sig$x}
  puts "SIGNAL ADD $x"
}
vwait forever

|








1
2
3
4
5
6
7
8

package require odielibc

for {set x 1} {$x < 64} {incr x} {
  proc sig$x {} [list puts "Got signal $x"]
  catch {signal add $x sig$x}
  puts "SIGNAL ADD $x"
}
vwait forever
Changes to example/tao-layout/table.tcl. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

###
# Example of a table layout in action
###
source [file dirname [file normalize [info script]]]/../../modules/packages.tcl
package require taotk-layout

taotk::layout create main .canvas
pack .canvas -side top -fill both -expand 1


tao::class taotk::layout::colorwidget {
  superclass taotk::layout::string
  
}

proc addcell {row column text args} {
  if {($row % 2)==0} {
    set bg [taotk::stylesheet cget color-row-even]











|








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

###
# Example of a table layout in action
###
source [file dirname [file normalize [info script]]]/../../modules/packages.tcl
package require taotk-layout

taotk::layout create main .canvas
pack .canvas -side top -fill both -expand 1


::irmgui::define taotk::layout::colorwidget {
  superclass taotk::layout::string
  
}

proc addcell {row column text args} {
  if {($row % 2)==0} {
    set bg [taotk::stylesheet cget color-row-even]
︙︙
Changes to example/tao-physics/rocket-notk.tcl.
︙︙
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    default {}
  }
  
  constructor {objects args} {
    foreach {item obj} $objects {
      my graft $item $obj
    }
    my configurelist [::tao::args_to_options {*}$args]
    my initialize
  }
  
}

::physics::world create world









|








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    default {}
  }
  
  constructor {objects args} {
    foreach {item obj} $objects {
      my graft $item $obj
    }
    my config set [::tao::args_to_options {*}$args]
    my initialize
  }
  
}

::physics::world create world
︙︙
Changes to example/tao-physics/rocket.tcl.
︙︙
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    default {}
  }
  
  constructor {objects args} {
    foreach {item obj} $objects {
      my graft $item $obj
    }
    my configurelist [::tao::args_to_options {*}$args]
    my initialize
  }
  
}

::physics::world create world









|








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

    default {}
  }
  
  constructor {objects args} {
    foreach {item obj} $objects {
      my graft $item $obj
    }
    my config set [::tao::args_to_options {*}$args]
    my initialize
  }
  
}

::physics::world create world
︙︙
Fossil version [935cd45f03] 2025-02-06 15:57:56