Jump to content

mahes

Members
  • Content Count

    57
  • Joined

  • Last visited

Posts posted by mahes


  1. 29 minutes ago, livillyle said:

    Hello mahes,

     

    You'll have to create a table with the different columns for comp, prop, mat etc.,
    Using a function you can auto populate the first column with all component IDs.
    Using combo boxes you can set all the other props and mats for respective comp Ids, 

    Once everything is done a Button can be used to run a procedure which modifies all the props, mats.

     


     

    Hi livillyle,

    Its difficult understand sme codes for those in hwtk toolkit.

    Thanks

    mahes


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


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

×
×
  • Create New...