[ Skill ] 配置菜单、工具栏自动集成，及注意事项

https://www.cnblogs.com/yeungchie/

使用 deRegUserTriggers() 可以用来配置：当打开一个新窗口时运行某子程序，可以用于自动集成自定义的菜单、工具栏等等。

格式如下：

deRegUserTriggers(
  t_viewType
  [ s_appTrigger
    [ s_menuTrigger
      [ s_postInstallTrigger ] ] ]
) => t / nil

ViewType 判断

首先，viewType 在不同版本的 Virtuoso 可能存在差异，比如 maskLayoutGXL 高版本中可能已经取消。因此在注册前可以先判断一下当前类型是否可以获取到信息。

给不存在的 viewType 注册会报 Error 。

viewType = "maskLayoutGXL"
when( appInfo  = deGetAppInfo( viewType )
  ; 判断 appInfo 为真再进行下一步操作。
)

TrigList 判断

第二步，再判断是否已经注册过，重复注册会报 Warning 。
上一步返回的 appInfo 是一个 DPL ，通过查看 userMenuTrigList 或 userPostInstallTrigList 可以判断相应的程序是否已经注册过。

上面两个 TrigList 返回的是一个已经注册的子程序的 symbol 名组成的 list 。

假设已经定义了一个用于自动集成工具栏的子程序 autoPlaceToolbar() ：

unless( member( 'autoPlaceToolbar appInfo->userPostInstallTrigList )
  ; 当程序名不存在（未注册）的时候再执行注册
  deRegUserTriggers( winType  nil nil 'autoPlaceToolbar )
)

Toolbar 集成例程

1. 注册 toolbar place 的子程序需要写在 s_postInstallTrigger 位置。
2. 在 hiPlaceToolbar() 之后需要多加一句 hiShowToolbar() 。这是因为同一窗口在切换 viewType 时，可能会让 toolbar 隐藏。（ 就挺无语的 ... ）
3. 目标窗口要从输入变量中获取：arg->window，不要使用 hiGetCurrentWindow()，某些情况下可能会导致 toolbar 集成到错误的窗口去。
4. 查看 hiGetWindowToolbars() ，判断 toolbar 是否已经存在。
5. hiPlaceToolbar() 和 deManageToolbar() 不要同时使用，会冲突。

下面是一个自动集成 toolbar的例子：

设已有一个 toolbar：ycToolbar

procedure( ycAutoPlaceToolbar( \@optional args( list( nil 'window hiGetCurrentWindow())) "l" )
    prog(( win toolbars )
        win = args->window
        toolbars = hiGetWindowToolbars( win )
        unless( member( ycToolbar toolbars )
            hiPlaceToolbar( win ycToolbar 'left )
        )
        hiShowToolbar( ycToolbar )
        return( t )
    )
); ycAutoPlaceToolbar

Trigger 例程

foreach( viewType list( "maskLayout" "maskLayoutXL" "maskLayoutGXL" )
    let(( appInfo )
        when( appInfo = deGetAppInfo( viewType )
            unless( member( 'ycAutoPlaceToolbar appInfo->userPostInstallTrigList )
                deRegUserTriggers( viewType nil nil 'ycAutoPlaceToolbar )
            )
        )
    )
); RegTrigger