From 972abbfad5c74bc1653f32b9d354194e7735d517 Mon Sep 17 00:00:00 2001 From: Jannes Konarski Date: Mon, 17 Jun 2024 16:07:25 +0200 Subject: [PATCH] added choice selection --- assets/playbutton.jpg | Bin 7167 -> 7154 bytes .../instance/addChoices.st | 7 +++++++ .../instance/addTypeOption.st | 17 ++++++++++++++--- .../instance/initialize.st | 2 +- .../methodProperties.json | 5 +++-- .../TCUChatPollEditor.class/properties.json | 5 ++++- .../TCUChoice.class/README.md | 0 .../class/newFor.isExclusive..st | 9 +++++++++ .../instance/addSelectionMorph.st | 10 ++++++++++ .../TCUChoice.class/instance/addTextMorph.st | 15 +++++++++++++++ .../TCUChoice.class/instance/content..st | 4 ++++ .../TCUChoice.class/instance/content.st | 4 ++++ .../TCUChoice.class/instance/initialize.st | 12 ++++++++++++ .../TCUChoice.class/instance/isExclusive..st | 4 ++++ .../TCUChoice.class/instance/isExclusive.st | 4 ++++ .../TCUChoice.class/instance/isSelected..st | 4 ++++ .../TCUChoice.class/instance/isSelected.st | 4 ++++ .../instance/selectionMorph..st | 4 ++++ .../instance/selectionMorph.st | 4 ++++ .../TCUChoice.class/instance/updateChoice.st | 8 ++++++++ .../TCUChoice.class/methodProperties.json | 16 ++++++++++++++++ .../TCUChoice.class/properties.json | 17 +++++++++++++++++ 22 files changed, 148 insertions(+), 7 deletions(-) create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addChoices.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/README.md create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/class/newFor.isExclusive..st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/content..st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/content.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive..st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected..st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph..st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/instance/updateChoice.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/properties.json diff --git a/assets/playbutton.jpg b/assets/playbutton.jpg index 0b5f90e5faf372f97e93b6f495b45442bc499694..d1b6ad996481a21d6216432b29c53909be5d178d 100644 GIT binary patch literal 7154 zcmdT|2UHUYx1JD40I3=jSV#~Mk)jcT(ujDJZ=pZ=zdVcURs2op;`QlXKx@GMUV6-*@lFe99aE1PpNoH~<0x z00{U3n9l)yfD;CT!#FtMa5xtiCpQm*muJly9+9={_z~iwD5SWkn3#n0*3A-<3Q}TX zvOBjZptoZ%7}RDpEmbAWt;!fB)=eN>TwFYBc!YU*g_SmnZB+W#2eTFsbRto&8CD7ouYBCm&Ocknr6B7$+I7GEcie2?03ih@T(8tfkMFKK?MOFU~Wt{ zoeb?L@lc(~7X@U~!+~GKWm8Z8@15fYpNA*PR!PeP7Y?*ZJASmauyTV!!-00YcPaxdTCzndIbtd+p z7G3TpHff{uqV6k`9zdDEdEhveNYG&dT=#-f78X**=X^2?BPz9rQOCWR01?gvxPkGk zJnOTB)E6fc@{4q4XmcdGb-wD>{C5QJ%4x&uJ7ou#OxS0W)U6_2g3)TJ9H}$6q~JGd3{JnM3n6=96ts^!6Hl`HuV&@9ycjy0$|H;sHEl2C9Fw> z#UV^}IY1M6ii~w6nqq;CPaqb*0nw%vsy*~5tli1Q_4W$+J^8>{zaz^zc7JNaUC&&e89BiV5_K4a&+O!O!?82 zZc;q@0SSJ><7mF4E)VXcJ zjDe5HE`dzHBAE*_ExouaQ#jL9S9C`Oqu4nJc1z8aCavuVe!KX9__YR)vZ?!Xf{$um z1%;=yyj=_*qG!Mh-IEn*r8tZ5NvG>G;iTvqo+%QW2eFbX7A-->9(50t>7I$qaWBpix!|qsPH|b))HuWJDl648z;NU(*$}u=0UZSZM*KcXcFMX;%%cF@lNbrF%4sTn0#1GYClFyh%x?qITyQrN#|(qn4#9RFR<%>>YXsQ}p2 zTR(^H8M4GG5&?X_S9%qP!~?Zp4NB+Fv|iX4!35~|rzY(7o2C_rV)na#I@~2KvRg|E z)qjF6|70Y7Z&80QOp6BqO~-hVId5+OM|W`sUTo7YdE`|1`}# z?&G3%k1``QpQRH)@*~;qbG5@F%)WtYtTvwDH$-cJY#;zay1SLs4%d+=#b}4R{L&S-kMtP-?iJOF10#_hzJ<&R`Hz}KkMA{6?+HSD;a$JW__7)822T^3 zF0zVp#A>N2QD_1HR@9Mq%EoRN3=j#|{2c7mw`PY~U($$>u3xT>S|G{IN}@fl1T+() zBR>IC645FWK!EthVlhhX42yhu_zi!I28+%f$Ylb~^d?n@4FvzoN;>CBVKw^$jC_QK z?KgLm?x`$?br-YaTQ5?x-Y+C|>N*9H0s0oV^y|T2wFX~^;nag8>$mu7(Sn@cs93z% zGplklo8FsX?&8c3J6W9hQpdq?^0dz4h8ZTXG^CU7AfXiJC}MpuHX>vXzrr}yyD#(H zaE!A1Io#?#o$7k9a^i#HyPOG-}ilH9HKzl%%=!uiqctNivZvcdo3+|>i zAXk87APayTx;J{<7GnbQ!RHIz!hQ;{(BDy$`LxgN(}jHdA4P^yR-ZV$-zl;JGaj_p z%`M$^IV607A=$rJLCFtK%G-X!VfD>GU~pNV+ut<}l!o~tI60!Il}k&cRZmn;VF!@Y z+ZRwk;g9nbI2+I_rWC+ylTKDOBGg|ax+yg#CYt^-i&7$0%8Lo;N(9SyL*!2J@g6*q zEK*vdsFH2x5z`KRP0E_o6~hW?jl}(uq7&o02FC;*8snCbvm9vF!1Nd6Y^kHWfj#O_ zr+%YLQ;oajS;Esr{)N*z(L!131nAVxR$YM zq2#BSK7Wr;yo}U*?+WRrj|E>j0y1*rZJAUAvWt*3Zz2NA8L^NzWkcbzIRbx!L=bwy9|hIT%g?~B>M+Wp#tEZ; z!YwoPyy%isl9fl%mKXFW>14HI<_~q>CGJ(#GJ24*%HFFescBYXb_*{#)iTUZ$hI`X z?=9{=^xPYHz|Vki(V>Z~*&p83eR@sXHYLHg&q?hTDBsn==ZjX>YCyOn3!{EBp>ZVa zTH93Q^>^o~3_g$6aoSm!uitU3PTlF@kKFEP4dQRZ_(n1~*X@t8rKOXV?`pZ_i+-k> zF9uq#K#lelDJMp?6T|3$3_jnhS`|{MxREh2ozjcyA#3*i_hRxnnpiI{j#${4?0DJc z>Fwh)v#DGcyn@;fX?e7((2ouD9=}z}eJ7a9lAfpAvNFcV9m>6wN_`5uPo6rgGmcu3 zPl2MI#IWl3kC~!sO)csJTLlv+EM@|!ivE+t&EyNO_zasD3X+(>aIQg6CzWU#J-!DV zc&@a`{aS9yMOw18GvKVh3&t-*v1z8bQ6c-8K;$8%g}o-woSd51wM@W}E*GDDY_3h_ zLl@7DRKMn-3=?=LU#z*4TBN}kRy_;E9}~z|22Xb*eb_e21ZEpZwlx-Cf>Fkwt~G>g z1}yik8g}jtHSpcq;cwlnzy$OdSkHvQ&_We7t>Dr$g0;fd_!xi%`>AS6e zGjMW`j%1+LcvQuM@|u+PiW`)ed&F&2pDf+lT4A<7mj|m%gvR=zmmW{W<@!dyCas)} z8nriRKC<=y%LqCA6{ZhQs#P@Kpys#<*vT~B$y7Zb^1&onqYpK31tXSr6sSqSXzoGGy?>c9KTYjmweZu_w`Q>2QldH ztwoay{c~#Gzfh1EaWt;bY09EPDe(p)?zf{e;>x$amF@(&_cvhs^8Y%U=Rb`vd*~{; z#FQm#*bE1aY8N!$B2BIommrP#uw}G_jbuA z)744d{CxXblohkrWe(2QOm}!Zg0!^IJ^Dj=&^WzGd-;Md28Q zJtC{CE4o}i7K|vNmvd_ zikMxg=>1vU?D9ZFNFBTi@Vl-ig0QLy!+V0uZLBTst6fHHu9TveKN{sKf6Vh^cqyW5wIhN&Iw;-t-0Ide?m+lk?e^MhUOMzE`kd0uxPS6^uAiam`*k zN6So7vOj!!=K^1F$p@Bn6n*1+o9xZ#aV)s;e(GXSUAbkG8o>uDqgt{pvl*an1+Kp= z6iljw{Hl7WISBa?mUVZeWu|U$bg{m;a&I0rNmBo~l5|Cn9rRPaFX*jAuf~w^8vWci z@1A6+U$mMi4hUEseZjvoJw)EQ=%Co)lZu!He5b1;&6z{^%iptLK((c;5%SKsVT(RpXOH37>=gp2X?;1wAEmL*t zR~?p(-XAz47HrUpIo{f;h5==#Be?H~IUp~=z_p(>4C!*})(w^9{w^(kQBS{D+GjB* zse494{M3t09mj6qq;6_2kwWJR)q6B`NNLr_*FCw{{@7D^(YTk|n|nD{fIHUN%1T(S zUV;h_cg29iUOz`k`O6(QBuWx1jh+}Wfreh8tWnzw(K3&h@#kFGe$IM@6AKh~56#Ak z%=|t2av(%YGe__D<@FyppBIySp8T+|JBp1gHxjR!r?r|q&t zBEDr+DQi<^ztXli=MoI1=Qe~(B!wGh?!SAKenAcft zss5v)N`q~l&V{WZ$rp3svq?b=pJo2ekApD!oRQY%3j^gmcozte92tet)Xlm72Wv?gre z2$L`Oi=?9fI*57C3Hn05CoJWC?Nr)S}0N^R0R=aP(W0w2V?|{K!hWVMsY$S zXru%Lq=*znK@kjH8KlWDbSXi4@*SLS=Fa!y&b`ll?vI`4q@0}h-D|JC)_&&?@D3DN z@q>O937-#q&<)YbPnNn`iqJbNn!(?%#`Yds40HfL-XhGm_?9O}8^xBuAd1Kr+$>oS~r4T*#C)vv^lZqidH*av9F~tMe#iU>l zx4y#3h~bPFpWs&TEg z%1*!^i6py=*`RE&2tjEh=Zv!o84ThUDSIM@CL*d9jK|8W5jBDlDzP%e`r*>N^ll^9 z+<-mVBIgSe1+cclVDI?>W}&LnoO3~5db+!8xY&Ae>@;d3k_vFLY+oO=NC#atwa~eW z^KZ1Wc!2o9s|JM*Ys2QR(sift%3dqup`Qp#?|48;@Q`UTpce4aBBLj%>|WoEGE9c; ztZ8&H4@ey@!61vzHt*xA7^-BFy_JA4sZ#szYZN5n&6UiZMHqpi*N^WzPLI_My0qcf z%(vAdltH(OuIB+1Kd|bMR?K)-IY67%XXa$}s!XQF!>_l-;O z0OhNgK`wvybhsqe+XNtgY+pZ?H!kb^1Eh=Oo;-d<6ORg6X*=~G7pNQl8QET>OW84A zb@yZr!Kac?ueNfM2Rt4467PX#FIM+){*;&v44o9fr)`+iv{)d6Me3%-w*=U`!Z=}(HssbiPJT>O!*;63A=kq_ zsXB51w_ps*w{dtTJ0O=7ll$!qSu?(iLQfs7UUQp^nPFD_;L&~g>=Wk72oDJVwkq7% zsVDn_G}YJt-WQ@%hD^p7WzLUI2?9s}P=f{~c0fTp1VKUKW^M-BjND=#Zb|Uyx$MJr zeIDIJ_(W(g@~4S;cPt*llRBpLPY8(zzYF&@PR4~+Yra{XJo?-%PmQXU$e)^wm%f4? zS5TbWQ}|r*_PZi4Y_qBDfI^;wPCmWl8RefhDG%@Rp_2C;5l}`_-Tz3_Q@lT%4S-I@ zLX(2BkTyR*Sm@Spa6NKs(i!0;NW=^SbA(bv6RbWme3D~OouvQvvDN;hNDD&s0Ndqm zv&PSoMhjN$$96V9zoc^GOnStFfQJEl(#j8&I~>!$bB&D6-9+$z44c%scj*n&a!FTk zR?PYn*5*K@Z9??%s&_vedBJ?Fv?>%kgWoU@JI3xIGpa*1iVy9Ef61(Oz;#p~7)Ezb zy}uZAWX$rb9VpG6<(A%QeMZJUgtTO2A<-?nE!9&RkxZH}HD$3T<56=|Xo#H8Oln~x zox)_P*49>ZY301Ay3pSg?%DL>c9d}U+~x9(0_Mg8ftD<$`W+sSN%>q$%NO>CE(oeY zw*&=`F!R4^>P~)S?e+4VlcR);#Uu@9(_`^bHk}2FDf+mN0Ae`|?-SB>%%hIO(wwb% z7UpqcTk-ZQ($(B)1IhnXk_ zU-SEO%!;&$z(Xh6Sh~6I-zkU;owcpHT9eT`2F`1Z^MJ($kW@oFqYl>XFM6eh5xAw` z+D)D;vlVJo@#_#wS-m5@{%E74x6+!P+3%MS-fQS`EmhlG8}ko%0u~lxW}cM67Vile zlhV5-7tdaQONb;45fW_{$n9*s6ZFZ)DXIbQzm(_7D=dR16(4W@LUo2cY;)XUn z>9fCft)*^bOGqhuv)mx8_+Bq3R_U6DjiUOD((+oNf$yqJi8&BVWhH8I*k^7Y&}U># z82iG!bv96nHQ{%8!sj?5C-bt)NGI?rDbV3rkLm+d6A!TOjWr;vM>XTJj6s!|?I}Fq zrw1t<{DiPKv=fa!Adwc&ZiDNz@!BPw$IGGUv=Y7IdBxc=a2M`qSRra?dM@7M!CT7P zOWOwty>HJ>w1P3-d=V0groA1TFy=& z<5c*Y3#up|()Jkg;?~S=<=3ns{o_ z)d$~2N%zvEIh!_{6uFzPl#?YqbDZ?#H9t7r4C;)y zG_=Q49+UwVB5^02*jl>PO_sj|@c_JC%)nCOh2LDgNBGoYH<$Tmxa5b+cpZ4D?^CtI zY}t^d$}*qDe0CeEghg#j2j#um!@B9QKlLL4NEQtU#RpoDf!3x)dZ|B+4;CH1l0=)f ze6|Hj7bt64{z{ll5nElMtmuW^RVZs+9u$}@O;E&hDKILcdQDg6@^b)WEu5jm&bclrFN>n5!~ZKFGeaafFgEq`?=I#dS1+k~NS-MA1a3hPasx+u5}8x}tM0vKyZwG~ zUlhq{LAramO@w?&*7O{hN0K)Dm0#$8Rde;6MmV; zKaJIz^kyTGfVc2}0=EgEOJ2CBmexz>f_}?19xyjg$cfN3lYeYIrQ_K}`!$C0YBi=( zTJ8M3nu@m@0ouA_bh4QaT#pWek#+~|i2|q`xPb~-7GR)e3`R3d3Na#6@aW^Edy}5m z4DV>IJxW`ZaKaTVC;E&8-txq*oTvBNt_AXd?p>AYf9`j;Gs3kuxBTqGl&8g+UmnMa z5hyu;|2ByuCF)O-Gks!l)Gi}Z+Dzh6#IM;EA$2?;>`MMtTbJrCucevo;-N*VpB2A2 z`Xkz#ch8r0Shd^q{d_S!pw#{-WQUS663U-WS==b2VRUSm%iDBTU8>^Z;@YcA>b9#) zHYAKt(%W}^;sF6q8Jy3aKLL#<*2ys6ituW%8Fhe0F*v;6^1$(fi3y{=n9R-_9kXi# z%j0?@gCo9SdS4F2;Y361 z2KEO4x8MGr(2c}5=Q;2`mjV? zi`8oyhoRhk3-)tBz`se2$ch`cfWfun6W0zeP;bTKEdKEEF!nAwUxJkS$B%%Z@Mx4# zCNj?=lIs!pNM6k{*urEmzCYIJs9Z7`=hZ+}YtwVSfm+@DDP4dg-!q#}&i=dBZeGhD zPZZS-JHgfjAs=q!_ZnPp>=D7 zc}wZHD-OMVjlX@647vn2LrXBkbI#q19BsJ4`cZS*F{TC$8v^`oP^_n&ifkEUWGh`0 zG*C)SAfJY%2MrmE2>uzCVfNNWbM?X)m9%TSQb+F`M{(pQ+oDy6N^(uUt#!WUNey-ckF(D1Q0gI?99;p-{#!w|Wm1A(aIGY@(0`zpOW04y~TR z_tEPjQI18f#%<7K?K;>$6zOP~aowUQ-)gfWxW}!OuE8tIm?kdV3e1{Qy`J5*aK+C- z-YoC3YfTN8GlRO;JiZrs46+k!2hE+Wo|W9?REpK+B=;$v;WiJMNVUZvBAg# z-vsG?SN9ileX6O2n4YrkV`v2_58aSdgt$T|@V|iB)EGqTxmEep%JbXC_1`lj zT7QWlG(@>%1u7`kvIh$gw@AnORYp~Kz;GbBGpxYO3OcjFc&QVo>Ue=6N)Rn=aHJ=%+8_NcMvxOq0^CaK z;QTu6d_nVNxAh0px>GI_jd4VDq;qOow%26n>2~d+_=P?z?VDVcsutC{%-NuO&bQs) z_6oKtE1u}=A(5FfjWX&M4B;g09b;SDD;9h0berq|ezZeP-cV)z1V6ppaE62Oh0W4Vt9f#W0oS6;Dr>U+!=#f0*P< z7m@ZA5A6SB#&ibaJ7wNg&UPn8yzg}?CiEW`1oy=sA2vEiUNo#x^auCfZlJ zax}Vqq6r02Ui6U4%#Q#~}{6NW-af(OusOQ)-~vU?Rj2V{O)4C@E=TXrBD3x=q3-$?ZuQ&ESn z*Jgz28*k~+()P2;xBt?(UiM@8#(X9B^b04ny(#^=Jsa`b4yl~81CyA$PG~O>jCz*7 zY66qb*pUa+ST3qm-N`2R@08p3FocD$4@M2DKS1T|M54&V@7@Cv6IO&XtNI_*!E91T z9%oTvA}z<}V@KMjOG;D9lQri3t?w}bz1JFt0t f@_o((;AZ^C71AJV^RxfA_wxVEAHoko@;?0wXYgVF diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addChoices.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addChoices.st new file mode 100644 index 000000000..14d78ca07 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addChoices.st @@ -0,0 +1,7 @@ +as yet unclassified +addChoices + + self addMorph: (TCUChoice newFor: 'Anonymous Poll?' isExclusive: false); + addMorph: (TCUChoice newFor: 'Standard Poll' isExclusive: true); + addMorph: (TCUChoice newFor: 'Multiple Options' isExclusive: true); + addMorph: (TCUChoice newFor: 'Quiz' isExclusive: true). \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTypeOption.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTypeOption.st index ee547ca91..81436987e 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTypeOption.st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTypeOption.st @@ -2,11 +2,22 @@ as yet unclassified addTypeOption self typeOption: (RectangleMorph new - color: Color red; - extent: 300@300; + color: TCUDefaultValues colorLightBlue; useRoundedCorners; + layoutPolicy: TableLayout new; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + wrapCentering: #topLeft; + layoutInset: 2; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + cellInset: 8; + addMorph: (TCUChoice newFor: 'Anonymous Poll?' isExclusive: false); + addMorph: (TCUChoice newFor: 'Standard Poll' isExclusive: true); + addMorph: (TCUChoice newFor: 'Multiple Options' isExclusive: true); + addMorph: (TCUChoice newFor: 'Quiz' isExclusive: true); yourself). - self addMorph: self typeOption. + self addMorphFront: self typeOption. self typeOption center: self center. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/initialize.st index 9d04bd338..3128f1e1c 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/initialize.st @@ -4,7 +4,7 @@ initialize super initialize. self - color: (TCUDefaultValues colorLightGray alpha: 0.5); + color: (TCUDefaultValues colorLightGray alpha: 0.8); borderWidth: 0; on: #mouseUp send: #hide to: self. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json index bafb8fc8b..ebfca8317 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json @@ -2,9 +2,10 @@ "class" : { "newFor:withBounds:" : "jkon 6/17/2024 11:14" }, "instance" : { - "addTypeOption" : "jkon 6/17/2024 11:17", + "addChoices" : "jkon 6/17/2024 15:50", + "addTypeOption" : "jkon 6/17/2024 16:06", "chat" : "jkon 6/17/2024 10:29", "chat:" : "jkon 6/17/2024 10:29", - "initialize" : "jkon 6/17/2024 11:13", + "initialize" : "jkon 6/17/2024 15:58", "typeOption" : "jkon 6/17/2024 11:03", "typeOption:" : "jkon 6/17/2024 11:03" } } diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/properties.json b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/properties.json index f97b0a04e..e5478bf7d 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/properties.json +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/properties.json @@ -7,7 +7,10 @@ "commentStamp" : "", "instvars" : [ "chat", - "typeOption" ], + "typeOption", + "selectionMorph", + "textMorph", + "isSelected" ], "name" : "TCUChatPollEditor", "pools" : [ ], diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/README.md b/packages/TelegramClient-UI.package/TCUChoice.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/class/newFor.isExclusive..st b/packages/TelegramClient-UI.package/TCUChoice.class/class/newFor.isExclusive..st new file mode 100644 index 000000000..ce4e3d6ed --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/class/newFor.isExclusive..st @@ -0,0 +1,9 @@ +as yet unclassified +newFor: aString isExclusive: aBoolean + + ^ (super new) + content: aString; + isExclusive: aBoolean; + addSelectionMorph; + addTextMorph; + yourself \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st new file mode 100644 index 000000000..1f291de06 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st @@ -0,0 +1,10 @@ +as yet unclassified +addSelectionMorph + + self isExclusive + ifTrue: [selectionMorph := CircleMorph new] + ifFalse: [selectionMorph := RectangleMorph new]. + selectionMorph + color: TCUDefaultValues colorLightBlue; + extent: 22@22. + self addMorph: selectionMorph. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st new file mode 100644 index 000000000..ff299df0e --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st @@ -0,0 +1,15 @@ +as yet unclassified +addTextMorph + + |textMorph| + + textMorph := TextMorph new + contents: self content; + hResizing: #spaceFill; + color: Color white; + position: 26@0; + readOnly: true; + lock; + yourself. + self addMorph: textMorph + \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/content..st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/content..st new file mode 100644 index 000000000..d7ce45eca --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/content..st @@ -0,0 +1,4 @@ +as yet unclassified +content: aString + + content := aString \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/content.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/content.st new file mode 100644 index 000000000..814260865 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/content.st @@ -0,0 +1,4 @@ +as yet unclassified +content + + ^ content \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st new file mode 100644 index 000000000..0dad3cfcb --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st @@ -0,0 +1,12 @@ +as yet unclassified +initialize + + super initialize. + + self color: TCUDefaultValues colorLightBlue; + borderWidth: 0; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + on: #mouseDown send: #updateChoice to: self; + isSelected: false. + \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive..st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive..st new file mode 100644 index 000000000..f6920ffd5 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive..st @@ -0,0 +1,4 @@ +as yet unclassified +isExclusive: aBoolean + + isExclusive := aBoolean \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive.st new file mode 100644 index 000000000..351b27393 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isExclusive.st @@ -0,0 +1,4 @@ +as yet unclassified +isExclusive + + ^ isExclusive \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected..st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected..st new file mode 100644 index 000000000..da19ed806 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected..st @@ -0,0 +1,4 @@ +as yet unclassified +isSelected: aBoolean + + isSelected := aBoolean \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected.st new file mode 100644 index 000000000..46d3c4d9a --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/isSelected.st @@ -0,0 +1,4 @@ +as yet unclassified +isSelected + + ^ isSelected \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph..st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph..st new file mode 100644 index 000000000..c170a9cae --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph..st @@ -0,0 +1,4 @@ +as yet unclassified +selectionMorph: aMorph + + selectionMorph := aMorph \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph.st new file mode 100644 index 000000000..79633b0de --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/selectionMorph.st @@ -0,0 +1,4 @@ +as yet unclassified +selectionMorph + + ^ selectionMorph \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/updateChoice.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/updateChoice.st new file mode 100644 index 000000000..ec88c761c --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/updateChoice.st @@ -0,0 +1,8 @@ +as yet unclassified +updateChoice + + self isSelected + ifTrue: [selectionMorph color: TCUDefaultValues colorLightBlue. + self isSelected: false.] + ifFalse: [selectionMorph color: Color black. + self isSelected: true.] \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json new file mode 100644 index 000000000..892c5341d --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json @@ -0,0 +1,16 @@ +{ + "class" : { + "newFor:isExclusive:" : "jkon 6/17/2024 15:40" }, + "instance" : { + "addSelectionMorph" : "jkon 6/17/2024 15:21", + "addTextMorph" : "jkon 6/17/2024 15:32", + "content" : "jkon 6/17/2024 15:32", + "content:" : "jkon 6/17/2024 15:32", + "initialize" : "jkon 6/17/2024 15:40", + "isExclusive" : "jkon 6/17/2024 15:16", + "isExclusive:" : "jkon 6/17/2024 15:17", + "isSelected" : "jkon 6/17/2024 14:52", + "isSelected:" : "jkon 6/17/2024 14:52", + "selectionMorph" : "jkon 6/17/2024 15:20", + "selectionMorph:" : "jkon 6/17/2024 15:20", + "updateChoice" : "jkon 6/17/2024 14:56" } } diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/properties.json b/packages/TelegramClient-UI.package/TCUChoice.class/properties.json new file mode 100644 index 000000000..81d867315 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/properties.json @@ -0,0 +1,17 @@ +{ + "category" : "TelegramClient-UI", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "selectionMorph", + "isSelected", + "content", + "isExclusive" ], + "name" : "TCUChoice", + "pools" : [ + ], + "super" : "RectangleMorph", + "type" : "normal" }