![]() |
![]() |
configuremethod |
![]() |
![]() |
![]() |
||||
![]() |
![]() |
![]() |
![]() |
![]() |
$m info configuremethod -state ::obj::configuremethod morph -state s { $self component line configure\ -coords [$self component start cget -coords] $self component line morph [$self private end] $s } % (Backslashed line-break inserted manually by author) |