Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/tools/analyzer/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/tools/analyzer/jump.sct

4�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
11formformform1�DataSession = 1
ScaleMode = 3
Height = 380
Width = 607
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 1
Caption = "Code Analyzer"
MaxButton = .F.
HelpContextID = 22990009
ForeColor = 0,0,0
Name = "form1"
,PROCEDURE Destroy
pop menu _msysmenu
IF USED("files")
	USE IN files
ENDIF
IF USED("symbols")
	USE IN symbols
ENDIF
IF USED("fdxref")
	USE IN fdxref
ENDIF
IF USED("snipfile")
	USE IN snipfile
ENDIF

ENDPROC
PROCEDURE Init
PUBLIC m.symbol
push menu _msysmenu

DO jump.mpr
	m.symbol=""
this.pageframe1.page1.list1.selected(1)=.t.

*- Set the radio button on the Hierarchy page
THIS.Pageframe1.Page2.opt.Value = 1

ENDPROC
PROCEDURE Load
set exact off
set conf on
CLOSE DATA

IF !USED("fdxref")
	use (mdir+"fdxref") again excl
ENDIF
select fdxref
set order to symbol
IF !USED("symbols")
	SELECT upper(symbol) as symbol,count(*) as count ;
		FROM fdxref INTO CURSOR symbols order by 1 group by 1
ENDIF
SELECT symbols
LOCATE
this.caption=this.caption+' - '+mdir

ENDPROC
��� ��Q�%�'%��U����%�C�files���#�Q���%�C�symbols���E�Q���%�C�fdxref���f�Q���%�C�snipfile�����Q���UFILESSYMBOLSFDXREFSNIPFILEg	7�
������jump.mpr�T�
�����T���������a��T����	�
����USYMBOLJUMPMPRTHIS
PAGEFRAME1PAGE1LIST1SELECTEDPAGE2OPTVALUE�G�G	 ��%�C�fdxref�
��=�Q����fdxref����F��G((�symbol�%�C�symbols�
����<o�fdxref�C�f�Q��C�Q�����������symbols��F��-�T������ - ���UMDIRFDXREFSYMBOLCOUNTSYMBOLSTHISCAPTIONDestroy,��Init���Load���1qA�Aa�AQ�Aq�A3�q����3aaQbaAq�q�AqA�2����!)�	pageframe	pageframe
pageframe1form1ErasePage = .T.
PageCount = 2
TabStyle = 1
Top = 2
Left = 0
Width = 607
Height = 378
Name = "pageframe1"
Page1.FontName = "Tahoma"
Page1.Caption = "\<Symbols"
Page1.Name = "page1"
Page2.FontName = "Tahoma"
Page2.Caption = "\<Hierarchies"
Page2.Name = "page2"
TPROCEDURE page1.Activate
set order to symbol in fdxref
SELECT symbols

ENDPROC
�� ���'%f�~�UG(�(�symbol�F��USYMBOLFDXREFSYMBOLSpage1.Activate,��11q2I)�listboxlistboxlist1form1.pageframe1.page1FontName = "Tahoma"
FontSize = 9
ColumnCount = 2
ColumnWidths = "230,50"
RowSourceType = 2
RowSource = "LEFT(symbol,30),str(count,5)"
Height = 133
Left = 16
NumberOfElements = 0
TabIndex = 1
Top = 6
Width = 313
IntegralHeight = .T.
Name = "list1"
/PROCEDURE GotFocus
select symbols

ENDPROC
��� ��Ix%C[U�U
F��USYMBOLSGotFocus,��1q2$)�
commandbutton
commandbuttoncmdGotoform1.pageframe1.page1xTop = 20
Left = 431
Height = 23
Width = 72
FontName = "Tahoma"
Caption = "\<Goto"
TabIndex = 4
Name = "cmdGoto"
JPROCEDURE Click
DO tex  in analyzer with 'G'
select symbols

ENDPROC
�� ��%l�{�U$��analyzer��G��F��UTEXANALYZERSYMBOLSClick,��1�q2?)�
commandbutton
commandbuttoncmdNextform1.pageframe1.page1xTop = 44
Left = 431
Height = 23
Width = 72
FontName = "Tahoma"
Caption = "\<Next"
TabIndex = 5
Name = "cmdNext"
JPROCEDURE Click
DO tex  in analyzer with 'N'
select symbols

ENDPROC
�� ��%l�{�U$��analyzer��N��F��UTEXANALYZERSYMBOLSClick,��1�q2?)�gridgridgrid1form1.pageframe1.page1UColumnCount = 4
FontName = "Tahoma"
ChildOrder = "symbol"
DeleteMark = .F.
Height = 181
Left = 2
LinkMaster = "symbols"
Panel = 1
ReadOnly = .T.
RecordSource = "fdxref"
RelationalExpr = "upper(symbol)"
TabIndex = 3
Top = 161
Width = 598
Name = "grid1"
Column1.FontName = "Tahoma"
Column1.ControlSource = "fdxref.procname"
Column1.Width = 175
Column1.ReadOnly = .T.
Column1.Name = "column1"
Column2.FontName = "Tahoma"
Column2.ControlSource = "fdxref.lineno"
Column2.Width = 38
Column2.ReadOnly = .T.
Column2.Name = "column2"
Column3.FontName = "Tahoma"
Column3.FontSize = 9
Column3.ControlSource = "fdxref.filename"
Column3.Width = 310
Column3.ReadOnly = .T.
Column3.Name = "column3"
Column4.FontName = "Tahoma"
Column4.ControlSource = "fdxref.flag"
Column4.Width = 34
Column4.ReadOnly = .T.
Column4.Name = "column4"
headerheaderheader1$form1.pageframe1.page1.grid1.column1CFontName = "Tahoma"
Caption = "Procedure Name"
Name = "header1"
textboxtextboxtext1$form1.pageframe1.page1.grid1.column1FFontName = "Tahoma"
BorderStyle = 0
ReadOnly = .T.
Name = "text1"
8PROCEDURE Click
DO tex  in analyzer with 'G'
ENDPROC
�� ��Ҥ%\qk�U��analyzer��G��UTEXANALYZERClick,��1�1-)�headerheaderheader1$form1.pageframe1.page1.grid1.column29FontName = "Tahoma"
Caption = "Line"
Name = "header1"
textboxtextboxtext1$form1.pageframe1.page1.grid1.column2FFontName = "Tahoma"
BorderStyle = 0
ReadOnly = .T.
Name = "text1"
headerheaderheader1$form1.pageframe1.page1.grid1.column3>FontName = "Tahoma"
Caption = "File Name"
Name = "header1"
textboxtextboxtext1$form1.pageframe1.page1.grid1.column3TFontName = "Tahoma"
FontSize = 9
BorderStyle = 0
ReadOnly = .T.
Name = "text1"
headerheaderheader1$form1.pageframe1.page1.grid1.column49FontName = "Tahoma"
Caption = "Flag"
Name = "header1"
textboxtextboxtext1$form1.pageframe1.page1.grid1.column4FFontName = "Tahoma"
BorderStyle = 0
ReadOnly = .T.
Name = "text1"
labellabelLabel1form1.pageframe1.page1�AutoSize = .T.
FontName = "Tahoma"
BackStyle = 0
Caption = "Click on a Procedure Name to View Source:"
Height = 16
Left = 14
Top = 146
Width = 241
TabIndex = 2
Name = "Label1"
optiongroupoptiongroupoptform1.pageframe1.page2�ButtonCount = 2
BackStyle = 0
Value = 0
Height = 48
Left = 431
Top = 12
Width = 125
Name = "opt"
Option1.BackStyle = 0
Option1.Caption = "Calling \<Tree"
Option1.Value = 0
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 104
Option1.Name = "option1"
Option2.BackStyle = 0
Option2.Caption = "Class \<Diagram"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 25
Option2.Width = 104
Option2.Name = "option2"
�PROCEDURE InteractiveChange
do tre in analyzer with this.value,this.parent.ol
ENDPROC
PROCEDURE ProgrammaticChange
this.interactiveChange
ENDPROC
\�� CC��%����U'$��analyzer�������UTREANALYZERTHISVALUEPARENTOL

