Jump to content

Recommended Posts

Hi all,

I have a variable which has some comp ids.

I need to diplay them as a tk table with some buttons .

The buttons has to be for some purposes.

can any one hlp with this.

 

Thanks,

Mahes

Share this post


Link to post
Share on other sites

Hi all,

invalid command name "hwtk::demo::getpreviewframe"
invalid command name "hwtk::demo::getpreviewframe"
    while executing
"hwtk::demo::getpreviewframe"
    invoked from within
"set w [hwtk::demo::getpreviewframe]"
    (file "D:/mahez/13Sep17/but.tcl" line 1)
    invoked from within
"source {D:/mahez/13Sep17/but.tcl}"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 "source {$file}""
    (procedure "::HM_Framework::p_FileLoad" line 68)
    invoked from within
"::HM_Framework::p_FileLoad 24"
    ("eval" body line 1)
    invoked from within
"# Compiled -- no source code available
error "called a copy of a compiled script""
    (procedure "::hwt::ReleaseCanvasButton" line 1)
    invoked from within
"::hwt::ReleaseCanvasButton 0 ._Scripting.f35.button35"
    (command bound to event)

 

 

 

 

 

m getting above error ..y

Share this post


Link to post
Share on other sites
15 hours ago, tinh said:

Please show your but.tcl file

I just copied and pasted from that hw toolkit.

no changes

just to understand

 

 

package require hwat;
set w [hwtk::demo::getpreviewframe]

catch {destroy .top}
set w [hwtk::dialog .top]
$w hide apply
set recess [$w recess]

namespace eval ::texample {}

proc ::texample::OnSelect {W S c} {
    puts [info level 0]
}

proc ::texample::OnOk {w T} {
    puts "Selected items are --> [$T selectionget ]"
    $w unpost
}

set sl [hwtk::selectlist $recess.sl -stripes 1 -selectmode multiple -selectcommand "::texample::OnSelect %W %S %c"]
pack $sl -fill both -expand true
$sl columnadd entities -text Entity
$sl columnadd id -text ID
$sl columnadd color -image palette-16.png
$sl columnadd thickness -text Thickness

for {set i 0} {$i < 100} {incr i} {
    set clr [expr {int(rand()*64)}]
    $sl rowadd row$i -values

  1. thickness $i.$i$i]
    }

$w buttonconfigure ok -command "::texample::OnOk $w $recess.sl"
$w post

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
You are posting as a guest. If you have an account, please sign in.
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...