0 0 serial 0 %Const STRING 0 Default %Library.TMLabel 0 %Library.String 0 0 1 0 0 0 0 %Library.String 0 0 1 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 1 0 0 0 0 %Library.String 0 0 1 0 0 0 0 %Library.TMTimer 0 0 0 0 0 0 0 For internal use. 0 0 generator 0 %Library.Status 0 For internal use. 0 0 generator initvalue:%String 0 %Library.Status 0 0 0 code 0 0 0 0 code 0 0 0 0 code 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 #push",..%ClassName(),$$$MBICONERROR) Set ..Visible=..FHistoryVisible(..FHistoryIndex) Set ..Font.Color=..FHistoryFontColor(..FHistoryIndex) New Prefix Set $P(Prefix," ",(..FHistoryIndex*2)-1)="" If ..FHistoryIsTimed(..FHistoryIndex) Do . ;Do WLFMT^vhDBG($G(Prefix)_"POP STATUS ["_..FHistoryIndex_"]: WAS TIMED","B") . Do ..OnTimer($LB(%this)) Else Do . Set ..Caption=..FHistoryCaption(..FHistoryIndex) . ;Do WLFMT^vhDBG($G(Prefix)_"POP STATUS ["_..FHistoryIndex_"]: '"_..Caption_"'","B") . Do MApplication.ProcessMessages() Set ..FHistoryIndex=..FHistoryIndex-1 Quit ]]> 0 0 code 0 0 0 0 code Msg:%String,FontColor:%Integer,ShowTime:%Integer 0 0 %Library.CacheSerialState listnode Address ClassName CloseFromClient Parent PropName ClassNameAbsent Tag Constraints Font OnCanResize OnClick OnConstrainedResize OnDblClick OnDragDrop OnDragOver OnEndDock OnEndDrag OnMouseDown OnMouseMove OnMouseUp OnResize OnStartDock OnStartDrag PopupMenu FHistoryIndex FTimer