[ Skill ] 图形化组件在注册 User Trigger 时需要注意的事情

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. hiPlaceToolbar 和 deManageToolbar 不要同时使用，会冲突。

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

• Place

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

• RegTrigger

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