Jump to content

Recommended Posts


I have fund this script for creating a window in hyperview


I am not able to figure out few things


1.so what are these following commands?? Where can I found help for these commands??





and what is following line means?

set types {
        {{H3D File}      {".h3d" }        }
        {{OP2 File}      {".op2" }        }
        {{All Files}             * }


And also what is mean by following commands (not from below script but found somewhere else)

set t [::post::GetT];

::post::GetPostHandle pst$t

And I am not able to find help for above commands



catch {namespace delete ::CaptureGIF}

namespace eval ::CaptureGIF {
    variable str_master1 "";
    variable str_master2 "";
    variable str_master3 "";
    variable str_master4 "";
    variable ang_incr;
    variable def_val;

proc ::CaptureGIF::MainGUI {} {
    variable str_slave;
    variable str_master1 "";
    variable str_master2 "";
    variable str_master3 "";
    variable str_master4 "";
    variable e1; 
    variable e2;
    variable l1; 
    variable l2;
    variable e3;
    variable l3; 
    variable e4;
    variable l4; 
    variable e5;
    variable l5; 
    variable ang_incr;
    variable def_val;

    set dlgWidth  [ hwt::DluWidth 240 [ hwt::AppFont ]];
    set dlgHeight [ hwt::DluHeight  250 [ hwt::AppFont ]];

    set min_dlgWidth  [ hwt::DluWidth  240 [ hwt::AppFont ]];
    set min_dlgHeight [ hwt::DluHeight  120 [ hwt::AppFont ]];

    hwt::CreateWindow win \
        -minsize 200 100 \
        -maxsize 1000 100 \
        -noGeometrySaving \
        -geometry ${dlgWidth}x${dlgHeight} \
        -cancelButton Cancel \
        -defaultButton Cancel \
        -acceptButton Accept \
        -minSize $min_dlgWidth $min_dlgHeight \
        -acceptFunc "::CaptureGIF::StartProcess" \
        -cancelFunc "::CaptureGIF::Cancel_func" \
        -windowtitle "Capture GIF" \

    #Create recess to hold frames
    set recess [hwt::WindowRecess win];
    set types {
        {{H3D File}      {".h3d" }        }
        {{OP2 File}      {".op2" }        }
        {{All Files}             * }

    grid columnconfigure $recess 1 -weight 1 ;

    set l1 [::hwtk::label $recess.l1 -text "Enter Animation end angle:"]
    set e1 [::hwtk::entry $recess.e1 -width 200 -takefocus 1 -textvariable  ::CaptureGIF::str_master1];
    grid $l1 -row 1 -col 0 -sticky w -padx 4 -pady 4;
    grid $e1 -row 1 -col 1 -sticky e -padx 4 -pady 4;
    $recess.e1 set 315;

    set l2 [::hwtk::label $recess.l2 -text "Enter mode numbers :"]
    set e2 [::hwtk::entry $recess.e2 -width 200 -takefocus 1 -help "Enter mode numbers separated by comma" -textvariable  ::CaptureGIF::str_master2];
    grid $l2 -row 2 -col 0 -sticky w -padx 4 -pady 4;
    grid $e2 -row 2 -col 1 -sticky e -padx 4 -pady 4;    
    set l3 [::hwtk::label $recess.l3 -text "Enter scaling factor :"]
    set e3 [::hwtk::entry $recess.e3 -width 200 -takefocus 1 -textvariable  ::CaptureGIF::str_master3];
    grid $l3 -row 3 -col 0 -sticky w -padx 4 -pady 4;
    grid $e3 -row 3 -col 1 -sticky e -padx 4 -pady 4;
    set l4 [::hwtk::label $recess.l4 -text "Enter time delay :"]
    set e4 [::hwtk::entry $recess.e4 -width 200 -takefocus 1 -textvariable  ::CaptureGIF::str_master4];
    grid $l4 -row 4 -col 0 -sticky w -padx 4 -pady 4;
    grid $e4 -row 4 -col 1 -sticky e -padx 4 -pady 4;
    $recess.e4 set 0.9;
    set increments

  1.     hwtk::label $recess.l5 -text "Angular increments" 
        set ang_incr [hwtk::combobox $recess.cb5 -values $increments]
        grid columnconfigure $recess 1 -weight 1
            grid $recess.l5 -row 5 -col 0 -sticky w;
            grid $recess.cb5 -row 5 -col 1 -sticky w -pady 4
        $recess.cb5 set [lindex $increments 4]

    hwt::KeepOnTop win


Share this post

Link to post
Share on other sites


You can find help for that on menu Help>Hyperworks Help Home

-> Hyperworks Tools  -> Hyperworks GUI Toolkit


for "types", it is file types used for tk_getOpenFile , refer to this command in tk manual

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.

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