Index: UI/Debug/OutputWin/MainForm.cls.xml =================================================================== diff -u --- UI/Debug/OutputWin/MainForm.cls.xml (revision 0) +++ UI/Debug/OutputWin/MainForm.cls.xml (revision 23) @@ -0,0 +1,2295 @@ + + + +serial +KeyCodesCNTs,UIDebugCNTs +Default +%Library.TMFormClass +0 + + +%Library.String +1 +1 + + + +%Library.Integer + + + +%Library.Integer + + + +EH.Makova.EventCtrlr + + + +%Library.String + + + +%Library.TMForm + + + + +Deze laatste property volgt niet bij het minimalizeren van de MApplication. +]]> +%Library.Boolean + + + +%TMLabel + + + +%Library.Boolean +0 + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String +0 + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.String + + + +%Library.List + + + +%TMButton + + + +%TMButton + + + +%TMSpeedButton + + + +%TMSpeedButton + + + +%TMSpeedButton + + + +%TMSpeedButton + + + +%TMButton + + + +%TMCheckBox + + + +%TMLabel + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMMenuItem + + + +%TMPopupMenu + + + +%TMPopupMenu + + + +%TMPopupMenu + + + +%TMPanel + + + +%TMPanel + + + +%TMPanel + + + +%TMRichEdit + + + +initvalue:%String +cache +0 +%Status +document +literal + + + + +Args:%String +cache +0 +document +literal + uitleg Makova-Support + ;Set ..Form.WindowState=$$$wsMinimized + Set ..FormIsMinimized=1 + Quit +]]> + + + +Args:%String +cache +0 +document +literal + + + + +sMsg:%String,NewLine:%Integer=1,Job:%String +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +lbRTF:%List +cache +0 +document +literal + + + + +cache +0 +%Library.List +document +literal + + + + +sMsg:%String +cache +0 +%Library.Boolean +document +literal +$$$MaxString) + + ;New TLen + ;Set TLen=$L(..reOutput.Text) + ;If TLen'<$$$MaxString Do + ;. ;Do MApplication.MessageBeep() + ;Else Do + ;. Do:(TLen+$L(sMsg)'<$$$MaxString) MApplication.MessageBox("Maximum lengte van de tekst is bereikt.") +]]> + + + +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal +0 Set ..reOutput.SelText="" + Else Do + . If Shift=$LB($$$ssShift) Do ..reOutput.Clear() + . Else Do ..btnClearMsgsClick($LB(Sender)) + Quit +]]> + + + +Args:%String +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +Msg:EH.Lib.Msg +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +blnPaused:%Boolean +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal +0 Do + ;. Do ..reOutput.Lines.Add("Tijd vanaf BPM: "_$$RestartTimer^vhLib) + Quit +]]> + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +initvalue:%String +cache +0 +MApplication +document +literal + + + + +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +initvalue:%String +cache +0 +%Library.Status +document +literal + + + + +msg:%String +cache +0 +%Library.String +document +literal +W") + Quit:(..SgQouteMsgWhen=1) msg ; Never + Quit:(..SgQouteMsgWhen=3)&&($L($$$TRIM(msg))>0) msg ; Only when chars invisible + ; Else + + ;Do MApplication.MessageBox("test Quote") + + new ChrQuote + Set ChrQuote=$S($L(..SgQouteMsgChar):..SgQouteMsgChar, 1:"""") + Quit:(..SgQouteMsgWhen=2)||(..SgQouteMsgWhen=3) ChrQuote_msg_ChrQuote + ; Else + new AddQoutes + If ..SgQouteMsgWhen=4 Do + . Xecute "Set AddQoutes=("_..SgQouteMsgCondition_")" + + Quit $S(AddQoutes:ChrQuote_msg_ChrQuote, 1:msg) +]]> + + + +Type:%String,Param:%String,Job:%String +cache +0 +document +literal + + + + +Type,Param:%String +cache +0 +document +literal + + + + +AttribOref:%TMTextAttributes +cache +0 +document +literal + + + + +Setting:%String,NewVal:%String +cache +0 +document +literal +4):NewVal, 1:1) + Quit + ;----------------------------------------------------------------------------- +ssvQouteMsgChar + Set ..SgQouteMsgChar=NewVal + Quit + ;----------------------------------------------------------------------------- +ssvQouteMsgCondition + Set ..SgQouteMsgCondition=NewVal + Quit + ;----------------------------------------------------------------------------- +ssvRestoreOnMsg + Set ..SgRestoreOnMsg=NewVal + Quit + ;----------------------------------------------------------------------------- +ssvStayOnTop + Set ..SgStayOnTop=NewVal + Set ..Form.FormStyle=$S(..SgStayOnTop:"fsStayOnTop", 1:"fsNormal") + Quit + ;----------------------------------------------------------------------------- +ssvWordWrap + Set ..SgWordWrap=NewVal + Set ..reOutput.WordWrap=$$$CBoolTF(NewVal) + Quit + ;----------------------------------------------------------------------------- + +ssvTest + Do MApplication.MessageBox("Test: "_NewVal) + Quit + ;----------------------------------------------------------------------------- + + /* +ssv... + Set ..Sg=NewVal + ;Do + Quit + ;----------------------------------------------------------------------------- + */ +]]> + + + +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal +0 Do + . Set ..reOutput.SelStart=0 + . Set ..reOutput.SelLength=$F(..reOutput.Text_$$$CRLF,$$$CRLF,ClearChars)-1 + . Set ..reOutput.SelText="..."_$$$CRLF + Quit +]]> + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal +0 Set ..reOutput.SelText="" + Else Do ..btnClearMsgsClick($LB(Sender)) + + ;End of user code + s Args=$lb(Sender) + q +]]> + + + +Args:%String +cache +0 +document +literal +0 Do ..reOutput.CopyToClipboard() + + ;End of user code + s Args=$lb(Sender) + q +]]> + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +%Library.CacheSerialState + +"%Library.TMFormClass" + +Address + + +Form + + +BaseX + + +BaseY + + +Button1 + + +EventCtrlr + + +FixedFmtID + + +FormIsMinimized + + +Label1 + + +Moving + + +MsgType + + +Panel1 + + +RTFColor + + +RTFFontName + + +RTFSize + + +RTFStyle + + +SgClearOnRestore + + +SgCloseViaEsc + + +SgCloseWarning + + +SgFullViewOnCreate + + +SgQouteMsgChar + + +SgQouteMsgCondition + + +SgQouteMsgWhen + + +SgRestoreOnMsg + + +SgStayOnTop + + +SgWordWrap + + +SpeedButton1 + + +UnprocessedData + + +btnClearMsgs + + +btnClose + + +btnMenuCmds + + +btnMenuFont + + +btnQuitAppend + + +btnStartSMWrap + + +chkClipboard + + +lblStatus + + +pmiFontApplyDFL + + +pmiFontBold + + +pmiFontItalic + + +pmiFontSep1 + + +pmiFontSetDFL + + +pmiTlClear + + +pmiTlCopy + + +pmiTlExit + + +pmiTlRemoveAll + + +pmiTlSMWrap + + +pmiTlSelectAll + + +pmiTlSep1 + + +pmiTlSep2 + + +pmiTlSep3 + + +pmiTlSettings + + +pmiTlToggleView + + +pmnuCmds + + +pmnuFont + + +pmnuFormats + + +pmuTools + + +pnlCommands + + +pnlResizeOutput + + +reOutput + + +btnContinu + + +pnlMoreMsgs + + +pmiSendText + + +sgShowJobInfo + + +SgShowJobInfo + + +pmiPauseTimer + + + + + Index: UI/Debug/EventMonitor/MainForm.cls.xml =================================================================== diff -u --- UI/Debug/EventMonitor/MainForm.cls.xml (revision 0) +++ UI/Debug/EventMonitor/MainForm.cls.xml (revision 23) @@ -0,0 +1,2826 @@ + + + +0 +0 +serial +0 +0 +Default +%Library.TMFormClass +0 + + +EH.Makova.EventCtrlr +0 +0 + +0 +0 +0 +0 +0 + + + +%Library.TMForm +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMPanel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMPanel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%Library.Integer +0 +0 + +5 +0 +0 +0 +0 +0 + + + +%Library.String +0 +0 + +1 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMButton +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMComboBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMComboBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMComboBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMCheckBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMCheckBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMCheckBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMCheckBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMCheckListBox +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMLabel +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMListView +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMMemo +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMTimer +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMTimer +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMTreeView +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMEdit +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMEdit +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMEdit +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMEdit +0 +0 + +"" +0 +0 +0 +0 +0 + + + +%TMEdit +0 +0 + +"" +0 +0 +0 +0 +0 + + + +0 +0 +code +initvalue:%String +0 +%Status +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code + +0 +0 + + ; HotTrackStyles = [] + ; RowSelect = True + ; TabOrder = 12 + ; ViewStyle = vsReport + ; Visible = False + ; end + ; object mmoOutput: CMemo + ; Left = 15 + ; Top = 7 + ; Width = 49 + ; Height = 41 + ; Color = cl3DLight + ; Font.Charset = ANSI_CHARSET + ; Font.Color = clWindowText + ; Font.Height = -11 + ; Font.Name = 'Courier New' + ; Font.Style = [] + ; ParentFont = False + ; ReadOnly = True + ; ScrollBars = ssBoth + ; TabOrder = 9 + ; Visible = False + ; WordWrap = False + ; end + ; object tmrEQs: CTimer + ; OnTimer = tmrEQsTimer + ; Left = 414 + ; Top = 447 + ; end + ; object tmrRedirect: CTimer + ; Enabled = False + ; Interval = 2500 + ; OnTimer = tmrRedirectTimer + ; Left = 704 + ; Top = 453 + ; end + ;end + +]]> + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code + +0 +0 + + + + +0 +0 +code +initvalue:%String +0 +0 + + + + +0 +0 +code +initvalue:%String +0 +%Library.Status +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code + +0 +0 + + + + +0 +0 +code + +0 +0 + + + + +0 +0 +code + +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 +0 Do + .. Set tmpItem.Data=tmpItem.Data-1 + .. If tmpItem.Data=0 Do + ... Set Repaint=1 + . Else If tmpItem.Data<0 Do Quit + .. Set tmpItem.Data=tmpItem.Data+1 + .. If tmpItem.Data=0 Do + ... Set Repaint=1 + ... Set DelItems=DelItems_$LB(tmpItem) + . If tmpItem.ImageIndex=0 Do ;verwijderen... + .. If tmpItem=..tvEQs.Selected Do + ... Set ..clbSubscribedMsgs.Tag=0 + ... Do ..clbSubscribedMsgs.Clear() + .. Set tmpItem.Data=-..SwitchDelay + .. Set Repaint=1 + . Set tmpItem.ImageIndex=0 + + Set ..lblECtrlrs.Caption="Event controllers && queues: "_Cnt + + New ParentNode + For Loop=1:1:$LL(DelItems) Do + . Set tmpItem=$LI(DelItems,Loop) + . Set ParentNode=tmpItem.ParentNode + . Kill ..aEQs(ParentNode.Text,tmpItem.Text) ;$J+eqID + . Do tmpItem.Delete() + . If ParentNode.Count=0 Do + .. Kill ..aEQs(ParentNode.Text) ;$J + .. Do ParentNode.Delete() + Set:(DelItems'="") Repaint=1 + + Do ..dCOMPWRITEtvEQs() + Do:(Repaint) ..tvEQs.Repaint() + + ;End of user code + s Args=$lb(Sender) + q + +]]> + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 + + + + +0 +0 +code +Args:%String +0 +0 +0 Do + . Set:($LF(State,"cdsSelected")) Canvas.Font.Color=$$$clMaroon ;Wit op lime is niet zo duidelijk + . Set Canvas.Brush.Color=$$$clLime + + /* + If Node.Level=0 Do + . If Node.Expanded="True" Do + .. Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),"- "_Node.Text) + . Else Do + .. Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),"+ "_Node.Text) + Else Do + . Do Canvas.TextOut($LI(Rect,1)-6,$LI(Rect,2),Node.Text) + */ + + Set DefaultDraw="True" + + ;End of user code + s Args=$lb(Sender,Node,State,DefaultDraw) + q + +]]> + + + +0 +3 + + + +%Library.CacheSerialState + +list +"%Library.TMFormClass" + +Address + + +Form + + +Button1 + + +TreeView1 + + +btnRefresh + + +tvEQs + + +GroupBox1 + + +chkSelectedOnly + + +clbSubscribedMsgs + + +btnRefreshSubscrMsgs + + +CheckBox1 + + +btnRefreshEQs + + +chkAutoRefreshEQs + + +Label1 + + +Label2 + + +tmrEQs + + +lblSubscrMsgs + + +lblECtrlrs + + +SwitchDelay + + +btnAddMsg + + +Label3 + + +txtMsg + + +txtSubMsg + + +txteqID + + +Label4 + + +Label5 + + +Label6 + + +txtSndMsg + + +txtSndSubMsg + + +txtSndeqID + + +Label7 + + +Label8 + + +Panel1 + + +txtSndIsPost + + +txtSndParams + + +cbbSendType + + +chkSndIsPost + + +EventCtrlr + + +btnSend + + +ComboBox1 + + +cbbSndeqID + + +btnRefreshSndeqIDs + + +Label9 + + +Panel2 + + +Button2 + + +btnShowEQ + + +mmoOutput + + +btnClose + + +btnShowMR + + +btnKillEQ + + +btnKillMR + + +Label10 + + +Label11 + + +btnSelKillEQ + + +btnSelKillMR + + +btnSelShowEQ + + +btnSelShowMR + + +chkTrapMsgs + + +chkHoldMsgs + + +btnHoldMsgs + + +CheckBox2 + + +Edit1 + + +txtRedirecteqID + + +chkRedirecteqID + + +chkRemoveOrig + + +tmrRedirect + + +btnClearQueue + + +Label12 + + +chkToMemo + + +mmoMsgs + + +btnShowMMOMsgs + + +btnClearMMOMsgs + + +cbbRedirecteqID + + +btnSubscribeOnAll + + +ListView1 + + +lvMsgs + + + + + FishEye: Tag 19 refers to a dead (removed) revision in file `TECH/Config/ConfigMgr.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: UI/Debug/OutputWin/dlgSettings.cls.xml =================================================================== diff -u --- UI/Debug/OutputWin/dlgSettings.cls.xml (revision 0) +++ UI/Debug/OutputWin/dlgSettings.cls.xml (revision 23) @@ -0,0 +1,713 @@ + + + +serial +Default +%Library.TMFormClass + + +%Library.TMForm + + + +%TMGroupBox + + + +%TMLabel + + + +%TMButton + + + +%TMButton + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMGroupBox + + + +%TMLabel + + + +%TMLabel + + + +%TMPanel + + + +%TMRadioButton + + + +%TMRadioButton + + + +%TMRadioButton + + + +%TMRadioButton + + + +%TMEdit + + + +%TMEdit + + + +initvalue:%String +cache +0 +%Status +document +literal + + + + +cache +0 +%Library.Boolean +document +literal + + + + +cache +0 +document +literal +' + ; TabOrder = 2 + ; end + ; object chkWordWrap: CCheckBox + ; Left = 11 + ; Top = 44 + ; Width = 209 + ; Height = 17 + ; Caption = 'Word Wrap' + ; TabOrder = 3 + ; end + ; object chkRestoreOnMsg: CCheckBox + ; Left = 11 + ; Top = 68 + ; Width = 209 + ; Height = 17 + ; Caption = 'Restore (if minimized) when msg arrives' + ; TabOrder = 4 + ; end + ; object chkClearOnRestore: CCheckBox + ; Left = 11 + ; Top = 92 + ; Width = 209 + ; Height = 17 + ; Caption = 'Clear On Restore' + ; TabOrder = 5 + ; end + ; object chkFullViewOnCreate: CCheckBox + ; Left = 11 + ; Top = 164 + ; Width = 209 + ; Height = 17 + ; Caption = 'Full View at Startup' + ; TabOrder = 6 + ; end + ; object chkShowJobInfo: CCheckBox + ; Left = 12 + ; Top = 188 + ; Width = 209 + ; Height = 17 + ; Caption = 'Toon job (sender) info' + ; TabOrder = 7 + ; end + ; end + ; object chkSettingsOpslaan: CCheckBox + ; Left = 11 + ; Top = 374 + ; Width = 105 + ; Height = 17 + ; Anchors = [akLeft, akBottom] + ; Caption = 'Settings Opslaan' + ; TabOrder = 3 + ; end + ; object grpQouteMsg: CGroupBox + ; Left = 0 + ; Top = 215 + ; Width = 281 + ; Height = 153 + ; Caption = ' Messages between Qoutes ' + ; Ctl3D = True + ; ParentCtl3D = False + ; TabOrder = 4 + ; object Label1: CLabel + ; Left = 13 + ; Top = 127 + ; Width = 186 + ; Height = 13 + ; Caption = 'Custom char instead of double Qoutes :' + ; end + ; object pnlQuoteMsgOpt: CPanel + ; Left = 3 + ; Top = 14 + ; Width = 273 + ; Height = 105 + ; BevelOuter = bvNone + ; TabOrder = 0 + ; object lblCondExampleLbl: CLabel + ; Left = 123 + ; Top = 61 + ; Width = 43 + ; Height = 13 + ; Caption = 'Example:' + ; end + ; object lblCondExample: CLabel + ; Left = 176 + ; Top = 61 + ; Width = 70 + ; Height = 14 + ; Caption = 'msg["Test"' + ; Font.Charset = ANSI_CHARSET + ; Font.Color = clBlue + ; Font.Height = -11 + ; Font.Name = 'Courier New' + ; Font.Style = [] + ; ParentFont = False + ; end + ; object rbQuoteMsg1: CRadioButton + ; Tag = 1 + ; Left = 10 + ; Top = 5 + ; Width = 113 + ; Height = 17 + ; Caption = 'Never' + ; Checked = True + ; TabOrder = 0 + ; TabStop = True + ; OnClick = rbQuoteMsgClick + ; end + ; object rbQuoteMsg2: CRadioButton + ; Tag = 2 + ; Left = 10 + ; Top = 23 + ; Width = 113 + ; Height = 17 + ; Caption = 'Always' + ; TabOrder = 1 + ; OnClick = rbQuoteMsgClick + ; end + ; object rbQuoteMsg3: CRadioButton + ; Tag = 3 + ; Left = 10 + ; Top = 41 + ; Width = 137 + ; Height = 17 + ; Caption = 'When text is not visible' + ; TabOrder = 2 + ; OnClick = rbQuoteMsgClick + ; end + ; object rbQuoteMsg4: CRadioButton + ; Tag = 4 + ; Left = 10 + ; Top = 59 + ; Width = 97 + ; Height = 17 + ; Caption = 'Other condition' + ; TabOrder = 3 + ; OnClick = rbQuoteMsgClick + ; end + ; object txtQuoteConditionCustom: CEdit + ; Left = 31 + ; Top = 80 + ; Width = 233 + ; Height = 22 + ; Hint = 'Use msg as variable name (case sensitive!!!)' + ; Font.Charset = ANSI_CHARSET + ; Font.Color = clBlue + ; Font.Height = -11 + ; Font.Name = 'Courier New' + ; Font.Style = [] + ; ParentFont = False + ; ParentShowHint = False + ; ShowHint = True + ; TabOrder = 4 + ; end + ; end + ; object txtQuoteCharCustom: CEdit + ; Left = 203 + ; Top = 123 + ; Width = 25 + ; Height = 21 + ; MaxLength = 1 + ; TabOrder = 1 + ; end + ; end + ;end +]]> + + + +cache +0 +document +literal + + + + +initvalue:%String +cache +0 +MApplication +document +literal +",2)) + d %this.chkWordWrap.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,44,209,17,"Word Wrap",3)) + d %this.chkRestoreOnMsg.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,68,209,17,"Restore (if minimized) when msg arrives",4)) + d %this.chkClearOnRestore.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,92,209,17,"Clear On Restore",5)) + d %this.chkFullViewOnCreate.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,164,209,17,"Full View at Startup",6)) + d %this.chkShowJobInfo.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(12,188,209,17,"Toon job (sender) info",7)) + d %this.chkSettingsOpslaan.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(11,374,105,17,$lb("akLeft","akBottom"),"Settings Opslaan",3)) + d %this.grpQouteMsg.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Ctl3D","ParentCtl3D","TabOrder"),$lb(0,215,281,153," Messages between Qoutes ","True","False",4)) + d %this.Label1.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(13,127,186,13,"Custom char instead of double Qoutes :")) + d %this.pnlQuoteMsgOpt.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder"),$lb(3,14,273,105,"bvNone",0)) + d %this.lblCondExampleLbl.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(123,61,43,13,"Example:")) + d %this.lblCondExample.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont"),$lb(176,61,70,14,"msg[""Test""","False")) + d %this.lblCondExample.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clBlue,-11,"Courier New",$lb())) + d %this.rbQuoteMsg1.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","Checked","TabOrder","TabStop","OnClick"),$lb(1,10,5,113,17,"Never","True",0,"True",$lb(%this,"rbQuoteMsgClick"))) + d %this.rbQuoteMsg2.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(2,10,23,113,17,"Always",1,$lb(%this,"rbQuoteMsgClick"))) + d %this.rbQuoteMsg3.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(3,10,41,137,17,"When text is not visible",2,$lb(%this,"rbQuoteMsgClick"))) + d %this.rbQuoteMsg4.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(4,10,59,97,17,"Other condition",3,$lb(%this,"rbQuoteMsgClick"))) + d %this.txtQuoteConditionCustom.SetMultiProperty($lb("Left","Top","Width","Height","Hint","ParentFont","ParentShowHint","ShowHint","TabOrder"),$lb(31,80,233,22,"Use msg as variable name (case sensitive!!!)","False","False","True",4)) + d %this.txtQuoteConditionCustom.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clBlue,-11,"Courier New",$lb())) + d %this.txtQuoteCharCustom.SetMultiProperty($lb("Left","Top","Width","Height","MaxLength","TabOrder"),$lb(203,123,25,21,1,1)) + s MApplication.ClientState="Wait" + q +]]> + + + +initvalue:%String +cache +0 +%Library.Status +document +literal + + + + +cache +0 +%Library.Integer +document +literal + + + + +Index:%Integer +cache +0 +document +literal +0) + Do qmrsSetRadio(..rbQuoteMsg1) + Do qmrsSetRadio(..rbQuoteMsg2) + Do qmrsSetRadio(..rbQuoteMsg3) + Do qmrsSetRadio(..rbQuoteMsg4) + Quit + +qmrsSetRadio(rbOref) + Set rbOref.Checked=$S(rbOref.Tag=Index:"True", 1:"False") + Do:(rbOref.Tag=Index) ..rbQuoteMsgClick($LB(rbOref)) + Quit + + +]]> + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +Args:%String +cache +0 +document +literal + + + + +%Library.CacheSerialState + +list +"%Library.TMFormClass" + +Address + + +Form + + +Button1 + + +Button2 + + +GroupBox1 + + +btnCancel + + +btnOK + + +chkClearOnRestore + + +chkCloseViaEsc + + +chkCloseWarning + + +chkStayOnTop + + +chkWordWrap + + +chrRestoreOnMsg + + +chkRestoreOnMsg + + +chkSettingsOpslaan + + +chkFullViewStart + + +chkFullViewOnCreate + + +Label1 + + +grpQouteMsg + + +pnlQuoteMsgOpt + + +rbQuoteMsg1 + + +rbQuoteMsg2 + + +rbQuoteMsg3 + + +rbQuoteMsg4 + + +txtCustomCondition + + +txtQuoteCharCustom + + +txtQuoteConditionCustom + + +Label2 + + +Label3 + + +lblCondExample + + +lblCondExampleLbl + + +chkShowJobInfo + + + + + Index: UI/Debug/OutputWin/TestForm.cls.xml =================================================================== diff -u --- UI/Debug/OutputWin/TestForm.cls.xml (revision 0) +++ UI/Debug/OutputWin/TestForm.cls.xml (revision 23) @@ -0,0 +1,523 @@ + + + +serial +Default +%Library.TMFormClass + + +%Library.TMForm + + + +%TMLabel + + + +%TMLabel + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMButton + + + +%TMCheckBox + + + +%TMEdit + + + +%TMMemo + + + +initvalue:%String +0 +%Status + + + + +0 + + + + +0 + + + + +initvalue:%String +0 +MApplication + + + + +initvalue:%String +0 +%Library.Status + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +%Library.CacheSerialState + +list + +Address + + +Form + + +btnClearMsgs + + +btnClose + + +chkWordWrap + + +reOutput + + +btnWriteln + + +chkFontBold + + +chkFontItalic + + +LastIndex + + +btnWrite + + +Label1 + + +Label2 + + +chrClearMsg + + +txtFormatID + + +txtMsg + + +btnWriteFMT + + +btnWritelnFMT + + +chkClearMsg + + +btnZendForLus + + +btnClearDebug + + + + + Index: UI/Debug/ObjLeakDetector/MainForm.cls.xml =================================================================== diff -u --- UI/Debug/ObjLeakDetector/MainForm.cls.xml (revision 0) +++ UI/Debug/ObjLeakDetector/MainForm.cls.xml (revision 23) @@ -0,0 +1,1087 @@ + + + +serial +Default +%Library.TMFormClass + + +%Library.TMForm + + + +%TMGroupBox + + + +%TMGroupBox + + + +%TMGroupBox + + + +%Library.String +0 + + + +%Library.String +1 + + + +%Library.String +1 + + + +%Library.String +1 + + + +%TMButton + + + +%TMButton + + + +%TMSpeedButton + + + +%TMSpeedButton + + + +%TMButton + + + +%TMSpeedButton + + + +%TMSpeedButton + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMCheckBox + + + +%TMImageList + + + +%TMLabel + + + +%TMLabel + + + +%TMListView + + + +%TMMemo + + + +%TMPopupMenu + + + +%TMRadioButton + + + +%TMRadioButton + + + +%TMEdit + + + +initvalue:%String +0 +%Status + + + + +0 + + ; Font.Charset = ANSI_CHARSET + ; Font.Color = clWindowText + ; Font.Height = -11 + ; Font.Name = 'Fixedsys' + ; Font.Style = [] + ; FlatScrollBars = True + ; GridLines = True + ; HideSelection = False + ; HotTrackStyles = [] + ; IconOptions.Arrangement = iaLeft + ; RowSelect = True + ; ParentFont = False + ; TabOrder = 5 + ; ViewStyle = vsReport + ; OnDblClick = lvResultsDblClick + ; OnSelectItem = lvResultsSelectItem + ; end + ; object btnCallSpy: CButton + ; Left = 502 + ; Top = 113 + ; Width = 75 + ; Height = 17 + ; Anchors = [akTop, akRight] + ; Caption = 'Get the spy...' + ; Enabled = False + ; TabOrder = 6 + ; OnClick = btnCallSpyClick + ; end + ; object btnPurgeList: CButton + ; Left = 502 + ; Top = 87 + ; Width = 75 + ; Height = 17 + ; Anchors = [akTop, akRight] + ; Caption = 'Purge list' + ; TabOrder = 7 + ; OnClick = btnPurgeListClick + ; end + ; end + ; object GroupBox3: CGroupBox + ; Left = 446 + ; Top = 7 + ; Width = 153 + ; Height = 97 + ; Anchors = [akTop, akRight] + ; Caption = ' Options ' + ; TabOrder = 2 + ; object txtFilter: CEdit + ; Left = 68 + ; Top = 16 + ; Width = 73 + ; Height = 21 + ; Anchors = [akTop, akRight] + ; TabOrder = 0 + ; Text = '%' + ; end + ; object chkUseFilter: CCheckBox + ; Left = 12 + ; Top = 18 + ; Width = 49 + ; Height = 17 + ; Anchors = [akTop, akRight] + ; Caption = 'Filter' + ; Checked = True + ; State = cbChecked + ; TabOrder = 1 + ; OnClick = chkUseFilterClick + ; end + ; object rbRemoveFilter: CRadioButton + ; Left = 28 + ; Top = 45 + ; Width = 113 + ; Height = 17 + ; Anchors = [akTop, akRight] + ; Caption = 'Remove ' + ; Checked = True + ; TabOrder = 2 + ; TabStop = True + ; end + ; object rbLeaveFilter: CRadioButton + ; Left = 28 + ; Top = 67 + ; Width = 113 + ; Height = 17 + ; Anchors = [akTop, akRight] + ; Caption = 'Leave' + ; TabOrder = 3 + ; end + ; end + ; object chkAllocated: CCheckBox + ; Left = 133 + ; Top = 149 + ; Width = 73 + ; Height = 17 + ; Caption = 'Allocated' + ; Checked = True + ; State = cbChecked + ; TabOrder = 3 + ; end + ; object ilResults: CImageList + ; Left = 373 + ; Top = 127 + ; end + ; object pmSnapShots: CPopupMenu + ; OnPopup = pmSnapShotsPopup + ; Left = 398 + ; Top = 17 + ; end + ;end +]]> + + + +0 + + + + +initvalue:%String +0 +MApplication + + + + +initvalue:%String +0 +%Library.Status + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + "_..aSnapShot2(S1Loop)) + ... Set ReUseCnt=ReUseCnt+1 + .. Kill ..aSnapShot2(S1Loop) + . Else Do + .. Do:(..chkDisposed.Checked="True") AddToList("-",S1Loop,..aSnapShot1(S1Loop)) + .. Set DisCnt=DisCnt+1 + + New S2Loop + Set S2Loop="" + For Set S2Loop=$O(..aSnapShot2(S2Loop)) Quit:(S2Loop="") Do + . Do:(..chkAllocated.Checked="True") AddToList("+",S2Loop,..aSnapShot2(S2Loop)) + . Set AllocCnt=AllocCnt+1 + + Do ..mmoResult.Lines.Insert(0,"[~] RE-USE OREF: "_ReUseCnt) + Do ..mmoResult.Lines.Insert(0,"[-] DISPOSED : "_DisCnt) + Do ..mmoResult.Lines.Insert(0,"[+] ALLOCATED : "_AllocCnt) + Do ..mmoResult.Lines.Insert(0,"[=] RESIDENT : "_ResCnt) + + Do ..lvResults.Items.EndUpdate() + + m ..aSnapShot2=..aCopySnapShot2 + + Set ..btnCompare.Enabled="True" + Set MApplication.ScreenCursor=$$$crDefault + + ;End of user code + s Args=$lb(Sender) + q + + ;----------------------------------------------------------------------------- +AddToList(Type,ORef,ClassName) + New tmpItem + Set tmpItem=..lvResults.Items.Add() + Set tmpItem.Caption=" ["_Type_"]" + /* + If Type="=" Do + . Set tmpItem.Caption=" =" + Else If Type="+" Do + . Set tmpItem.Caption=" +" + Else If Type="-" Do + . Set tmpItem.Caption="-" + Else If Type="~" Do + . Set tmpItem.Caption="~ ~" + */ + Do tmpItem.SubItems.Add(ORef) + Do tmpItem.SubItems.Add(ClassName) + If $$IsPersistent^vhLib(ORef) Do + . If ORef.%Id()="" Do + .. Do tmpItem.SubItems.Add("(new)") + . Else Do + .. Do tmpItem.SubItems.Add(ORef.%Id()) + quit + +]]> + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +Args:%String +0 + + + + +%Library.CacheSerialState + +"%Library.TMFormClass" + +Address + + +Form + + +GroupBox1 + + +GroupBox2 + + +btnSnapShot1 + + +btnSnapShot2 + + +lblSnapShot1 + + +lblSnapShot2 + + +GroupBox3 + + +chkUseFilter + + +txtFilter + + +rbLeaveFilter + + +rbRemoveFilter + + +btnCompare + + +mmoResult + + +CheckBox1 + + +CheckBox2 + + +CheckBox3 + + +CheckBox4 + + +chkAllocated + + +chkDisposed + + +chkReUse + + +chkResident + + +lvResults + + +ilResults + + +Button1 + + +COS + + +btnCallSpy + + +btnPurgeList + + +SpeedButton1 + + +SpeedButton2 + + +pmSnapShots + + +btnLoadSnap1 + + +btnLoadSnap2 + + +ViaLoad + + + + +