HyperMesh二次开发：创建独立窗口（Tcl/Tk GUI）

例如：创建一个弹窗，获取所有的组件将其在列表 控件 中显示，效果如下。

源码：test. tcl

proc myDialog {
  
  {dialogTitle "dialog"}} {   
 	*clearmarkall 1
    catch {destroy .dialog}
    toplevel .dialog;
    wm withdraw .dialog;
    frame .dialog.frame -relief flat;
    pack .dialog.frame -fill both -expand true;
    set listname [listbox .dialog.frame.listbox]; # 创建列表控件

 set compNameList [list]
  catch {set compNameList [hm_complist name]} # 获取当前项目中的所有组件名称
    
    foreach compName $compNameList {
        $listname insert end $compName;
    }
    pack $listname -fill both -expand true;
    # 设置窗口显示样式
    wm title .dialog $dialogTitle;
    wm minsize .dialog 400 300;

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删