RbBF BlokProj ^M/[jPSIVStrn 5.5 OPSpStrn XMLDictionary.rbACnmStrn AChpStrn ACsvStrn localhost:7325 Ver1Strn 1 Ver2Strn 0 Ver3Strn 0 RelsStrn 0 NnRlStrn 0 RegnStrn 0 SVerStrn LVerStrn IVerStrn DVewInt 6prTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrup EndGInt CPalGrup flagInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt EndGInt MacCStrn ????BMacStrn My Application BCarStrn My Application (Mac OS X) BSizInt @ BMSzInt BSzSStrn 4096BMSSStrn 2048MDIcStrn My Application BWinStrn My Application.exe BMDIInt BL86Strn
MyApplication rEdtRect . fTypGrup L nameStrn textMacCStrn R*chtypeStrn TEXTdefnStrn flagInt EndGInt PadnPadn ,********************************************BlokpVew6 P >_W -NameStrn Window1 ContInt rEdtRect , eSptInt bPGpGrup P bPElGrup 4 scKyInt rEdtRect , eSptInt EndGInt EndGInt lstHInt llstVInt uPDefGrup 4 nameStrn NamePValStrn Window1 EncoInt EndGInt PDefGrup ( nameStrn Frame PValStrn 0 EndGInt PDefGrup 0 nameStrn Composite PValStrn False EndGInt PDefGrup 0 nameStrn HasBackColorPValStrn False EndGInt PDefGrup 0 nameStrn BackColor PValStrn 16777215EndGInt PDefGrup ( nameStrn BackdropPValStrn 0 EndGInt PDefGrup @ nameStrn Title PValStrn XML Dictionary EncoInt EndGInt PDefGrup ( nameStrn Visible PValStrn TrueEndGInt PDefGrup 0 nameStrn
FullScreen PValStrn False EndGInt PDefGrup 0 nameStrn MenuBarVisible PValStrn TrueEndGInt PDefGrup ( nameStrn CloseBoxPValStrn TrueEndGInt PDefGrup , nameStrn GrowIconPValStrn False EndGInt PDefGrup 0 nameStrn
LiveResize PValStrn False EndGInt PDefGrup , nameStrn ZoomIconPValStrn False EndGInt PDefGrup ( nameStrn BalloonHelp PValStrn EndGInt PDefGrup , nameStrn MacProcID PValStrn 0 EndGInt PDefGrup 0 nameStrn MenuBar PValStrn -1137275409 EndGInt PDefGrup , nameStrn Placement PValStrn 0 EndGInt PDefGrup ( nameStrn Width PValStrn 933 EndGInt PDefGrup ( nameStrn Height PValStrn 428 EndGInt PDefGrup ( nameStrn MinWidthPValStrn 64 EndGInt PDefGrup , nameStrn MinHeight PValStrn 64 EndGInt PDefGrup , nameStrn MaxWidthPValStrn 32000 EndGInt PDefGrup 0 nameStrn MaxHeight PValStrn 32000 EndGInt FDefGrup NameStrn Window1 SizeInt SuprStrn Window bNtrInt HInsGrup EncoInt nameStrn OpensorcGrup x stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn
Sub Open() srclStrn srclStrn End Sub EndGInt EndGInt EndGInt CBhvGrup NameStrn SizeInt SuprStrn DictionaryViewerbNtrInt HInsGrup EncoInt nameStrn CellClick sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn \Function CellClick(row as Integer, column as Integer, x as Integer, y as Integer) As BooleansrclStrn srclStrn End FunctionEndGInt EndGInt HInsGrup EncoInt nameStrn DoubleClick sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub DoubleClick() srclStrn srclStrn End Sub EndGInt EndGInt HInsGrup EncoInt nameStrn DragReorderRows sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn ;Function DragReorderRows(newPosition as Integer) As Boolean srclStrn srclStrn End FunctionEndGInt EndGInt HInsGrup EncoInt nameStrn OpensorcGrup x stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn
Sub Open() srclStrn srclStrn End Sub EndGInt EndGInt EndGInt CBhvGrup < NameStrn SizeInt SuprStrn
PushButton bNtrInt HInsGrup EncoInt nameStrn Action sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrn Dim d As Dictionary srclStrn srclStrn d = New Dictionary srclStrn srclStrn "If d.LoadXML(EditField1.Text) Then srclStrn DictionaryViewer1.Populate dsrclStrn ElsesrclStrn BeepsrclStrn End If srclStrn srclStrn Exception err As XmlException srclStrn MsgBox err.Message srclStrn End Sub EndGInt EndGInt EndGInt CBhvGrup \ NameStrn SizeInt SuprStrn
PushButton bNtrInt HInsGrup EncoInt nameStrn Action sorcGrup stsrInt #stscInt >ndsrInt #ndscInt >EncoInt srclStrn Sub Action()srclStrn Dim d As Dictionary srclStrn Dim mb As MemoryBlock srclStrn Dim bs As BinaryStream srclStrn Dim d2 As DictionarysrclStrn Dim col As Collection srclStrn srclStrn d = New Dictionary srclStrn srclStrn d.Value("3.4") = 2.8srclStrn #d.Value("pi") = 3.14159265358979323 srclStrn srclStrn col = New CollectionsrclStrn col.Add "Crépe paper" srclStrn col.Add 7 srclStrn col.Add "Shamrock!" srclStrn d.Value("Junk") = col srclStrn srclStrn d.Value("Hooray") = "Yippie!" srclStrn srclStrn (d.Value("Directory") = GetFolderItem("")srclStrn srclStrn d2 = New Dictionary srclStrn d2.Value("Foo") = "bar" srclStrn d2.Value("Today") = New DatesrclStrn !d2.Value("Light Blue") = &c5555FF srclStrn mb = "Hello world!" srclStrn d2.Value("MemoryBlock") = mbsrclStrn srclStrn d.Value("Subdict") = d2 srclStrn srclStrn d.Value("Right") = True srclStrn d.Value("Wrong") = FalsesrclStrn srclStrn // Make tabs show right srclStrn QEditField1.Text = ReplaceAll(d.ExportXMLString(CheckBox1.Value), ChrB(9), " ") srclStrn End Sub EndGInt EndGInt EndGInt CBhvGrup NameStrn SizeInt SuprStrn SelectAllField bNtrInt HInsGrup L EncoInt nameStrn KeyDown sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn *Function KeyDown(Key As String) As Boolean srclStrn If Asc(Key) = 9 Then // Tab srclStrn me.SelText = " " // 4 spaces srclStrn Return True srclStrn End If srclStrn End FunctionEndGInt EndGInt EndGInt CBhvGrup t NameStrn SizeInt SuprStrn
PushButton bNtrInt HInsGrup EncoInt nameStrn Action sorcGrup stsrInt stscInt %ndsrInt ndscInt %EncoInt srclStrn Sub Action()srclStrn Dim f As FolderItem srclStrn Dim sd As SaveAsDialog srclStrn Dim d As Dictionary srclStrn srclStrn sd = New SaveAsDialog srclStrn %sd.SuggestedFileName = "Untitled.xml" srclStrn f = sd.ShowModalWithin(self)srclStrn If f <> nil ThensrclStrn d = New Dictionary srclStrn "If d.LoadXML(EditField1.Text) Then srclStrn If d.SaveXML(f, False) Then srclStrn // SavedsrclStrn ElsesrclStrn BeepsrclStrn MsgBox "Error saving XML" srclStrn End If srclStrn ElsesrclStrn BeepsrclStrn *MsgBox "Error loading XML from text field" srclStrn End If srclStrn End If srclStrn End Sub EndGInt EndGInt EndGInt CBhvGrup < NameStrn SizeInt SuprStrn CheckBoxbNtrInt EndGInt CtrlGrup $ cclsStrn SelectAllField nameStrn EditField PDefGrup 8 nameStrn NamePValStrn
EditField1 EncoInt EndGInt PDefGrup 0 nameStrn Index PValStrn -2147483648 EndGInt PDefGrup 0 nameStrn
TabPanelIndex PValStrn 0 EndGInt PDefGrup ( nameStrn Visible PValStrn TrueEndGInt PDefGrup $ nameStrn LeftPValStrn 20 EndGInt PDefGrup $ nameStrn Top PValStrn 14 EndGInt PDefGrup ( nameStrn Width PValStrn 400 EndGInt PDefGrup ( nameStrn Height PValStrn 400 EndGInt PDefGrup , nameStrn
InitialParent PValStrn EndGInt PDefGrup $ nameStrn HelpTag PValStrn EndGInt PDefGrup ( nameStrn BalloonHelp PValStrn EndGInt PDefGrup 0
nameStrn DisabledBalloonHelp PValStrn EndGInt
PDefGrup 0 nameStrn AutoDeactivate PValStrn TrueEndGInt PDefGrup , nameStrn LockLeftPValStrn False EndGInt PDefGrup ,
nameStrn LockTop PValStrn False EndGInt
PDefGrup 0 nameStrn LockRight PValStrn False EndGInt PDefGrup 0 nameStrn
LockBottom PValStrn False EndGInt PDefGrup 8 nameStrn TextFontPValStrn Monaco EncoInt EndGInt PDefGrup ( nameStrn TextSizePValStrn 10 EndGInt PDefGrup ( nameStrn BoldPValStrn False EndGInt PDefGrup , nameStrn Italic PValStrn False EndGInt PDefGrup 0 nameStrn Underline PValStrn False EndGInt PDefGrup ( nameStrn Border PValStrn TrueEndGInt PDefGrup , nameStrn MultiLine PValStrn TrueEndGInt PDefGrup 4 nameStrn ScrollBarHorizontal PValStrn TrueEndGInt PDefGrup , nameStrn ScrollBar PValStrn TrueEndGInt PDefGrup 4 nameStrn ScrollBarVertical PValStrn TrueEndGInt PDefGrup , nameStrn Styled PValStrn False EndGInt PDefGrup , nameStrn PasswordPValStrn False EndGInt PDefGrup , nameStrn UseFocusRingPValStrn TrueEndGInt PDefGrup , nameStrn ReadOnlyPValStrn False EndGInt PDefGrup , nameStrn LimitText PValStrn 0 EndGInt PDefGrup , nameStrn
AcceptTabs PValStrn TrueEndGInt PDefGrup , nameStrn Alignment PValStrn 0 EndGInt PDefGrup , !nameStrn TextColor PValStrn 0 EndGInt !PDefGrup 0 "nameStrn BackColor PValStrn 16777215EndGInt "PDefGrup ( #nameStrn Enabled PValStrn TrueEndGInt #PDefGrup $nameStrn TextPValStrn
EncoInt EndGInt $PDefGrup ( %nameStrn
DataSource PValStrn EndGInt %PDefGrup ( &nameStrn DataField PValStrn EndGInt &PDefGrup $ 'nameStrn Format PValStrn EndGInt 'PDefGrup (nameStrn MaskPValStrn EndGInt (CBixInt EndGInt CtrlGrup )cclsStrn DictionaryViewernameStrn ListBox PDefGrup @ *nameStrn NamePValStrn DictionaryViewer1 EncoInt EndGInt *PDefGrup 0 +nameStrn Index PValStrn -2147483648 EndGInt +PDefGrup 0 ,nameStrn
TabPanelIndex PValStrn 0 EndGInt ,PDefGrup ( -nameStrn Visible PValStrn TrueEndGInt -PDefGrup $ .nameStrn LeftPValStrn 513 EndGInt .PDefGrup $ /nameStrn Top PValStrn 14 EndGInt /PDefGrup ( 0nameStrn Width PValStrn 400 EndGInt 0PDefGrup ( 1nameStrn Height PValStrn 400 EndGInt 1PDefGrup , 2nameStrn
InitialParent PValStrn EndGInt 2PDefGrup $ 3nameStrn HelpTag PValStrn EndGInt 3PDefGrup ( 4nameStrn BalloonHelp PValStrn EndGInt 4PDefGrup 0 5nameStrn DisabledBalloonHelp PValStrn EndGInt 5PDefGrup 0 6nameStrn AutoDeactivate PValStrn TrueEndGInt 6PDefGrup , 7nameStrn LockLeftPValStrn False EndGInt 7PDefGrup , 8nameStrn LockTop PValStrn False EndGInt 8PDefGrup 0 9nameStrn LockRight PValStrn False EndGInt 9PDefGrup 0 :nameStrn
LockBottom PValStrn False EndGInt :PDefGrup 8 ;nameStrn TextFontPValStrn System EncoInt EndGInt ;PDefGrup ( nameStrn Italic PValStrn False EndGInt >PDefGrup 0 ?nameStrn Underline PValStrn False EndGInt ?PDefGrup ( @nameStrn Enabled PValStrn TrueEndGInt @PDefGrup , AnameStrn ColumnCount PValStrn 2 EndGInt APDefGrup ( BnameStrn ColumnWidthsPValStrn EndGInt BPDefGrup , CnameStrn
HasHeading PValStrn TrueEndGInt CPDefGrup , DnameStrn UseFocusRingPValStrn TrueEndGInt DPDefGrup ( EnameStrn InitialValuePValStrn EndGInt EPDefGrup 0 FnameStrn HierarchicalPValStrn False EndGInt FPDefGrup 0 GnameStrn
EnableDrag PValStrn False EndGInt GPDefGrup 8 HnameStrn EnableDragReorder PValStrn False EndGInt HPDefGrup 0 InameStrn
SelectionType PValStrn 0 EndGInt IPDefGrup , JnameStrn HeadingIndexPValStrn -1 EndGInt JPDefGrup 8 KnameStrn ScrollBarHorizontal PValStrn False EndGInt KPDefGrup 0 LnameStrn ScrollPositionX PValStrn 0 EndGInt LPDefGrup 4 MnameStrn ScrollBarVertical PValStrn TrueEndGInt MPDefGrup 0 NnameStrn ScrollPosition PValStrn 0 EndGInt NPDefGrup ( OnameStrn
DataSource PValStrn EndGInt OPDefGrup ( PnameStrn DataField PValStrn EndGInt PPDefGrup 4 QnameStrn GridLinesHorizontal PValStrn 0 EndGInt QPDefGrup 4 RnameStrn GridLinesVertical PValStrn 0 EndGInt RPDefGrup 0 SnameStrn DefaultRowHeightPValStrn -1 EndGInt SPDefGrup 4 TnameStrn ColumnsResizablePValStrn False EndGInt TCBixInt EndGInt )CtrlGrup 0 UcclsStrn
PushButton nameStrn
PushButton PDefGrup 8 VnameStrn NamePValStrn PushButton1 EncoInt EndGInt VPDefGrup 0 WnameStrn Index PValStrn -2147483648 EndGInt WPDefGrup 0 XnameStrn
TabPanelIndex PValStrn 0 EndGInt XPDefGrup ( YnameStrn Visible PValStrn TrueEndGInt YPDefGrup $ ZnameStrn LeftPValStrn 432 EndGInt ZPDefGrup $ [nameStrn Top PValStrn 181 EndGInt [PDefGrup ( \nameStrn Width PValStrn 69 EndGInt \PDefGrup ( ]nameStrn Height PValStrn 20 EndGInt ]PDefGrup , ^nameStrn
InitialParent PValStrn EndGInt ^PDefGrup $ _nameStrn HelpTag PValStrn EndGInt _PDefGrup ( `nameStrn BalloonHelp PValStrn EndGInt `PDefGrup 0 anameStrn DisabledBalloonHelp PValStrn EndGInt aPDefGrup 0 bnameStrn AutoDeactivate PValStrn TrueEndGInt bPDefGrup , cnameStrn LockLeftPValStrn False EndGInt cPDefGrup , dnameStrn LockTop PValStrn False EndGInt dPDefGrup 0 enameStrn LockRight PValStrn False EndGInt ePDefGrup 0 fnameStrn
LockBottom PValStrn False EndGInt fPDefGrup 8 gnameStrn TextFontPValStrn System EncoInt EndGInt gPDefGrup ( hnameStrn TextSizePValStrn 12 EndGInt hPDefGrup ( inameStrn BoldPValStrn False EndGInt iPDefGrup , jnameStrn Italic PValStrn False EndGInt jPDefGrup 0 knameStrn Underline PValStrn False EndGInt kPDefGrup 4 lnameStrn Caption PValStrn -> EncoInt EndGInt lPDefGrup , mnameStrn Default PValStrn False EndGInt mPDefGrup , nnameStrn Cancel PValStrn False EndGInt nPDefGrup ( onameStrn Enabled PValStrn TrueEndGInt oCBixInt EndGInt UCtrlGrup 0 pcclsStrn
PushButton nameStrn
PushButton PDefGrup 8 qnameStrn NamePValStrn PushButton2 EncoInt EndGInt qPDefGrup 0 rnameStrn Index PValStrn -2147483648 EndGInt rPDefGrup 0 snameStrn
TabPanelIndex PValStrn 0 EndGInt sPDefGrup ( tnameStrn Visible PValStrn TrueEndGInt tPDefGrup $ unameStrn LeftPValStrn 432 EndGInt uPDefGrup $ vnameStrn Top PValStrn 213 EndGInt vPDefGrup ( wnameStrn Width PValStrn 69 EndGInt wPDefGrup ( xnameStrn Height PValStrn 20 EndGInt xPDefGrup , ynameStrn
InitialParent PValStrn EndGInt yPDefGrup $ znameStrn HelpTag PValStrn EndGInt zPDefGrup ( {nameStrn BalloonHelp PValStrn EndGInt {PDefGrup 0 |nameStrn DisabledBalloonHelp PValStrn EndGInt |PDefGrup 0 }nameStrn AutoDeactivate PValStrn TrueEndGInt }PDefGrup , ~nameStrn LockLeftPValStrn False EndGInt ~PDefGrup , nameStrn LockTop PValStrn False EndGInt PDefGrup 0 nameStrn LockRight PValStrn False EndGInt PDefGrup 0 nameStrn
LockBottom PValStrn False EndGInt PDefGrup 8 nameStrn TextFontPValStrn System EncoInt EndGInt PDefGrup ( nameStrn TextSizePValStrn 12 EndGInt PDefGrup ( nameStrn BoldPValStrn False EndGInt PDefGrup , nameStrn Italic PValStrn False EndGInt PDefGrup 0 nameStrn Underline PValStrn False EndGInt PDefGrup 4 nameStrn Caption PValStrn <- EncoInt EndGInt PDefGrup , nameStrn Default PValStrn False EndGInt PDefGrup , nameStrn Cancel PValStrn False EndGInt PDefGrup ( nameStrn Enabled PValStrn TrueEndGInt CBixInt EndGInt pCtrlGrup 0 cclsStrn
PushButton nameStrn
PushButton PDefGrup 8 nameStrn NamePValStrn PushButton3 EncoInt EndGInt PDefGrup 0 nameStrn Index PValStrn -2147483648 EndGInt PDefGrup 0 nameStrn
TabPanelIndex PValStrn 0 EndGInt PDefGrup ( nameStrn Visible PValStrn TrueEndGInt PDefGrup $ nameStrn LeftPValStrn 432 EndGInt PDefGrup $ nameStrn Top PValStrn 245 EndGInt PDefGrup ( nameStrn Width PValStrn 69 EndGInt PDefGrup ( nameStrn Height PValStrn 20 EndGInt PDefGrup , nameStrn
InitialParent PValStrn EndGInt PDefGrup $ nameStrn HelpTag PValStrn EndGInt PDefGrup ( nameStrn BalloonHelp PValStrn EndGInt PDefGrup 0 nameStrn DisabledBalloonHelp PValStrn EndGInt PDefGrup 0 nameStrn AutoDeactivate PValStrn TrueEndGInt PDefGrup , nameStrn LockLeftPValStrn False EndGInt PDefGrup , nameStrn LockTop PValStrn False EndGInt PDefGrup 0 nameStrn LockRight PValStrn False EndGInt PDefGrup 0 nameStrn
LockBottom PValStrn False EndGInt PDefGrup 8 nameStrn TextFontPValStrn System EncoInt EndGInt PDefGrup ( nameStrn TextSizePValStrn 12 EndGInt PDefGrup ( nameStrn BoldPValStrn False EndGInt PDefGrup , nameStrn Italic PValStrn False EndGInt PDefGrup 0 nameStrn Underline PValStrn False EndGInt PDefGrup 4 nameStrn Caption PValStrn SaveEncoInt EndGInt PDefGrup , nameStrn Default PValStrn False EndGInt PDefGrup , nameStrn Cancel PValStrn False EndGInt PDefGrup ( nameStrn Enabled PValStrn TrueEndGInt CBixInt EndGInt CtrlGrup h cclsStrn CheckBoxnameStrn CheckBoxPDefGrup 8 nameStrn NamePValStrn CheckBox1 EncoInt EndGInt PDefGrup 0 nameStrn Index PValStrn -2147483648 EndGInt PDefGrup 0 nameStrn
TabPanelIndex PValStrn 0 EndGInt PDefGrup ( nameStrn Visible PValStrn TrueEndGInt PDefGrup $ nameStrn LeftPValStrn 441 EndGInt PDefGrup $ nameStrn Top PValStrn 277 EndGInt PDefGrup ( nameStrn Width PValStrn 50 EndGInt PDefGrup ( nameStrn Height PValStrn 20 EndGInt PDefGrup , nameStrn
InitialParent PValStrn EndGInt PDefGrup $ nameStrn HelpTag PValStrn EndGInt PDefGrup ( nameStrn BalloonHelp PValStrn EndGInt PDefGrup 0 nameStrn DisabledBalloonHelp PValStrn EndGInt PDefGrup 0 nameStrn AutoDeactivate PValStrn TrueEndGInt PDefGrup , nameStrn LockLeftPValStrn False EndGInt PDefGrup , nameStrn LockTop PValStrn False EndGInt PDefGrup 0 nameStrn LockRight PValStrn False EndGInt PDefGrup 0 nameStrn
LockBottom PValStrn False EndGInt PDefGrup 8 nameStrn TextFontPValStrn System EncoInt EndGInt PDefGrup ( nameStrn TextSizePValStrn 12 EndGInt PDefGrup ( nameStrn BoldPValStrn False EndGInt PDefGrup , nameStrn Italic PValStrn False EndGInt PDefGrup 0 nameStrn Underline PValStrn False EndGInt PDefGrup 8 nameStrn Caption PValStrn plist EncoInt EndGInt PDefGrup , nameStrn Value PValStrn False EndGInt PDefGrup ( nameStrn Enabled PValStrn TrueEndGInt PDefGrup ( nameStrn
DataSource PValStrn EndGInt PDefGrup ( nameStrn DataField PValStrn EndGInt CBixInt EndGInt PadnPadn @****************************************************************BlokpMnu6 -NameStrn MenuBar1ContInt rEdtRect d d , MItmGrup spmuInt nameStrn textStrn indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup spmuInt nameStrn textStrn indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt EndGInt MItmGrup spmuInt nameStrn FileMenutextStrn &File indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup spmuInt nameStrn FileQuittextStrn QuitindxInt scutStrn Q bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn QuitMenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn textStrn indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt EndGInt MItmGrup spmuInt nameStrn EditMenutextStrn &Edit indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup spmuInt nameStrn EditUndotextStrn UndoindxInt scutStrn Z bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn textStrn - indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn EditCut textStrn Cut indxInt scutStrn X bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn EditCopytextStrn CopyindxInt scutStrn C bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn EditPaste textStrn Paste indxInt scutStrn V bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn EditClear textStrn Clear indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn
EditSelectAll textStrn
Select All indxInt scutStrn A bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt MItmGrup spmuInt nameStrn textStrn indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt EndGInt MItmGrup spmuInt nameStrn textStrn indxInt scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt PadnPadn @************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj6 @#Y(NameStrn App ContInt rEdtRect _ K ! eSptInt bPGpGrup P bPElGrup 4 scKyInt rEdtRect _ K ! eSptInt EndGInt EndGInt bClsInt NameStrn App SizeInt 4SuprStrn Application bNtrInt IntrStrn bApOInt PDefGrup 0 nameStrn MenuBar PValStrn -1137275409 EndGInt PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj 8 ~l*jNameStrn DictionaryViewerContInt rEdtRect U 3eSptInt bPGpGrup bPElGrup 4 scKyInt rEdtRect U 3eSptInt EndGInt bPElGrup 4 scKyInt rEdtRect A N , eSptInt EndGInt EndGInt bClsInt NameStrn DictionaryViewerSizeInt SuprStrn Listbox bNtrInt PropGrup EncoInt declStrn rowFolders(-1) As Variant flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn rowFolders(-1) As Variant ntlnStrn ntlnStrn EndGInt EndGInt NoteGrup EncoInt nameStrn Use flagInt sorcGrup stsrInt stscInt [ndsrInt ndscInt [EncoInt ntlnStrn Use ntlnStrn [Just pass a dictionary to Populate, and it will display the whole thing, all nicely colored ntlnStrn EndGInt EndGInt NoteGrup \ EncoInt nameStrn Credits flagInt sorcGrup stsrInt stscInt ^ndsrInt ndscInt ^EncoInt ntlnStrn Credits ntlnStrn ntlnStrn ^If you use this in your application, please give me credit somewhere (like, a Thanks section). ntlnStrn EndGInt EndGInt MethGrup EncoInt nameStrn PopulateparmStrn d As Dictionary rsltStrn flagInt sorcGrup $ stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Populate(d As Dictionary) srclStrn A// Clears the listbox, and parses the top level of the dictionary srclStrn srclStrn self.DeleteAllRows srclStrn srclStrn ParseStorage d srclStrn End Sub EndGInt EndGInt MethGrup EncoInt nameStrn ParseStorageparmStrn storage As Variant rsltStrn flagInt sorcGrup stsrInt stscInt >ndsrInt ndscInt >EncoInt srclStrn $Sub ParseStorage(storage As Variant)srclStrn 8// Parses a dictionary and creates a row for each value.srclStrn 7// If it finds a nested dictionary, it creates a folder srclStrn C// It also records the type of each key and value in hidden columns srclStrn V// And, if a nested dictionary, it saves the dictionary and records the saved location srclStrn srclStrn Dim i, n As Integer srclStrn Dim v As VariantsrclStrn srclStrn n = StorageCount(storage) - 1 srclStrn srclStrn For i = 0 To n srclStrn .v = StorageValue(storage, i) // Grab the value srclStrn 2If ValueIsExpandable(v) Then // If it's expandable srclStrn Gself.AddFolder getVariantValue(StorageKey(storage, i)) // Make a folder srclStrn CrowFolders.Append v.ObjectValue // Save the value for parsing later srclStrn Mself.Cell(self.LastIndex, 3) = "0" // This means it's a folder for coloration srclStrn [self.Cell(self.LastIndex, 4) = Str(UBound(rowFolders)) // Remember where it saved the value srclStrn ElsesrclStrn Cself.AddRow getVariantValue(StorageKey(storage, i)) // Create a row srclStrn 4If v.Type = 9 AND v.ObjectValue IsA MemoryBlock ThensrclStrn Aself.Cell(self.LastIndex, 3) = "0" // Color it like a memoryblock srclStrn ElsesrclStrn Gself.Cell(self.LastIndex, 3) = getVariantType(v) // Color it like it is srclStrn End If srclStrn Xself.Cell(self.LastIndex, 4) = "-1" // It's not a folder, so has no dictionary referencesrclStrn End If srclStrn Cself.Cell(self.LastIndex, 1) = getVariantValue(v) // Show the value srclStrn nself.Cell(self.LastIndex, 2) = getVariantType(StorageKey(storage, i)) // Record the type of key for coloration srclStrn NextsrclStrn End Sub EndGInt EndGInt MethGrup $ EncoInt nameStrn getVariantType parmStrn v As VariantrsltStrn String flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn /Function getVariantType(v As Variant) As String srclStrn )// Returns the variant's type as a string srclStrn srclStrn If v <> nil ThensrclStrn If v.IsNull ThensrclStrn
Return "0" srclStrn ElsesrclStrn Return Str(v.Type) srclStrn End If srclStrn ElsesrclStrn Return "-1" srclStrn End If srclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn getVariantValue parmStrn v As VariantrsltStrn String flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 0Function getVariantValue(v As Variant) As StringsrclStrn )// Return the variant's value as a string srclStrn srclStrn If v <> nil ThensrclStrn Select Case v.Type srclStrn
Case 0 // Nil srclStrn
Return "Null" srclStrn Case 2 // Integer srclStrn "Return Format(v.IntegerValue,"-#") srclStrn Case 5 // DoublesrclStrn 'Return Format(v.DoubleValue,"-#.0####") srclStrn Case 7 // Date srclStrn 'Return v.StringValue // Valid for dates srclStrn Case 8 // StringsrclStrn Return v.StringValuesrclStrn Case 9 // ObjectsrclStrn = Val(self.Cell(row, 4)) ThensrclStrn /ParseStorage rowFolders(Val(self.Cell(row, 4))) srclStrn ElsesrclStrn BeepsrclStrn self.AddRow "Error" srclStrn @self.Cell(self.LastIndex, 1) = "Couldn't find nested dictionary"srclStrn "self.Cell(self.LastIndex, 2) = "8" srclStrn "self.Cell(self.LastIndex, 3) = "0" srclStrn End If srclStrn End Sub EndGInt EndGInt HInsGrup EncoInt nameStrn OpensorcGrup stsrInt stscInt 'ndsrInt ndscInt 'EncoInt srclStrn
Sub Open() srclStrn &// Make sure the display looks correct srclStrn srclStrn %// Give the user a chance to do stuff srclStrn OpensrclStrn srclStrn !// Now make sure it looks correct srclStrn me.ColumnCount = 5 srclStrn me.ColumnWidths = "33%,*,0,0,0" srclStrn me.Hierarchical = True srclStrn me.Heading(0) = "Key" srclStrn me.Heading(1) = "Value" srclStrn )me.Heading(2) = "Internal Use - Key Type" srclStrn +me.Heading(3) = "Internal Use - Value Type" srclStrn 'me.Heading(4) = "Internal Use - RowTag" srclStrn End Sub EndGInt EndGInt IntrStrn PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj6, -NameStrn SelectAllField ContInt rEdtRect _ K ! eSptInt bPGpGrup P bPElGrup 4 scKyInt rEdtRect _ K ! eSptInt EndGInt EndGInt bClsInt NameStrn SelectAllField SizeInt SuprStrn EditField bNtrInt MnuHGrup EncoInt nameStrn
EditSelectAll sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Function Action() As BooleansrclStrn self.SelStart = 0 srclStrn self.SelLength = Len(self.Text) srclStrn End FunctionEndGInt EndGInt IntrStrn PadnPadn ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj6Ĩ d \INameStrn
XMLDictionary ContInt rEdtRect U reSptInt bPGpGrup P bPElGrup 4 scKyInt rEdtRect U reSptInt EndGInt EndGInt bClsInt NameStrn
XMLDictionary SizeInt bNtrInt NoteGrup t
EncoInt nameStrn Version History flagInt sorcGrup $ stsrInt stscInt sndsrInt ndscInt sEncoInt ntlnStrn Version History ntlnStrn
Kevin Ballard ntlnStrn kevin@sb.orgntlnStrn http://www.tildesoft.comntlnStrn ntlnStrn v1.2.6: ntlnStrn o- Approximately tripled the speed of loading an XML file. Unfortunately, I can't do the same for saving because ntlnStrn s the Dictionary class lacks an appropriate iterator-style access so my Ishmale the Painter's algorithm is required ntlnStrn ntlnStrn v1.2.5: ntlnStrn M- As per Jarvis Badgley's request, made it now respect existing dictionaries. ntlnStrn e This means that if you create a set of nested dictionaries that corresponds to the plist structure, ntlnStrn o when parsing the plist it will use the existing dictionaries rather than overwriting with its own. Of course, ntlnStrn 7 this is not valid when parsing an array in the plist. ntlnStrn P The main purpose of this is to set up default values before parsing the plist.ntlnStrn ntlnStrn j Note: This means I no longer clear the dictionary when I parse the XML file. If you want to keep the old ntlnStrn G behaviour, do a Dictionary.clear before parsing the XML file ntlnStrn ntlnStrn v1.2.4: ntlnStrn 5- Made line endings use EndOfLine instead of linefeed ntlnStrn B- Removed some commented-out code left over from the 5.5.1fc1 hack ntlnStrn ntlnStrn v1.2.3: ntlnStrn R- Removed said hack, due to fix in 5.5.1fc4. If you're using 5.5.1fc1-fc3, upgrade ntlnStrn ntlnStrn v1.2.2: ntlnStrn ^- Added a hack to work around the XmlDocument.AppendChild() As XmlNode bug present in 5.5.1fc1 ntlnStrn g- If you pass a variant of an unknown type (something that should never happen), it now outputs "false" ntlnStrn , instead of "null" in plist-compatible modentlnStrn ntlnStrn v1.2.1: ntlnStrn [- Fixed bug where plist-compatible mode wasn't preserved in nested dictionaries/collections ntlnStrn y- Fixed plist-compatible mode so that colors are now output as False instead (since plist doesn't support the color type) ntlnStrn ntlnStrn v1.2: ntlnStrn 6- Fixed double output to use Format() instead of Str() ntlnStrn M- SaveXML now sets file type/creator to "" instead of using the text filetype ntlnStrn - Can now parse plist files ntlnStrn S- Can now save as plist files with an option boolean to all the export/save methods ntlnStrn ntlnStrn v1.1: ntlnStrn J- Added support for Collections as a replacement for lack of array support ntlnStrn 4 Note that keys in Collections are not preservedntlnStrn x- Ugraded version attribute of resulting document to "1.1" - previous versions of XMLDictionary won't read new documentsntlnStrn - When adding a string value to a document, it now converts it to UTF-8. If conversion failed (because no encoding was present originally), ntlnStrn , it simply defines the encoding as UTF-8ntlnStrn ntlnStrn v1.0.1: ntlnStrn !- Added support for 5.5b6 changes ntlnStrn ntlnStrn v1.0: ntlnStrn - Initial release ntlnStrn EndGInt EndGInt
MethGrup EncoInt nameStrn ExportXML parmStrn 7Extends xmldict As Dictionary, plist As Boolean = False rsltStrn XmlDocument flagInt sorcGrup $
stsrInt stscInt .ndsrInt ndscInt .EncoInt srclStrn ZFunction ExportXML(Extends xmldict As Dictionary, plist As Boolean = False) As XmlDocument srclStrn Dim xdoc As XmlDocument srclStrn Dim root, dict As XmlElementsrclStrn srclStrn xdoc = New XmlDocument srclStrn
If plist Then srclStrn // Plist-compatible output srclStrn @root = XmlElement(xdoc.AppendChild(xdoc.CreateElement("plist")))srclStrn *root.SetAttribute("version", PlistVersion) srclStrn ?dict = XmlElement(root.AppendChild(xdoc.CreateElement("dict"))) srclStrn ParseStorage xmldict, dict, TruesrclStrn IndentNode root, 0, TruesrclStrn IndentNode dict, 0, TruesrclStrn ElsesrclStrn Broot = XmlElement(xdoc.AppendChild(xdoc.CreateElement("xmldict"))) srclStrn ,root.SetAttribute("version", CurrentVersion)srclStrn !ParseStorage xmldict, root, False srclStrn IndentNode root, 0, TruesrclStrn End If srclStrn 0xdoc.AppendChild(xdoc.CreateTextNode(EndOfLine))srclStrn srclStrn Return xdoc srclStrn End FunctionEndGInt
EndGInt MethGrup EncoInt nameStrn ExportXMLString parmStrn 7Extends xmldict As Dictionary, plist As Boolean = False rsltStrn String flagInt sorcGrup stsrInt stscInt PndsrInt ndscInt PEncoInt srclStrn [Function ExportXMLString(Extends xmldict As Dictionary, plist As Boolean = False) As String srclStrn 3// Since we can't add a DOCTYPE to the XmlDocument, srclStrn "// lets hack this output to add it srclStrn srclStrn Dim s, DTD As StringsrclStrn Dim i As IntegersrclStrn %s = xmldict.ExportXML(plist).ToString srclStrn srclStrn // Let's add the DTDsrclStrn i = s.InStr(EndOfLine) srclStrn srclStrn
If plist Then srclStrn DTD = PlistDTD srclStrn ElsesrclStrn DTD = XMLDictDTDsrclStrn End If srclStrn Rs = s.Mid(1, i + Len(EndOfLine) - 1) + DTD + EndOfLine + s.Mid(i + Len(EndOfLine)) srclStrn Return ssrclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn
IndentNode parmStrn Dnode As XmlNode, level As Integer, indentCloseTag As Boolean = FalsersltStrn flagInt !sorcGrup $ stsrInt stscInt
ndsrInt ndscInt
EncoInt srclStrn TSub IndentNode(node As XmlNode, level As Integer, indentCloseTag As Boolean = False)srclStrn Dim i As IntegersrclStrn Dim s As String srclStrn
s = EndOfLine srclStrn For i = 1 To level srclStrn s = s + Chr(9) // Tab srclStrn NextsrclStrn >node.Parent.Insert(node.OwnerDocument.CreateTextNode(s), node) srclStrn If indentCloseTag Then srclStrn 6node.AppendChild(node.OwnerDocument.CreateTextNode(s)) srclStrn End If srclStrn End Sub EndGInt EndGInt MethGrup EncoInt nameStrn LoadXML parmStrn 0Extends xmldict As Dictionary, XMLData As StringrsltStrn Boolean flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn MFunction LoadXML(Extends xmldict As Dictionary, XMLData As String) As Boolean srclStrn Dim xdoc As XmlDocument srclStrn srclStrn xdoc = New XmlDocument()srclStrn xdoc.PreserveWhitespace = True srclStrn xdoc.LoadXml(XMLData) srclStrn Return xmldict.LoadXML(xdoc)srclStrn srclStrn Exception err As XmlException srclStrn // Ugh, invalid XML srclStrn Return FalsesrclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn LoadXML parmStrn 4Extends xmldict As Dictionary, XMLFile As FolderItemrsltStrn Boolean flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn QFunction LoadXML(Extends xmldict As Dictionary, XMLFile As FolderItem) As Boolean srclStrn Dim tos As TextInputStream srclStrn Dim s As String srclStrn srclStrn tos = XMLFile.OpenAsTextFile() srclStrn If tos <> nil Then srclStrn s = tos.ReadAll srclStrn tos.Close srclStrn Return xmldict.LoadXML(s) srclStrn ElsesrclStrn Return FalsesrclStrn End If srclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn LoadXML parmStrn 4Extends xmldict As Dictionary, XMLDoc As XmlDocumentrsltStrn Boolean flagInt sorcGrup stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn QFunction LoadXML(Extends xmldict As Dictionary, XMLDoc As XmlDocument) As Boolean srclStrn Dim node As XmlNode srclStrn srclStrn XMLDoc.PreserveWhitespace = TruesrclStrn srclStrn 6// Check to see if it's our xmldict or if it's a plist srclStrn -If XMLDoc.DocumentElement.Name = "plist" Then srclStrn +// Make sure it's a "dict" as the base type srclStrn (node = XMLDoc.DocumentElement.FirstChildsrclStrn ;While node.Type <> XmlNodeType.ELEMENT_NODE And node <> nil srclStrn node = node.NextSibling srclStrn WendsrclStrn )If node = nil Or node.Name <> "dict" Then srclStrn // It's not valid srclStrn Return FalsesrclStrn End If srclStrn // Now check the versionsrclStrn PIf Val(XMLDoc.DocumentElement.GetAttribute("version")) <= Val(PlistVersion) ThensrclStrn ParseXML node, xmldict srclStrn Return True srclStrn ElsesrclStrn Return FalsesrclStrn End If srclStrn ElsesrclStrn 9// First, make sure the version is at most what we expect srclStrn RIf Val(XMLDoc.DocumentElement.GetAttribute("version")) <= Val(CurrentVersion) Then srclStrn (ParseXML XMLDoc.DocumentElement, xmldictsrclStrn Return True srclStrn ElsesrclStrn H// We can't reliably parse a higher version, so lets not parse it at allsrclStrn Return FalsesrclStrn End If srclStrn End If srclStrn srclStrn Exception err As XmlException srclStrn // Ugh, invalid XML srclStrn Return FalsesrclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn NodeContentsparmStrn parent As XmlNode rsltStrn String flagInt !sorcGrup < stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 2Function NodeContents(parent As XmlNode) As String srclStrn C// Concatenates all the node children values and returns the result srclStrn H// It's designed for the children to be all text nodes, but for anythingsrclStrn // else it'll just use .ToStringsrclStrn srclStrn Dim i, n As Integer srclStrn Dim node As XmlNode srclStrn Dim s As String srclStrn n = parent.ChildCount - 1 srclStrn For i = 0 To n srclStrn node = parent.Child(i) srclStrn "If node.Type = 3 Then // Text node srclStrn s = s + node.Value srclStrn KElse // Other node - shouldn't happen, but we gotta deal with it if it does srclStrn s = s + node.ToString srclStrn End If srclStrn NextsrclStrn Return ssrclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn ParseStorageparmStrn qstorage As Variant, parent As XmlNode, alreadySeen() As Variant, indentLevel As Integer, plist As Boolean = False rsltStrn flagInt !sorcGrup stsrInt gstscInt
ndsrInt gndscInt
EncoInt srclStrn Sub ParseStorage(storage As Variant, parent As XmlNode, alreadySeen() As Variant, indentLevel As Integer, plist As Boolean = False) srclStrn Dim i, n, x As Integer srclStrn Dim key, value As Variant srclStrn Dim node, tempNode As XmlNode srclStrn Dim xdoc As XmlDocument srclStrn Dim s, data(-1) As String srclStrn Dim multilineTag As Boolean srclStrn Dim mb As MemoryBlock srclStrn srclStrn ;// First, make sure we haven't already seen this dictionary srclStrn 7// This protects against circular dictionary references srclStrn n = UBound(alreadySeen) srclStrn For i = 0 To n srclStrn If alreadySeen(i) = storage ThensrclStrn !// Ack! We've seen this! Bail out srclStrn Return srclStrn End If srclStrn NextsrclStrn '// Ok, lets add out storage to the list srclStrn alreadySeen.Append storage srclStrn srclStrn xdoc = parent.OwnerDocument srclStrn n = StorageCount(storage) - 1 srclStrn For i = 0 To n srclStrn // Key srclStrn key = StorageKey(storage, i)srclStrn *If key <> nil Then // It's a keyed storage srclStrn 4node = parent.AppendChild(xdoc.CreateElement("key"))srclStrn 6node.AppendChild(xdoc.CreateTextNode(key.StringValue)) srclStrn IndentNode node, indentLevelsrclStrn End If srclStrn srclStrn // ValuesrclStrn multilineTag = FalsesrclStrn value = StorageValue(storage, i)srclStrn Select Case value.Type srclStrn Case 0 // Null srclStrn 8// If it's a plist, we can't use null, so lets use falsesrclStrn
If plist Then srclStrn "node = xdoc.CreateElement("false") srclStrn ElsesrclStrn !node = xdoc.CreateElement("null") srclStrn End If srclStrn Case 2 // Integer srclStrn $node = xdoc.CreateElement("integer")srclStrn >node.AppendChild(xdoc.CreateTextNode(Str(value.IntegerValue))) srclStrn Case 5 // Double/Single srclStrn !node = xdoc.CreateElement("real") srclStrn Vnode.AppendChild(xdoc.CreateTextNode(Format(value.DoubleValue, "-#.0##############"))) srclStrn Case 7 // Date srclStrn !node = xdoc.CreateElement("date") srclStrn 8node.AppendChild(xdoc.CreateTextNode(value.StringValue))srclStrn Case 8 // StringsrclStrn #node = xdoc.CreateElement("string") srclStrn Is = ConvertEncoding(value.StringValue, Encodings.UTF8) // Convert to UTF8 srclStrn If s.Encoding = nil Then s = DefineEncoding(s, Encodings.UTF8) // If encoding was undefined, convert fails. Simply define instead srclStrn (node.AppendChild(xdoc.CreateTextNode(s))srclStrn Case 9 // ObjectsrclStrn @// Is this a dictionary, memoryblock, collection, or folderitem?srclStrn (If value.ObjectValue IsA Dictionary ThensrclStrn // We can parse this dictionary srclStrn !node = xdoc.CreateElement("dict") srclStrn SParseStorage Dictionary(value.ObjectValue), node, alreadySeen, indentLevel+1, plist srclStrn multilineTag = True srclStrn -ElseIf value.ObjectValue IsA MemoryBlock Then srclStrn // We can parse this memoryblocksrclStrn !node = xdoc.CreateElement("data") srclStrn jdata = Split(EncodeBase64(MemoryBlock(value.ObjectValue), 45), ChrB(13)+ChrB(10)) // 45 is what plists use srclStrn For Each s In data srclStrn TtempNode = node.AppendChild(xdoc.CreateTextNode(DefineEncoding(s, Encodings.ASCII)))srclStrn IndentNode tempNode, indentLevelsrclStrn NextsrclStrn multilineTag = True srclStrn ,ElseIf value.ObjectValue IsA Collection ThensrclStrn // We can parse this collection srclStrn "node = xdoc.CreateElement("array") srclStrn SParseStorage Collection(value.ObjectValue), node, alreadySeen, indentLevel+1, plist srclStrn multilineTag = True srclStrn lElseIf value.ObjectValue IsA FolderItem And Not plist Then // We can't output this if it's plist-compatible srclStrn ?// Do the same thing as a memoryblock, but with a different tag srclStrn !node = xdoc.CreateElement("file") srclStrn adata = Split(EncodeBase64(FolderItem(value.ObjectValue).GetSaveInfo(Nil), 45), ChrB(13)+ChrB(10)) srclStrn For Each s In Data srclStrn 3tempNode = node.AppendChild(xdoc.CreateTextNode(s)) srclStrn IndentNode tempNode, indentLevelsrclStrn NextsrclStrn multilineTag = True srclStrn ElsesrclStrn D// Arbitrary object? We can't do this. Let's just add a null elementsrclStrn 8// If it's a plist, we can't use null, so lets use falsesrclStrn
If plist Then srclStrn "node = xdoc.CreateElement("false") srclStrn ElsesrclStrn !node = xdoc.CreateElement("null") srclStrn End If srclStrn End If srclStrn Case 11 // Boolean srclStrn !If value.BooleanValue = True Then srclStrn !node = xdoc.CreateElement("true") srclStrn ElsesrclStrn "node = xdoc.CreateElement("false") srclStrn End If srclStrn Case 16 // ColorsrclStrn
If plist Then srclStrn #// We can't output colors in plists srclStrn // Lets just add a False node srclStrn "node = xdoc.CreateElement("false") srclStrn ElsesrclStrn "node = xdoc.CreateElement("color") srclStrn Dnode.AppendChild(xdoc.CreateTextNode("#" + Hex(value.IntegerValue)))srclStrn End If srclStrn ElsesrclStrn Q// Buh? We should never reach this point, but just in case, lets add a null value srclStrn f// However, if it's plist-compatible mode, we have to add a false value, since it doesn't support null srclStrn
if plist Then srclStrn "node = xdoc.CreateElement("false") srclStrn ElsesrclStrn !node = xdoc.CreateElement("null") srclStrn End If srclStrn
End Select srclStrn Fparent.AppendChild node // workaround for AppendChild() as XmlNode bug srclStrn *IndentNode node, indentLevel, multilineTag srclStrn NextsrclStrn End Sub EndGInt EndGInt MethGrup
EncoInt nameStrn ParseXMLparmStrn %parent As XmlNode, storage As Variant rsltStrn flagInt !sorcGrup
< stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 3Sub ParseXML(parent As XmlNode, storage As Variant) srclStrn Dim i As IntegersrclStrn Dim node, tempNode As XmlNode srclStrn Dim key As Variant srclStrn Dim v As VariantsrclStrn Dim d As Dictionary srclStrn Dim col As Collection srclStrn Dim mb As MemoryBlock srclStrn srclStrn //ClearStorage storage srclStrn srclStrn node = parent.FirstChildsrclStrn While node <> nil srclStrn *// We only want to deal with element nodes srclStrn 7// The only other type of node that *should* show up is srclStrn 5// a text node with only whitespace. However, even if srclStrn 4// other nodes show up, we should ignore them, sincesrclStrn // we're not a validatorsrclStrn nil Then srclStrn 'bs.Write xmldict.ExportXMLString(plist) srclStrn bs.ClosesrclStrn XMLFile.MacType = ""srclStrn XMLFile.MacCreator = "" srclStrn Return True srclStrn ElsesrclStrn Return FalsesrclStrn End If srclStrn End FunctionEndGInt EndGInt MethGrup EncoInt nameStrn ParseStorageparmStrn ?storage As Variant, parent As XmlNode, plist As Boolean = False rsltStrn flagInt !sorcGrup !stsrInt stscInt )ndsrInt ndscInt )EncoInt srclStrn QSub ParseStorage(storage As Variant, parent As XmlNode, plist As Boolean = False) srclStrn Dim v(-1) As VariantsrclStrn *ParseStorage(storage, parent, v, 1, plist) srclStrn End Sub EndGInt !EndGInt MethGrup "EncoInt nameStrn
StoreValue parmStrn 4key As Variant, value As Variant, storage As VariantrsltStrn flagInt !sorcGrup #stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn DSub StoreValue(key As Variant, value As Variant, storage As Variant)srclStrn If storage.Type = 9 ThensrclStrn 9If storage.ObjectValue IsA Dictionary And key <> nil Then srclStrn 2Dictionary(storage.ObjectValue).Value(key) = value srclStrn .ElseIf storage.ObjectValue IsA Collection Then srclStrn )Collection(storage.ObjectValue).Add value srclStrn End If srclStrn End If srclStrn End Sub EndGInt #EndGInt "MethGrup $EncoInt nameStrn ClearStorageparmStrn storage As Variant rsltStrn flagInt !sorcGrup 4 %stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn $Sub ClearStorage(storage As Variant)srclStrn Dim i, n As Integer srclStrn srclStrn If storage.Type = 9 ThensrclStrn *If storage.ObjectValue IsA Dictionary Then srclStrn Dictionary(storage).Clear srclStrn .ElseIf storage.ObjectValue IsA Collection Then srclStrn )n = Collection(storage.ObjectValue).Count srclStrn For i = n DownTo 1 srclStrn (Collection(storage.ObjectValue).Remove isrclStrn NextsrclStrn End If srclStrn End If srclStrn End Sub EndGInt %EndGInt $MethGrup \ &EncoInt nameStrn StorageCountparmStrn storage As Variant rsltStrn Integer flagInt !sorcGrup 'stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 4Function StorageCount(storage As Variant) As IntegersrclStrn If storage.Type = 9 ThensrclStrn *If storage.ObjectValue IsA Dictionary Then srclStrn ,Return Dictionary(storage.ObjectValue).CountsrclStrn .ElseIf storage.ObjectValue IsA Collection Then srclStrn ,Return Collection(storage.ObjectValue).CountsrclStrn End If srclStrn End If srclStrn Return 0srclStrn End FunctionEndGInt 'EndGInt &MethGrup (EncoInt nameStrn
StorageKey parmStrn $storage As Variant, index As IntegerrsltStrn Variant flagInt !sorcGrup ` )stsrInt stscInt
ndsrInt ndscInt
EncoInt srclStrn DFunction StorageKey(storage As Variant, index As Integer) As VariantsrclStrn ?If storage.Type = 9 And storage.ObjectValue IsA Dictionary Then srclStrn 1Return Dictionary(storage.ObjectValue).Key(index) srclStrn End If srclStrn
Return nil srclStrn End FunctionEndGInt )EndGInt (MethGrup *EncoInt nameStrn StorageValueparmStrn $storage As Variant, index As IntegerrsltStrn Variant flagInt !sorcGrup +stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn FFunction StorageValue(storage As Variant, index As Integer) As Variant srclStrn If storage.Type = 9 ThensrclStrn *If storage.ObjectValue IsA Dictionary Then srclStrn XReturn Dictionary(storage.ObjectValue).Value(Dictionary(storage.ObjectValue).Key(index))srclStrn .ElseIf storage.ObjectValue IsA Collection Then srclStrn 4Return Collection(storage.ObjectValue).Item(index+1)srclStrn End If srclStrn End If srclStrn End FunctionEndGInt +EndGInt *MethGrup ,EncoInt nameStrn StorageByKeyparmStrn "storage As Variant, key As Variant rsltStrn Variant flagInt !sorcGrup p -stsrInt
stscInt
ndsrInt
ndscInt
EncoInt srclStrn DFunction StorageByKey(storage As Variant, key As Variant) As VariantsrclStrn &// This is only valid for dictionaries srclStrn a// The only purpose is to make Jarvis Badgley's request work, i.e. preserve existing dictionaries srclStrn srclStrn If storage.Type = 9 ThensrclStrn ZIf storage.ObjectValue IsA Dictionary And Dictionary(storage.ObjectValue).HasKey(key) Then srclStrn 1Return Dictionary(storage.ObjectValue).Value(key) srclStrn End If srclStrn End If srclStrn srclStrn
Return nil srclStrn End FunctionEndGInt -EndGInt ,CnstGrup .EncoInt nameStrn
XMLDictDTD typeInt defnStrn s flagInt !EndGInt .CnstGrup T /EncoInt nameStrn CurrentVersion typeInt defnStrn 1.1 flagInt !EndGInt /CnstGrup P 0EncoInt nameStrn PlistVersiontypeInt defnStrn 1.0 flagInt !EndGInt 0CnstGrup 1EncoInt nameStrn PlistDTDtypeInt defnStrn o flagInt !EndGInt 1IntrStrn PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!