����UTHISINTERACTIVECHANGEInteractiveChange,��ProgrammaticChange��1A2�1Nw�)C
olecontrol
olecontrololform1.pageframe1.page2=Top = 12
Left = 26
Height = 296
Width = 357
Name = "ol"
zPROCEDURE DblClick
*** ActiveX Control Event ***
#DEFINE RECURSION_LOC	 " (recursion)"

LOCAL loNode
loNode = THIS.SelectedItem

*- click nothing if no children
*- dblclick opens code
IF thisform.pageframe1.page2.opt.value = 1
	SELECT fdxref
	SET ORDER TO symbol
	SEEK UPPER(STRTRAN(loNode.Text,RECURSION_LOC,""))
	do tex in analyzer  with 'G'
ENDIF


ENDPROC
��� ���T%'M
9�U����T������%�����������F��G((�symbol�"E�CC��
� (recursion)��f����analyzer��G���U
LONODETHISSELECTEDITEMTHISFORM
PAGEFRAME1PAGE2OPTVALUEFDXREFSYMBOLTEXTTEXANALYZERDblClick,��1t�q�!�A3o)���ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������5��I�@OleObjectData����jAccessObjSiteData&������������\ChangedProps������������	����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�$��<�j"��ك�ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1vwwp�������������HideSelectionLIndentationN
���p�\��x�&���wh��wH��w0��wC@
LabelEdit	I

LineStyle	I

MousePointer	I
PathSeparator
H\Style	I
OLEDragMode	I
OLEDropMode	I
�3����%	8	�p���88]����		��^���	]�����!	��^ure@��wp`F���p��pp�p�ppp
`^�e>0!<None>00000000000Pp`�` 00@`000P``````````00,OLEObject = C:\WINNT\System32\Mscomctl.ocx

commandbutton
commandbuttonCommand1form1�Top = 96
Left = 432
Height = 23
Width = 72
FontName = "Tahoma"
Cancel = .T.
Caption = "\<Close"
TabIndex = 6
Name = "Command1"
,PROCEDURE Click
thisform.release
ENDPROC
�� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�1!)�CArial, 0, 9, 5, 15, 12, 32, 3, 0
Tahoma, 0, 9, 5, 14, 12, 23, 2, 0