From 54593a73cb87006735d219dae4162f2641b39263 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Wed, 26 Aug 2009 08:47:30 +0000 Subject: [PATCH] [EXAMPLES] * NEW: The DBus Explorer example name is now "DBusExplorer". git-svn-id: svn://localhost/gambas/trunk@2276 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- .../examples/Misc/DBusExplorer/.directory | 2 + examples/examples/Misc/DBusExplorer/.icon.png | Bin 0 -> 7072 bytes examples/examples/Misc/DBusExplorer/.project | 14 ++ examples/examples/Misc/DBusExplorer/.settings | 109 +++++++++ .../DBusExplorer/.src/FVersiongbXML.class | 230 ++++++++++++++++++ .../Misc/DBusExplorer/.src/FVersiongbXML.form | 105 ++++++++ examples/examples/Misc/DBusExplorer/.startup | 13 + examples/examples/Misc/DBusExplorer/Text1 | 88 +++++++ examples/examples/Misc/DBusExplorer/Text2 | 51 ++++ .../examples/Misc/DBusExplorer/dbus22.png | Bin 0 -> 1144 bytes .../examples/Misc/DBusExplorer/dbus64.png | Bin 0 -> 4365 bytes .../examples/Misc/DBusExplorer/method.png | Bin 0 -> 636 bytes .../examples/Misc/DBusExplorer/property.png | Bin 0 -> 704 bytes .../examples/Misc/DBusExplorer/signal.png | Bin 0 -> 778 bytes 14 files changed, 612 insertions(+) create mode 100644 examples/examples/Misc/DBusExplorer/.directory create mode 100644 examples/examples/Misc/DBusExplorer/.icon.png create mode 100644 examples/examples/Misc/DBusExplorer/.project create mode 100644 examples/examples/Misc/DBusExplorer/.settings create mode 100644 examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class create mode 100644 examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.form create mode 100644 examples/examples/Misc/DBusExplorer/.startup create mode 100644 examples/examples/Misc/DBusExplorer/Text1 create mode 100644 examples/examples/Misc/DBusExplorer/Text2 create mode 100644 examples/examples/Misc/DBusExplorer/dbus22.png create mode 100644 examples/examples/Misc/DBusExplorer/dbus64.png create mode 100644 examples/examples/Misc/DBusExplorer/method.png create mode 100644 examples/examples/Misc/DBusExplorer/property.png create mode 100644 examples/examples/Misc/DBusExplorer/signal.png diff --git a/examples/examples/Misc/DBusExplorer/.directory b/examples/examples/Misc/DBusExplorer/.directory new file mode 100644 index 000000000..06dab1c8a --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.directory @@ -0,0 +1,2 @@ +[Desktop Entry] +Icon=./.icon.png diff --git a/examples/examples/Misc/DBusExplorer/.icon.png b/examples/examples/Misc/DBusExplorer/.icon.png new file mode 100644 index 0000000000000000000000000000000000000000..c052b8fad76f04704d7369f45bf6eeb4e9d9b038 GIT binary patch literal 7072 zcmV;R8(-v!P){>7IQilgVVVkd-8a9m1Bd2H^@C zL<9j*fi6F=Xt8?sTTY%lj;?(7)r`(kgD7o+WY&#)i<>NJ@pwM z)(`tfNX;i!e?&=jSFpe{y)xusN2cNu;9MZ~LF@cqLBQlIRxgrL{8$%a*=Ls5a`TD? zT6@zh{c`*Sv+{)5cK^Dy0G0ppybodAAYI!^?fl(Csixm&4p;X-H33tudc9gI?og6X zU3gN3aoeXFa1AfN-V6;T1q1^I*(nz+wfom?s$TK83ze(xst9`O(`g;M=8VZS{r+D8 z`%rECQxZ^r^=m#Q^jnnVn~SCu`EL7U12d)+@t2+O+Fo!RSlbN8&n;(FWY)jbtaxde zuItObaLE*Iyrf=UcgI$1Rrj6~fg&J!sJ8y82$=S{wT6=Jl}d3(O~_mIjgL=Z`3dE` z(h85f3hC_rceA!+$kOna*Pgg^Q5m;iJ)NG29XazGyLL6VBx=#TrGWQvZT`~`F#Y;9 zXDh{ziwispKY!jNK6_pbo5S#JDZ+- zE7_0kwF-p4+SdJ*fd6pq{*MzdDWSO=d{x-1{DM#B$wzM1}@a z?0T;iC!OHym)7ygvugOsQz<_7!}hkU>vW_09fVN2^a@+^RRDp*wf{dxz^t1#Rx8E# zlv3B7F)w7?a_MA(Aup@iVP_a@x&Pfv+F{4mF1p)#S#eq=H(zoTZ|^m@;7&+{T^!{t z1=)-cN+_Y}(t}c(Y1W)Q#qN1|8=xlo9sh6wW`Aj&56%3Vl6-A$T_AYNM{8Lyt$;VW zp>Zo%qcrZi(6noSJv%!&x-P&y-&ue%{Cx2d*wzJ7LZQzCLN7tNI_Rz;H7~Akg+l6~ zqi5MYFTcbgBEdhDfVp4Wa*dMe2jzuk?bk1^;lg7>G=|~f?T~VEfJUUdbC`EGcM{NC z?zn0yC(SP5p4IT@O=I8l_`RTnM_>e%Qenfzr=$XD+QM5tJ&*CjA>j01^c%``u2hn1 zl#~t9bz^QO_1M6sr&hN7@!Ro<%FX-6mNQY}F2AWQ{LEREe0FI$9Z7hk3F4Wt-F+x# zv7xbtSUAqrXIApLbE`howA`k{jzF0MQ$uGp>hsOz|sf8A5n_C3Vp`(6$|`)e7>K6 znWJ<@y@!Rf3Rw9<_^1u)=vNke{jKj>!vl|a%cfT#jO&%+^QX)xGQPUJlA2PJcL$*@ z4$dfzO9k7T;%s`akNQ%B2d|$-RhgfA-+{(dFON zkA)tn%@Z)8hzWr|I4}dDt<(|ceSE%;D;MQ}XUNSwG7?+`uFL^?enXO{-yR^Dc95=O zUagNWE-UA_X?}LaVQ(BP7i>58zAd4pJHuNW`*E^azH)vQXU{L@sjaYT2c)eW_-y`c z*^O~{0Y=x>h=n@OwRwH2;o8CkQb-r9TrMNZH2&y7#rI6Yw5!-ED& z-h$9>J+9XDed(kClZpf`FhoxC?l@JQv$%lM78H<9DrN+sz$1uS@LE5l9T=r_VhNX5 zHiYTy9cIOGA-=e*jx`;E+g^adRE|`oMs<0WJ0^-{sVvk~_=)a~7b>YD%EiSs9SlwC z!FltXp66d=0!KK8fTa%(giz|)px-$4rjrAlS)Y5H22y}KP6eYy*TCl&v}C|Z6JENR1)z5$3IF*z%_}SagH3(Vf0N~`V

88MsvtoCWa8gQd*%>ZcMs) zKj5pFN6rx*o&X{A2kJ}BQ-5-PAt7(B;S}JESMmsDYiovAHbp4&3x0Z84RdOJ{ACwx z?a9S{IRY>bQsuk(zD{rm@Bqv~y z^n!ihGaOoL@ZTB>D)XZ^-4%Z87frSS1%ODBw3+ zU_)2VkH`b;d~^>O`99M1C5%sk0){M2uSwq*$yhZBP_>z?*mI~UzU^WJ%qE+mly?p#IuhAKib>N zF~NTVu|dVGT={%RbcKnbYXYGcf&$l<7XF&!0MB?;>?2^q56($R$JxBI-yZwm?~sfI zkztDkwSKzdW4ru#wyqf887esr4-y#4g3ONx@^!~kiqc{)=z0(k*#4C8lpaIQ4;&<8 zqktx&RzAp2I6^uC>5kZVG(kg|#@{;j-&cnMJ{n{GyHGBsoyEwcz)GQsGw4Rm4Czov0Gn#k z+Eilc5T!vM;iwEM+uH@2V@z7U)E#VG&jJ43So&bNS_thiUDwX|@~H*PD$`ILe$aC` z8Hl;8+da%JXP1z0AeK28{0Lyi5TQ`<3{Fp&OgxI6j^Q{-q@BgF(@57sI=O2lb67^s z(2iHF!(&Xv>sv@<$n+^8e7J$6=9_dna5o3!5R7 zA9kt_-B*R-Edx2saNl}_S%s)*r93#F$l&zQ+`53XwX^&r;Vr9B*~l0I^zPSxYu7LT z@-!Rs*mI|w2mQdq9%}#OBs{Em@RcDp?MZUe=^?H^wU{-%usfPt-En1ZGUU4ZzdLU3 z$i^%pyTT+R{bW;7ob2%a!%ARVNnAULbS*$3P*m5rRMl2t5X01yR8$pGT|W&g*-m1x z9bH73H?`Aq(!WR*{U%{2E&6x#kxoRhGcg=Hg_DWnSVf%t2AT%);N#fYIN9MAgd0IRI*wzYltKu_uSI@<9EOgz( z;|ri0CI|s4kYiKiqJTG0glk)bDksyp`cITj4WRjsIuj@xO@N+1tGaW)=;=-x7hJX= zM}W(ryMD%o$Jb|gWKDvTC!5@QW&yYv8hbKCGYVHXk){u6_;552mLti=hp_uvAu)hZ z5=SebzDlvDv6Wc3om6xSrrb^KltL!e*Ago8;aEeY)1d1blj=$-43^^Y7vS;w(RBl% zX$T<@LW5D)x^AGG9s)%nf)zD%?OcuWOb)pI8SlB#b^FXI;EUANb3zEJ9G_MalUX*5{gn`ryl;%O20aTzA5v&0# zi8k0mP{gRN@Kfl^qRCF`8mg$7+JL_>h;DfB_yYt>f(R8y(=;k-O7k&ZM+kD7Cud74 zZ&+&NyOIb%=o*2-5~}KF5^ml|#yiKfyI=S-V2vT5Z|#$rx^r)u5x0zE&YR`k7Y#-O zPdo77+i9L`OmopJFW))CkLHH~-GieUxcSu{=Kv??x`6BAwT4M{Y-jtL7tsPm*ivB# z6E`tPSty7nP(;>pa2y9vXqtv@dMFN+Qd$wj@Obn0_x)^C9;{L>(v>Lb;<`4;*f6$j zVHhTwu48)r6c+jEkD7Iv=#IyfH5i5iM!eQg-^vXgX}X5xxQm64ZOqa#;Bxmzin#h% zFTJ`TrW<*mJn^8$bhGGIijIy}9{GaqQmG&k?2yQz_Qv>(^8 z@+}Gk0^RiB@dYqUPrgo>Z%ZMiidQxW#-~Dky5dH^Lk$V?H#=G)O~E(^cLClFw%9#Fe&zZ z3Unjq6j2H#CAO8Nd3!UP*X*IUV}NWXMNfMN*;JZL%BH7lkW4DY;6ND1vT2xBf)MT` z@{^+j6)oLN@}3vAdr!FGlp;($Zzy@m*b0xnf1zZ|PVWC;f#CPuS4d4m3T@wD>6~l7%GJ02m_$q?+!vv*Z95y^c?CD00aZ%U zv2z{Lb@MtG`!qjBOG+YL2Pq}eb-Hc5+MoN6jGIl}`^2UMFm@6>DJbYps{OHZboU?C|8t#JAeG1saRG$l ztc#YD%@z~x8Kl3ng;=C_AJ`GmO%IxGSxxX>jJ~;2V7joVR$HsZg@@_sd3!ING9C=K(pch#yc%p@5v3`ef&=<)_AkY z!Z(_L(Y8MhA(C7UptcecgNpvHL3%ryiAH(}RZXRG%4`NYcI9S&rkA6RKM&L6LkKbP zoLuA@@t8V`j-JNCX;lOZy!`6PwdhFF!b8-`P+C!n;|Pj_W%PCR(c7ISo5>Ix9G-tj z0^a?}x$VdQaOV?`ZA@Hsa)TEyxs~BrRVKfFCrR1{ZFI>4NMO{pEuku;$i^kzZDD#l znu$jTkdA||Ajl~ny^-!cn@J}IshPHbin>{7h5pk^6Qs}xbwLTJ>9KuWVU?gI;;7iyN_S;(QU5HU#-;8 z_pMA)fueeH5UY7A-A3Y}z%% z11~4&4W|a3zL$S#H9zz?up3C-@P)6S>)Mm6);5NQhT~Ux{RK0MLZyT%Qj}MhTC=8< zx`%3YM6|`<+p*=!Q!3|u<(yJtz@8z+SAXBnlh;%dHU-Ii;xg;x&dH=hN9zDByIU9@ zjOJ!?`!K#=(77~QU1c!~8p>HPy%L|PBc-ChKT1n$Kaai^@w| z5(@n$0+3RY$yl_t^|E2-5I=u*knVxRL0X>(L{U-jPmYxTDm3MFYPMK5KR_m96OScHCsPy!eN3A(m26gGI}*pq zon?Mv8QRmK`+jnc4zEIONgeDr_Hvxd_riOm-#2WL_YnPN#T%d7$gOBew_T!Tw z{C*D=)gFq=O0aB5WOHi;Bl-NSojV){mP~=u8^-Eisoc7L4y?p=<-R$+<5;w}_wn|Y z2rHin)6o};I6cp=v|E4o6wt&Wv_4u^EI%>*qdmKKYKE~;2%&UMdvoO3`^tZ8{ppfF zq|@0gcdzQl0FIet;5P-YHKi#r_J==Ljfx0z|62d#AY6YuoY8PNrz7&=y<%o4j}}ZrVRwV=DLw*?{|}wYsGtS zd3uBK*H14grM|+$@zVmVZc1~^3_soEK)VNIa0~&bHo&6FLqHZFrNiLh5UErO*LBb| z!B9NI{m*yt%v+I&-TBPVtky@LCa3ko?f@T848u%G7j#W~{gefhd+*HOf8QCfUB5W@ zMJtnf=|7+CMFY;C9pKH~Nec2Rm7}$YyOj284Kvy=0T^Ddd4a^!R6W7zzLpGbmRf67>V%I>L z&23?}cMX!U$NI6Z!6el|zxd2Gm(RWL-n;rf80`I`X~rah+TiyYuZ_Ncq-)?}){Sr9 zKXY=~bDjPQ6o)J&@5(WiGD z9V(YkXOly>{OM=c{%-X9N4ir~CEM5C+9Xc9^r6+^lJn*T`Rv0T=#FGTiAJq&;)1qq zbI)tJ4C%KoUd)0iWdyt?m*2gLSjxg{>Qol_cF?5Z-Sc)rFzJ#TWNuf|^E;+|H zuH60DJ5zdl!x!7Ovv|#hraG0|8fSVu4w0SRVmO(e>IzRuAltU(z_Lf21@C<3%Y9BN z`n{FUbx~O$m=rR2;l1HQf*+A+GRwmHa?YGvOKG7GpQ&@o%xb1q6j55>C6dU}8%xnU zlwwnB7^$E&=4z&Co;^{W-@kX&r}pmccrPAL+?`IRugzxDXQxxcC&q^&i??oTUHrn! z+mG@110_~6&NZLD^dN#vm~WtR!xWv&HX5) zNMvj_H22dQ9;T@`MtdZI?MlA($lHA4?p6Ho>5bT~WOK(Lp-||Y@#_5JYdeeL!-;>B zQWh)eU|VUD!$Wkncd&MC6T9{#DJU*s*34>_pSNh2<_T^-u#OM9S=z}Cb=>&uI^*@z z=a=fcdeUs`vY1ypacW)H4Hngvu$uFQ3bL&$iYxaA z(>;ALiWfGVGG3i+9sQG)QdKC2Y-X59I7(|Uf?CNxevYdXgtKMSANz%ayp7cZ$l zX#2|t-U!n1*eBj`Gx7U=_H-MIrv!MWad6!Clv1QpHd{Ls^+5wo2%36hWNa6y6x%wZ zEUYi%vuDjAlE{n!4^R^f;JR*dyt-}6HUvt`W|HjO*~Ny&Uit>ID5;n=tDaL&orBM7 zAOyXpp*=QU9e>YG7?o;y78NIw% zQB{VPUsu#L@!PAwWp#IlxkJz!!8@hWFB$77IZ5{%010u_Ed3IfxOYYdg zQ?Ix7gg4#$?O3?$#nWfk98}M*-`L3&D__EKC7(HCHg|k%k-F!y`RU8&7QWTfvioyO zmMj^UfG=EjO4<iWuwF#O$rnCSZB<$tZaV$~B?+H={X zZ$`M}*boCTi`yS>=fzDCH`Te}>G12{zt2hbZC2{44a=qnFKmz08t=77s4XpIQGFRl zmHXAC0%1E=X4Bx{;H$CD*sH@zy|aAz@(H)OkH{V0xP0eFuKw}G9$#p?;VH!M1n~Gn zI4*Gz#kwX|mK1v@{Cn+(u@{Q+)4x|8s9(A{P*z;^>C?)2^6fCufxg!0#s_~E-}c1w zKr4_1c=gp+S5#G1-R|*t8nW5!mRKzIYCIl))pgys-VfmMb!-O zNPFm=ljf`2=Pz1#cY)75?#lCKOjz%SLI6P3@`o=7R8Rf6X6XKO*QS?xU%u^rnH}B= z3^I0(^xq<mxeW+? zjLoe5x5_0qJ&)IL3S3uZ|L|WIJ1ZYqO?i0*m!CKP@P+?>mj4F_y-JrEkw`ZH0000< KMNUMnLSTXb{s!v+ literal 0 HcmV?d00001 diff --git a/examples/examples/Misc/DBusExplorer/.project b/examples/examples/Misc/DBusExplorer/.project new file mode 100644 index 000000000..45f221c01 --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.project @@ -0,0 +1,14 @@ +# Gambas Project File 3.0 +# Compiled with Gambas 2.99.0 (r2272) +Title=Gambas DBus Explorer +Startup=FVersiongbXML +Icon=dbus64.png +Version=0.0.1 +Component=gb.gui +Component=gb.form +Component=gb.dbus +Component=gb.settings +Component=gb.form.mdi +Component=gb.xml +Authors="Fabien Bodard\nBenoît Minisini" +TabSize=2 diff --git a/examples/examples/Misc/DBusExplorer/.settings b/examples/examples/Misc/DBusExplorer/.settings new file mode 100644 index 000000000..139a7738c --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.settings @@ -0,0 +1,109 @@ +[Breakpoints] +Count=0 + +[DebugWindow] +Count=0 + +[DebugWindow/$xmlMyDoc] +Geometry=[0,0,210,210] + +[DebugWindow/$xmlMyDoc.Root] +Geometry=[350,29,210,210] + +[DebugWindow/$xmlMyDoc.Root.Attributes] +Geometry=[364,43,210,210] + +[DebugWindow/$xmlMyDoc.Root.Children] +Geometry=[702,60,210,210] + +[DebugWindow/$xmlMyDoc.Root.Children[0]] +Geometry=[612,36,210,210] + +[DebugWindow/$xmlMyDoc.Root.Children[0].Attributes] +Geometry=[730,88,210,210] + +[DebugWindow/$xmlMyDoc.Root.Children[1]] +Geometry=[716,74,433,364] + +[DebugWindow/$xmlMyDoc.Root.Children[1].Attributes] +Geometry=[730,88,229,225] + +[DebugWindow/DBus[Last.current.text]] +Geometry=[0,0,322,306] + +[DebugWindow/DBus[sApplication][sPath]] +Geometry=[0,0,210,210] + +[DebugWindow/Split($Value, "]")] +Geometry=[0,0,494,210] + +[DebugWindow/TreeView1] +ShowHidden=True +Geometry=[0,0,210,210] + +[DebugWindow/aConCat] +Geometry=[0,0,210,210] + +[DebugWindow/aa] +Geometry=[0,0,210,210] + +[DebugWindow/ars] +Geometry=[72,235,210,210] + +[DebugWindow/hApplication.Connection] +Geometry=[0,0,210,210] + +[DebugWindow/hApplication.Connection.Applications] +Geometry=[10,0,210,210] + +[DebugWindow/hInterface.Methods] +Geometry=[0,0,210,210] + +[DebugWindow/hInterface.Methods[0]] +Geometry=[10,0,210,210] + +[DebugWindow/hInterface.Properties] +Geometry=[0,0,210,210] + +[DebugWindow/hInterface.Properties[0]] +Geometry=[10,0,210,210] + +[DebugWindow/hInterface.Properties[0].Args] +Geometry=[228,185,210,210] + +[DebugWindow/hInterface.Properties[0].Args[0]] +Geometry=[360,0,210,210] + +[DebugWindow/hInterface.Signals] +Geometry=[0,0,210,210] + +[DebugWindow/hInterface.Signals[0]] +Geometry=[10,0,210,210] + +[DebugWindow/hInterface.Signals[2]] +Geometry=[10,0,210,210] + +[DebugWindow/hNode.Children] +Geometry=[0,0,210,210] + +[DebugWindow/tblV[0, 0]] +Geometry=[0,0,210,210] + +[DebugWindow/xmlDoc] +Geometry=[0,0,210,210] + +[FFind] +SearchIn="Module" +CaseSensitive=False +SearchWord=False +SearchComment=False +SearchString=True + +[OpenFile] +File[1]="/home/benoit/gambas/3.0/link/share/gambas3/examples/Misc/DBusExplorer/.src/FVersiongbXML.form" +File[2]="/home/benoit/gambas/3.0/link/share/gambas3/examples/Misc/DBusExplorer/.src/FVersiongbXML.class:74.0" +Count=2 + +[Watches] +Count=0 + diff --git a/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class new file mode 100644 index 000000000..0e5de073e --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.class @@ -0,0 +1,230 @@ +' Gambas class file + +Private $ColArgs As New Collection +Private $colTypes As New Collection + +Public Sub _new() + + $colTypes["i"] = "Interger" + $colTypes["u"] = "Interger" + $colTypes["s"] = "Interger" + $colTypes["b"] = "Boolean" + $colTypes["y"] = "Byte" + $colTypes["ay"] = "Byte[]" + $colTypes["ai"] = "Integer[]" + $colTypes["as"] = "String[]" + $colTypes["v"] = "Variant" + $colTypes["av"] = "Variant[]" +End + +Public Sub Form_Open() + Me.Raise + btnRefresh_Click + +End + + + +Public Sub ShowPathContent(sPath As String, sBus As String, sApplication As String) + Dim xmlDoc As New XmlDocument + Dim sInterface, sFullDbusPath, s, sAppPath As String + Dim hattr, hattr2, hNode, hNode2 As XmlNode + Dim i, j, k As Integer + Dim aArgs As New String[] + Dim sArgs As String + 'Dim haArgs As New Object[] + + Try xmlDoc.FromString(DBus[sBus & sApplication]._introspect(sPath)) + + If Error Then Return + + For i = 0 To xmlDoc.Root.Children.Count - 1 + hNode = xmlDoc.Root.Children[i] + If hNode.Name = "interface" Then + For Each hattr In hNode.Attributes + sFullDbusPath = [sBus, sApplication, sPath, CStr(hattr.Value)].Join("|") + If Not tvDbus.Exist(sBus & "|" & sApplication & "|" & sPath) Then + tvDbus.Add(sFullDbusPath, hattr.Value) + Else + tvDbus.Add(sFullDbusPath, hattr.Value,, sBus & "|" & sApplication & "|" & sPath) + Endif + + For j = 0 To hNode.Children.Count - 1 + hNode2 = hNode.Children[j] + If hNode2.Name = "method" Or hNode2.Name = "property" Or hNode2.Name = "signal" Then + For Each hattr In hNode2.Attributes + Break + Next + Try tvDbus.Add(sFullDbusPath & "|" & hattr.Value, hattr.Value, Picture[hNode2.Name & ".png"], sFullDbusPath) + If Error Then Continue + For k = 0 To hNode2.Children.Count - 1 + If hNode2.Children[k].Name = "arg" Then + + For Each hattr2 In hNode2.Children[k].Attributes + + aArgs.Add(hattr2.Name & "=" & hattr2.Value) + + Next + + $ColArgs[sFullDbusPath & "|" & hattr.Value] &= aArgs.Join() + + If k < hNode2.Children.Count - 2 Then $ColArgs[sFullDbusPath & "|" & hattr.Value] &= "|" + aArgs.Clear + Endif + Next + + + Endif + + Next + Next + Endif + Next + + + For Each s In DBus[sApplication][sPath].Children + sAppPath = [sBus, sApplication, sPath].join("|") + + If tvDbus.Exist(sAppPath) Then + tvDbus.Add(sAppPath &/ s, s,, sAppPath) + Else + tvDbus.Add(sAppPath &/ s, s) + Endif + tvDbus.Add(sAppPath &/ s & "|child", "child",, sAppPath &/ s) + tvDbus[sAppPath &/ s].Picture = Picture["icon:/medium/directory"] + + Next + + + Catch + Print Error.Text +End + + + + +Public Sub lstb_activate() + tvDbus.Clear + $ColArgs.Clear + ShowPathContent("/", Last.Tag & "://", Last.current.text) + +End + +Public Sub tvDbus_Expand() + Dim ars As String[] + If Not tvDbus.Exist(tvDbus.item.Key & "|" & "child") Then Return + tvDbus.Remove(tvDbus.item.Key & "|" & "child") + ars = Split(tvDbus.Item.Key, "|") + ShowPathContent(ars[2], ars[0], ars[1]) + +End + +Public Sub btnRefresh_Click() + + lstbSystem.Clear + lstbSession.Clear + $ColArgs.Clear + tvDbus.Clear + lstbSession.List = DBus.Session.Applications + lstbSystem.List = DBus.System.Applications + +End + + +Public Sub lstb_DblClick() + + Try Print DBus[Last.current.text]._Introspect("/") + +End + + +Public Function MakeSignature(sKey As String) As String + Dim ars As String[] + Dim ars2 As New String[] + Dim sValue, s, t, sOut As String + ars = Split(skey, "|") + If Not $ColArgs.Exist(skey) Then Return + + + + For Each s In Split($ColArgs[sKey], "|") + + If InStr(s, "=in") Then + sValue &= "Value As " + For Each t In Split(s) + If Scan(t, "*=*")[0] = "type" Then + s = Scan(t, "*=*")[1] + If $colTypes.Exist(s) Then + sValue &= $colTypes[s] + Else + sValue &= s + Endif + Endif + + Next + ars2.Add(sValue) + sValue = "" + Else + For Each t In Split(s) + If Scan(t, "*=*")[0] = "type" Then + s = Scan(t, "*=*")[1] + If $colTypes.Exist(s) Then + sOut &= $colTypes[s] + Else + sOut &= s + Endif + Endif + + Next + sOut = " As " & sOut + Endif + + + Next + sValue = ars[ars.Max] & "(" & ars2.Join(", ") & ")" & sOut + + Return sValue + +End + + +Public Sub tvDbus_Select() + + MakeSignature(Last.item.key) + +End + + + +Public Sub tvDbus_MouseMove() + Dim s As String + Dim ix, iy As Integer + Dim hcont As Object + If Not tvDbus.Find(Mouse.x, Mouse.y) Then + + s = MakeSignature(tvDbus.item.key) + + If IsNull(s) Then + lblsignature.Visible = False + Return + Endif + hcont = tvDbus.Parent + ix = tvDbus.Item.X + tvDbus.Item.w / 2 + iy = tvDbus.Item.Y + + + lblsignature.Text = s + lblsignature.Left = Min(iX, tvDbus.Width - lblsignature.Width) + lblsignature.Y = iY + lblsignature.Visible = True + lblsignature.Refresh + Else + lblsignature.Visible = False + Endif +End + +Public Sub tvDbus_Leave() + + lblsignature.Visible = False + +End diff --git a/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.form b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.form new file mode 100644 index 000000000..4ab24c29a --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.src/FVersiongbXML.form @@ -0,0 +1,105 @@ +# Gambas Form File 3.0 + +{ Form Form + MoveScaled(0,0,107,84) + Text = ("Gambas DBus Explorer - gb.xml version") + Icon = Picture["dbus64.png"] + Arrangement = Arrange.Vertical + { Panel1 Panel + MoveScaled(3,0,83,4) + Arrangement = Arrange.Horizontal + { btnRefresh ToolButton + MoveScaled(0,0,4,4) + AutoResize = True + Text = ("Refresh") + Picture = Picture["icon:/small/refresh"] + } + { HBox1 HBox + MoveScaled(11,0,52,3) + { Separator1 Separator + MoveScaled(2,0,2,3) + } + { Label4 Label + MoveScaled(7,0,9,3) + Text = ("Legend:") + } + { PictureBox1 PictureBox + MoveScaled(11,0,3,3) + Picture = Picture["method.png"] + Alignment = Align.Center + } + { Label1 Label + MoveScaled(14,0,9,3) + Text = ("Method") + } + { PictureBox2 PictureBox + MoveScaled(23,0,3,3) + Picture = Picture["property.png"] + Alignment = Align.Center + } + { Label2 Label + MoveScaled(28,0,10,3) + Text = ("Property") + } + { PictureBox3 PictureBox + MoveScaled(37,0,3,3) + Picture = Picture["signal.png"] + Alignment = Align.Center + } + { Label3 Label + MoveScaled(41,0,6,3) + Text = ("Signal") + } + } + } + { Separator2 Separator + MoveScaled(20,5,18,0) + } + { HSplit1 HSplit + MoveScaled(0,8,102,74) + Expand = True + { TabStrip3 TabStrip + MoveScaled(2,8,39,57) + Arrangement = Arrange.Fill + Count = 2 + Index = 0 + Text = ("Session") + { lstbSession ListBox lstb + Name = "lstbSession" + MoveScaled(2,1,30,51) + Tag = "session" + Expand = True + } + Index = 1 + Text = ("System") + { lstbSystem ListBox lstb + Name = "lstbSystem" + MoveScaled(3,1,30,50) + Tag = "system" + Expand = True + } + Index = 0 + } + { VBox1 HBox + MoveScaled(43,5,54,65) + Expand = True + { Separator3 Separator + MoveScaled(2,19,0,5) + } + { tvDbus TreeView + MoveScaled(5,6,45,53) + Expand = True + Border = False + } + { lblsignature Label + MoveScaled(0,0,22,3) + Visible = False + Background = Color.LightBackground + Ignore = True + AutoResize = True + Text = ("Label5") + Border = Border.Plain + } + } + } +} diff --git a/examples/examples/Misc/DBusExplorer/.startup b/examples/examples/Misc/DBusExplorer/.startup new file mode 100644 index 000000000..5bb5e7619 --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/.startup @@ -0,0 +1,13 @@ +FVersiongbXML +Gambas DBus Explorer +0 +0 +0.0.1 + +gb.gui +gb.form +gb.dbus +gb.settings +gb.form.mdi +gb.xml + diff --git a/examples/examples/Misc/DBusExplorer/Text1 b/examples/examples/Misc/DBusExplorer/Text1 new file mode 100644 index 000000000..43e68b0a8 --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/Text1 @@ -0,0 +1,88 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/examples/examples/Misc/DBusExplorer/Text2 b/examples/examples/Misc/DBusExplorer/Text2 new file mode 100644 index 000000000..8c7cbf2cc --- /dev/null +++ b/examples/examples/Misc/DBusExplorer/Text2 @@ -0,0 +1,51 @@ +Connected to D-Bus. + +Received reply from :1.2 + Arguments: " " + Connected to D-Bus. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + " \ No newline at end of file diff --git a/examples/examples/Misc/DBusExplorer/dbus22.png b/examples/examples/Misc/DBusExplorer/dbus22.png new file mode 100644 index 0000000000000000000000000000000000000000..9253a28e9b64ec0917077192fdfd6c114c4967bd GIT binary patch literal 1144 zcmV-;1c&>HP)uf28amn++FrK2!hgfh3`BnA|j zo<@xlH71gnm>Bd2V@x#B|3QB+Bt(DG#2BL{#%M75%jv>!LI`6O*c{(RDbT^T_S$ak z^{#il`U_OYxA^+;o%j2Z_veSt+tq9~`M*(BRRBgLNqR*Pgza9hHw<{|^?FX%_4h|d zN7FZZUH5`jRrLTvfk5D8K@fI|qSzga#bRw8;qY9chSO{kkwn&pCFailohz5iukPBl zYXU&H1#$rce!u@kK@dh|S?-o)S#A$Uq8ZI(GPA@~`XaNr61L;C=DI=>2VURNQ#*6| z05H_rSXI>?Ns>PH`~4%)XfzUvL}QoB7E_nJSwI>t`9ZIEAebd(}?Em8&(^pPo+Kqcc9=8j*-A~Z(rBtnRXg0^bojbY~78YIt z_6xya@bmu7slJbXo#D`Ijz~}>F1L}01$lTw7hg}DBUh}hLVKcZyt#WbBO5yj1$=y_ zPV>!?^DNeyE^t)8a_*75VyB~E1W^ozc@s;X``;FNU}fMjQA6$So!)ZDgmP0BYWjMKp;q@^RAur{kme(|`Xc)$EUDrQU z6eZWXZby$EO(*)d4!-l{1WPNm7AUygJkS$nc>NlNlWRyuMOI2htxzZwOw+t>+xD1Y z7(W816h&#hr3H_VkM9hHLf<9&`g_LDT*tH;Z0PKuFBYJ>Tq@=B`TPxNqE@T@0HhT~ zx$8k$b&to!#)c$G`o!n+^#GP-StZ-HkLkMpJ#bu66#H(_t@#IXG|GP~N9Pv+0000< KMNUMnLSTZd`X65a literal 0 HcmV?d00001 diff --git a/examples/examples/Misc/DBusExplorer/dbus64.png b/examples/examples/Misc/DBusExplorer/dbus64.png new file mode 100644 index 0000000000000000000000000000000000000000..8de0df3d98eec6f52d8f24024bbaba2430956608 GIT binary patch literal 4365 zcmV+o5%TVdP)Zb%q(YOH$)IfqZHqfRv(%P}7_NnZ|9(%k< zn#~^1CQ;HXS|~0ODeg-jE_q2xq*lst`UeCN_nvd^xqp7=JKuJw$!4?se}E983pfGX z0~`bn06HK71b|-x&&jfUZadG>{I(J%glGniqmXn0*uBB7mw@MhXJuKQ-t2RKYX}oU z)C2cZAn4G_HWrHohr>Z#T^+TxwMddgI-MpOjWRnsOCS)S=zW)gugJ3e%4X*AsU=JZ zVFW%)fuJEkTim9$wibuOq5kRh`ZdRl$K%Y-&T{+qZNlL&KpOalEX&VqbY7nt!h{f7 zV2}bq_X5V^HU@(Mr_-qtWHcJfjI=&7nG6>%USxiLK7Z*cS(g89BYl6Pgb5+KDG>BI zpuYINPN&0ex2pu1&E|?@h2u$X`IlLYBv_2ZS&SxFiX`Z0uyFU@Cd|fC>C0xbT)A?E z8#iv`FFh^G^0(HT^CwD}5Tb(uK_`Ib;`@>$VYAs(f~;068jYsxScz1ci#Pm?Ow2Rt z@pAcgkW7Vl(MlTnIvTk5Kr>$&a#N!#tZa|R!}aUe0kXg`S(Z<)^$t5qm=K}?_&f!I z_Le+cqfr&L)9J)!vmr@R*|9R&ELUcNj7)eLnV9F|4L^xgded|2X?OC2KfDJ^k;GlN zaDlnGIe-s=!?G-=D)p}_VL}Kqa14c<<3Jx!A|iElbtQ^gr_)s&Z)zc=5agNX?BoLB zSh6bfbi1tl!`D8G%VGi`kw|d*^l8%RG{B>>EWcE#@3sgNLKuL%DM-)}phQ_1jm8p! zYHDgKjyJy)Wz^$kWWvj+XP$*nY|C?74^8#8Jon89FzS`%dFj$6Zr!>C@PaJMk5}rq zDZ+#h63|b9p!A{URBgir<2;++A8OOjNwlUXd5ii$d(N^@b_ zmy;kbS7$0K>Q4gCzdx=LX0zF-si`3zj~h?~p{zk$kuV{I9(WS?Hqey6uF+_)TCJ)* zR9|1erlS7%Rv;%qUM}A7kxXZ{{DRfSq&LLK#5_ZtjQ}_t4rXR%Kv_K-Crk)&5AX~* z_d}=C(bUw0%jLpux38(FJ>Df%g3eBQS&moSa6T1y;e!d4FuUDeOjud0dUGMf-M}zl z(&=<`b#>9!)>cu9<`yHW1dVvS_`^G=sCNP%jL(zGWY9?x4u`63dW8@TvMevGY+pi{ z5Mm$j5@4#YucxoCuk5aNVcN%Q7jG~!;pL|PlU3B!Ml6};(#-(99ZpOp6DE_1Xf&!p zu^<0)WqXw{Aw(l^3TQByO!W8nV=x%hhRJk>;SX=}^Y_NNIurZ^UZr|4>a{q{M&=fy zq%x~@=!nNlZ-*05^jOZkI6)=Cgb+0-lGUZx>lqjrP|3<2mHamlE7lUpWhuR$IwGtoQ^z+T1zDX)mx-*Y?y!`3?2Z2?DtsXn~|6$;WBuVu5 z_p7#3CY$B^FP`P)b5q-T0fSCUDxImW386vp{&FApHQN|)yBO+p(Z9PvHAstbsLjEB z2Y2ztrCTM}Kf38BmP}*RYm4>RULi!s${=H&u&)BNw6tKe*?{elrPoSyx7r!(Y|MSb zcCuM`{iB;a^^4I>k5?91=-=JIV@Em}aJ#5C8P@Lu47y#b2ur3jT$uK8q^l8w!GPIp z&d1A606#5ms}n-lP$Z1z=0fn`nb$9Em@G-7VPA7SL!B-L+%Eb$%74QT_I7Z7+Q*Bd zlN%a$Egals=jlH_id4Z!u7p9itL*hr&pb!E3g$(Qu;Z*G40sHvsi~>KZnp!9q@Oy! zcDQ>_gN4CPMMoUo<0|p~*TUz!TdP7?hts@ivH;qhW?U8%-cYpU`lzR1K{%bxe4K2R z9@CLqj?K-@s!MZiCRow&ef&rlU%PKVPV?5HojvVN^jc}#7XRhjfi3qPaJzW*La9Jp zoe2_(C9xP4Us$8jkj-XWgb;VgvixzrodoO$h1ERXzB*g>LBBib=G!NGw@el&Tl}Fm z$NCL(&`KJtCIcg$9eUgsgZfjV~N$+84%XP&W55k9SMYZ?u{)8CLtlqZ5Vkip-18 z<-%IZoPis_{%AC+CK(*&@`R0fynOZEeOsDjF}mCA81-6W$u!j_P)xlO*~&8hCGfj#tm$C`-n=(7^0sgxi5-cG>IJZJtbLxOhW} z#l7(UM8$Ta9xq?$X-BKoQeR(BAP@j$S*nD63_QBHxTtojBw@vl>UJ^UcJbc$+}6kf z)yg07czLu8VVP`}t2040~CBOWhf9xtISBu$F-Sl%uLjtU_RvMeWb zz?(oSnM~?Jp%7N96?dZ*dtD8IGS2p>$IG7_JGiBnD@L$Nj{NLmghzjPO4W(g7%#uf zZ8jTPt(J5;Z9=IE`n8k`_P-C{_xl0GnXTkPe7MDYU@>CJG_P#ap$Bl9YtZJ5?P`#f z$4G87(P%WPZ%xh~%WLmpC=dpUjwuI4dHT!VTMLkcvdp0U` zlEm>tZT!)({oK8`Y5fkHK(V<}WL}(rLbPHS_+Bs=RQ1?U1;RjCmX##17*h)&Rq2jR zdRHf6w-N0b>QwyKXfmxD!PUa3$4eIF`z#{th!Db(C+rLmO{deQU@(Z?ZfBRhj^_GW zW)~x?27GC3lHdDGCk>WT^J9J~swQDaJ>FHWi=@%eXf@)rn3(h~Z8<^GR9~yQNN29i zR&_Z71eW7?=9lPfv|_PX(ChUilSv(LOa~y#azY4k8ju5lfVw*jcDi`^>}p*TSdQ~I z|Nbry_O@d+>2pOPW#aoqK|X-G8Xd>(XvJKkqo>`$sdLjTMiZNQ8Lgz@z5^`)c)TGd zy=C*Q+r};bGM$Y|F^t`A&zDBsS8Rc<(qomDokpWX3x4!J7kKIyqx{#1r+hMG#gYrf zlDu+uicl;`twF~_hj&+W!zy9W?ZRr(6HBH!bFF-kpc)9r3+ki3UiG2xSVh?4;$pri zqatD3i8P1fNnSoX#bPvpNw4Lh{tg@)jD9p)O=_g$-RpBzUy3F3EYi1ib*f=}u$Zth zAehNy2nLmCh0|(?vM)PK2HtP9IE+GQo^ZD{0ua*!d%ksxUh?#6Q+Y$%_aJdxY zaDR(!TQT(YkV~XC$?REqY_7%e3fk1$GJPr^C zUMLp{d_CVVk3n~1nP%06R+4b7K^8!Lt%0tl>f{wF;X5b$7}!(L+eOm#vMkHNa)b>7 zgu`JH3B?NU?Qp6hx>E>76nA7j?Bpi&7hmY%u_K*@IR%6HdNEMWC$Wl!TrI(MDD0M- zO^t088;Q{$-qTR^=hhl@eCvz7{J}kis`yAG!nt$j@+QUmz{^mEupBlV?x`l$%K|0S z87|$bo-XZdwDRP`{rvZnC;9SSUF!8jBEi_$Sl*l%2Og1SIS!R;T!(=_FD7ir?cyiD z`nW>#>fr3u0-0=9Edj`6vs|BDR4W|MPcLlS9cpu!8R~TLz@2UM?_Mpf@pzo`=g$+3 zMgbOpld>$UhmtB0_6CrRMx&Z&G>XY&DoKs)6vDA2KYr~)+8uR_dc2HHF0i!8XvRu7 z%tnUXE(SYY47pu2)t4`W&tx*(ym^!H@o`eA6hIV3vaS`kt5~Nmgg6KEb$55u+S&@h z-~PwDymfh|Z2KLhezKmf1T%iP>to+yBifUnE4d}d{z zwd(YTfxbW>pc3}@k*-gkuyx2%y@8wr-O*~VSk;rsWLR8W#P9dx^Z8g>T4II3%mM!h z{7{zVvMHza2>b3zztZip;_>cmq+l&b8V&nfY^ntHuJ8tmktdS7ndEl|u)>gW^y8$J_@Rg@u+tGUb z28)qFcOyf&g1xoerFcB9N|4|0Cl*^ZuOx~cl_%(3S(dlFldMPBBfyJVt(K!lkE)f` zH~nG0^Ru^^39e3%Yz1bcp2K?@7|M~fR^~mGN|g|_yu7@!NftPd;^GYhZ_2V3KfWHK2Z*S+ofdeH+{FJPA zkTch2xpF&*(_*CAR!d9n&)sOnTvJ(5hr{8Lovg?n%3~2Fe4Z!h(q><@TG;RbQz69P z1K$H^Y;2^br>Ek9t@RL##Z-cPKA##DDQ*J1O+kuAWm(=i7h@CH?1|j31OE(Y&1N&Z zcI~3Mxp~cF$)Lomb2BEB z39VL3CX*o&iLku9tSag<_=o~Qzm{cr^Sj4y09!gFpZooZCs1nqyEoWviUL8e%d))l zxw0L=wtt2}2+@y1-0uK(lrr`da0R7)_6&-m9^c+nKOOi#0xv-hZ+P|)00000NkvXX Hu0mjf+s$vY literal 0 HcmV?d00001 diff --git a/examples/examples/Misc/DBusExplorer/method.png b/examples/examples/Misc/DBusExplorer/method.png new file mode 100644 index 0000000000000000000000000000000000000000..d92a9303b97613806e6e83f79664c7844c7494e0 GIT binary patch literal 636 zcmV-?0)zdDP)e zSad^gZEa<4bO1wgWnpw>WFU8GbZ8()Nlj2!fese{00HDlL_t(I%eB)zYgAzr1mNes zceB~uWaC#%8VMLoWf^Q#M6vb{Sf)rN*a^0Rwl*T-f3UDoL>oo1P#eJyFojA;)I^ir z4SP3x_ukh+4F*vJaSo?C%rJ*x_(vqay}U7H!a<{=;HAX-zmvS-xThW^ACj`#uf}F< z#<4h7He%y(8q*Vhc5vCe1FnYYkk+PZCL5Ec!juUUIyzo^T`XHZvzcsO`$4H}k`zQo3Z&K-)9!Zvnoha|*Hu4QCRxDbyYE>>bV#JW4!%0l`{p?^`A<-eW zqhh_#9qU@&vFt_t1!!t&Y5C}*LXjAl!D40Wff5^7qpX*DwVqG4Px_&6t+A#SYBHH6 zOR_u@yRrP)!2(LT;0xtYDNl3l*w)K>T6@$D&a9uJkOS}2J9sK^RMr=X5126BaSKS=2o{h1}R-r|%f z)khcE_uar}xpi~q-2PSIo5*vsZebtxD+C!j23qb~ciIJa{;o{(c4B6$TGy@nANUG) Ww8}M#EG0000e zSad^gZEa<4bO1wgWnpw>WFU8GbZ8()Nlj2!fese{00JmUL_t(I%e9lcYZOr!#eetC z%mv{lPj~n}ew^YQ_(zGI4wLs5C#`|OX<4cuvboj9nbA+X0*uTp zoOOmL=Ix=e6YlVs$PW%+zLy#L?sH-ndNToJajAYIqW7YmF}l-WO8 zVzh+l!twV$&zz6y+M9#coj(AT^A}GcSP)WLwzMd@4hJfdqh&ZIzyPnxSdX>5ovtP; z%ZHq$UjRm%c?_0ODMBSUCZ!-?kAQKY1h_z>h_&Hx3pfoR0m`-dh%kD_#1SS8Q9+kD z=+cQ&wiIjvTR;Tl1URUZ)uoMn{RyUwRzml>sK6)j+xXi}zO1!*>*io@mWnO#G^}?Z z2_s>`pbD)01Za%GgaO)ble#Y5OqQ>iEJ>_sP7IMNxkB8_9B zAfV@Y1YVoSYoXe$rO#Ju3%~bZ7I=Zy8Qt|jD@+=rqL8%fA>16oaxhvYD0Tg>O)S^y z7l8YK0|MbV2se++6%d&$K!OmLw(ib9+_B2#TKx!c6FB!B1W1_(X)PMTT<6Jy*Si{1 mxmK?L)gQLedHSfu|IjyVO7XdBaz_B)_woi?D@I$%isV1gB`mVnK~F# z7P3FVC-V`}O~J zQ?dVtTW`iUU*dv>I?^bRJijfVR8XM;|9()v~bol!J^$kw* zCI0P?JMqEZO=gXysO6pnu-6;TI&|K(;hB8jhrQ^&!Jm5T)`#_b1R{#9n57zCGIA)0 zFqbh;{uEi;_WM6S^W3}aSI(UMAbB^fgc%fW4Rg=%7~U6>_*b_g`N#YN=Ra_+(CcJm z2Wy-%rJ{4pr5)z{R3QjR~Fzl9RV3A