The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Smilies in tkirc (patch irc)


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>
Ключевые слова: patch, irc,  (найти похожие документы)
_ RU.UNIX (2:5077/15.22) _____________________________________________ RU.UNIX _ From : Boris Tobotras 2:5020/510 12 Aug 98 08:41:10 Subj : Smilies in tkirc ________________________________________________________________________________ Кому в tkirc смайликов? Как в XEmacs? Hалетай: - --- tkirc Wed Mar 11 18:35:28 1998 +++ /usr/local/bin/tkirc Tue Aug 11 18:52:17 1998 @@ -1964,7 +1963,70 @@ } # no URLs and no MessageIDs in line - $widget insert end "$line" $prestylenum + insertPlainLine $widget $line $prestylenum +} + +proc insertPlainLine { widget line prestylenum } { + + set GifDir "/usr/local/lib/tkirc/smilies/" + + set rest $line + while { "$rest" != "" } { + if { [regexp {(.*)([8:;,.][-^]?[Oo\*PpQqE\|\)\(\/])(.*)} $rest matchVar pre smileBytes post] } { + $widget insert end $pre $prestylenum + switch -regexp $smileBytes { + {:[-^]?\)} { + set smile "FaceHappy" + } + {:[-^]?\(} { + set smile "FaceSad" + } + {:[-^]?[\\/]} { + set smile "FaceIronic" + } + {;[-^]?\)} { + set smile "FaceWinking" + } + {:[-^]?E} { + set smile "FaceAngry" + } + {:[-^]?\|} { + set smile "FaceStraight" + } + {[:8][-^]?[Oo]} { + set smile "FaceStartled" + } + {[:;,][-^]?[PpQq]} { + set smile "FaceYukky" + } + {8[-^]?[\)\(|/\]} { + set smile "FaceKOed" + } + default { + set smile "default" + } + } + # insert image with $smile into $widget + set imageFile "${GifDir}${smile}.gif" + if { [file readable $imageFile] } { + global smilies + if { [info exists smilies($smile)] } { + set smiley $smilies($smile) + } else { + set smiley [image create photo] + $smiley read $imageFile + set smilies($smile) $smiley + } + $widget image create end -image $smiley + } else { + $widget insert end $smileBytes $prestylenum + } + set rest $post + } else { + $widget insert end [string index $rest 0] $prestylenum + set rest [string range $rest 1 end] + } + } } proc print2log {destlog line} { В /usr/local/lib/tkirc/smilies положить смайлики из xemacs-20/etc/smilies, сконвертированные из xpm в gif. А, впрочем, их всего ничего: begin 664 smilies.tar.gz M'XL("/0JT34"`W-M:6QI97,N=&%R`.V<6T@441C')]/:3,(NI`75K.9E+=VY M[IA19(67RBW-K0Q-QW7;'=UVM]G99(L>3(@LBHHD"RU31*T>#+,K!$4/1CX$ M8?5@5Y)N+T64!5'M1?+6;9M<=H;O_S*<<Q;VX?`[___Y/F8<=EYMMNI9L]K, M%:N%,H[7J^U;.#-GL*N1_R24PAB:1A'4+6S8LW^`:F@-A1,X3E`HBE,$0R(H MC?A!#KO`\BB*\%:K\+O?_6E=HG+\9O_36+TAU6+DG4E&;K.(_\`Q3$-1O]Y_ MG-1X]Q]C*(Q@7!,:!F,0%(/]'W6E9Z8E+V##D##DW1CW^-NW_@7EYV#71!`R MWSUPKU<,7@V*/A(RH7S&G)Q*:F:X:M.G#[,KYCS//=YR,"-MXYE7446=^:%K M$60A`I(X_\L-VUP#NTG,$>`3_R3AFF!(A@#^`YK_56B]XIZQ=N6YV:F5;5V+ M>O/RW^<^-VH?$X:H716'=G7?*HX`_J7/?[K5NMFO_D]2'O_',>!?(O[_UM:E M*)U5H=M=E1>9L->P_7YG0<--%/Q?'OSSG,7"68S^\W_:[?\4A@/_$N/_HTI; MDUUXL6/B/OYH/+[GQC3@7_K\9[`VFW_]GX;[OV3]/R.A,")E^L(DX%\N_&?R M5@NG%W<`_(/_8S3XO]3XC\VI69;0LR#IH0GROVSX7[G:4"+2_GWDWU/_IVBH M_TF%__#H1XIG7Y*/O:^J[JMCF^/7-2>M/XVW"^#_,N!?ZV1-H\\_,\`_A;GY MIPG@W]_\![G'.IW."[F7_[%#^?^Q&C2W=OR$<I7:S?^:IS<.73V17:A8'&K< M>OUUP9W3=&2XT-6$A<`!('G^U[*B[?\O^*>'\T^24/\/:/^/^DG^/S#)N;'F MTB;#@[:)E?&KQ@#]<N#?18=@%G<'\"G_4[BW_D\#_Q*[_X]+Z$W?6;<GL>#E MAH@W1"S<_^7!/\]R1I,PNOQ3(_G7`/^!S+_R%_[?5+Z_)V9%6`.$?WGPG\N: MRT2V_WW,_Q[^"9P$_J67_UMMQ5>$1_?/)C9V+87\+P_^[<*H]_\I;!#_A*?_ M3P#_`5W_BQFH__W(_^,:HX-+.XI"KPB-CJHI4`*0`__K.8L?_%\SC'\7_E#_ ME\S]'RM(2>O35=]-C6R)GW&X=?J\:QDJW+X%^G]RX%_TVW^^YG^/_[N>P+_T M\G^3[>0E5_YO@_PO%_[S'&5E_LW_I"?_D\"_5/)___N_U7$'M"U+>J:>?QS2 M4=H>HK2K(/]+FW^]U>;DQ1;__XI_<MCW'QB,@OZ?G_D_A7C]OU_*KY.RV!(# M6LX))C0],VO-R$0P-`5,N[#C18_N25S*Y&YE_>66!H<S^[8)C@`0"`0"@4`@ -$"B`]!T_%%S2`%`````` ` end -- Best regards, -- Boris. Between two evils, I always pick the one I never tried before. --- Gnus v5.5/XEmacs 20.3 - "London" * Origin: Linux inside (2:5020/510@fidonet)

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ваш комментарий
Имя:         
E-Mail:      
Заголовок:
Текст:





  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor