File manager - Edit - /home/ferretapmx/public_html/tcl8.5.tar
Back
libTix.so 0000755 00001201330 15231152137 0006345 0 ustar 00 ELF > ` @ � @ 8 @ �` �` �k �k$ �k$ �z �� m m$ m$ � � � � � $ $ P�td H� H� H� , , Q�td R�td �k �k$ �k$ x x GNU -�� ..�t�1�2���~� � 5 0`� �P�0�x�@�g� �0A B�@C@ ( $ ��X`A �; I @ H-D, T,A�F� �A`*�"B �� H� 4 ( $ $@ �" � (eI0I L�D "�(l A�@� �!! `&� � PJ @ @ 0 � � A�ID�p � H .�� � ( ��(@ �5 6 7 8 9 ; < = > ? A B C D E G H I J L N P Q R U V X Y Z \ a b c d e f g j l n p r s u v y { } � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � � } � FL'�� ?9ؤZ����$��Њ����긳I=��M�5ꈫ�g<���S*�]�Z�8�M�����2�LE� }�$����O��Op�Cҍ>����E;�q��}�ۀ�����o�ʥ��F���$:{�k�j`��o�0�s��V3���nP��v�4��o�����m��uR�8q�K�DeXh�za�X�&�܇�濹+\.�֠/� �ށ<̓{ zZT��m ˸\ ٗ�3��Gxf�&Ŗ���#��� �jh��hM�!��0�����Ā�~ ����4 �ݍ� �m���������0$� �U$��Z0�E�"Z�`���rܿ1k�M鞲���̎�o��˅dA�r��S� b0� �7�.��,Z[ ]�c��$ rC �d���U�@��*�y��$SNm�����i�G "�t��pC� �6-��AM#j��=��X��t��'��wӑ�W�Q4����ÄwpXW�_F�,���ٛ���o���C���`"� +�XϻBE��K7���d� r�C���� ��`Y�� �^�-�zC� 1>�,S ��D����v��+ ��O"���'e5�����4FJ�OM<�ϙ,_�?�)%G���2�U��?�SWd�.�~��dM{��a�mu%�4$��I�z HZ�������ɰ<�¨W�k�Arү�Mun��i�H��VN�%������c��~x r��I�MU ��.~��yfE`,S0�9!1MĐr��qX 9�i��<��U4o n��|��g��|��f-J��+l�h���Z!%��@m o�r*�;^���� o�S�<�N�4�Ԓ�K?/3�22����l�T�!|�ƙkw�Tǟ��1|��D��/3����`# ]��v)e�8����X�� z��M��<3؏�57��6 �� t � � � w q 0 � P n � C � w � = � > W _ � � � - � \ 6 � y � � a f � � � � 8 � � R " P � � � � @� P � �0 � " �e �T 5 � �� | � P k � 0u I 6 �m � m i d � `9 � � �E % � �p � . � l f 0� � e P8 � U � i � m ! �G � & �[ z � О + � p� A �� V �� � � - � 7 �T > J � � I T > � �� � 09 ' B � � �R � � ~ ( � `� M � `e ~ � ' �� y � �r � � �a q { PV � �e � � T � G � g ^ � � � �$ 0Z � x �$ E J � � ��$ H � 0� � B �� l b 0( i �� � u �$ � `} _ pK v � �@ ] � �} s � �S > � PF 8 0I _ F 7 L (�$ 7 �$ � � �� n � b a } �� � � �e ! �Y � d | � �z$ � � 0a M _ p� m � M � � `? � � �E 1 � � g � `� � � p} `s " � u ^ � � �F = I �$ � PF L � = � � �O � Z �I > f � pc � 4 �I � X 0f V �$ � �N % � �} y �� + U �$ � � X � �e � �F / � P} � �M ( � �F � 0L � � pi � & ��$ � � �o ) �� p � �# � @� t � pe � @e 7 `� � � [ � �� � � �� l 2 @� / �s � � ��$ H �� 5 : \ �X q K �� � k i � � @� 6 D p� � � 8�$ k �$ �� � � �> � � P: � � � � < ��$ . O � � 0F 0e � / � E �z$ f P� r � �T � �z$ � U � W p = X �� � � �: 3 � pq ' � �t 3 A � , n �K � � �� 1 �� � { � j p� 1 � @�$ E � � e 0� C � �� x �$ 0` � N � y � PA a @2 2 � `� : � �� ! � PW � ~ �� � @T > K `& C � � � } �l � � �� � 1 �X � F Т � � @� ! \ a � @~ � P� � ! K �s 8 � �? 8 N 0�$ t � v u @| � � � D 0� � � �� | a �$ j �� - 0[ � � P�$ < � � � b C ��$ z r ! � ��$ � �\ � � @} O H�$ �u � � �V � � �o � � � ! � �J d � i �� p � } $ � �W � ! �5 t ~ : 5 , �[ � Y �� @ � �n " �� C �| ? v � P� { @�$ � U И V � �A ] � �$ � P� � * P� L � 0M � ? �! V pH � �Q # � �� � @� Q � � @� � � @v � � S � f �Y ] } �L h � @� ! __gmon_start__ _init _fini _ITM_deregisterTMCloneTable _ITM_registerTMCloneTable __cxa_finalize _Jv_RegisterClasses tclStubsPtr TixGetHashTable Tix_SimpleListIteratorInit Tix_SimpleListStart Tix_SimpleListDelete Tix_SimpleListNext __stack_chk_fail Tix_ZAlloc tixStrDup Tix_SimpleListInit Tix_FindConfigSpecByName Tix_CreateInstanceCmd strstr Tix_InstanceCmd Tix_ChangeOneOption Tix_CallMethod Tix_CallConfigMethod Tix_ArgcError strlen Tix_FindPublicMethod __sprintf_chk Tix_EvalArgv Tix_UnknownPublicMethodError Tix_ChangeOptions Tix_QueryOneOption Tix_GetVar Tix_QueryAllOptions Tix_UninitializedClassCmd strcmp Tix_GetConfigSpecFullName Tix_GlobalVarEval Tix_CreateWidgetCmd Tix_SimpleListAppend Tix_ClassCmd tkStubsPtr Tix_DoWhenIdleCmd Tix_DoWhenMappedCmd Tix_Get3DBorderCmd Tix_HandleOptionsCmd Tix_ParentWindow TixpSetWindowParent Tix_TmpLineCmd TixpDrawTmpLine Tix_GetDefaultCmd strcpy Tix_ValueMissingError Tix_ManageGeometryCmd Tix_GeometryRequestCmd Tix_MoveResizeWindowCmd Tix_MapWindowCmd Tix_FlushXCmd XFlush Tix_UnmapWindowCmd Tix_Init Tcl_InitStubs Tk_InitStubs Tix_CreateCommands tixNormalUid tixCellUid tixRowUid tixColumnUid tixDisabledUid TixMwmProtocolHandler tixPixmapImageType tixCompoundImageType TixInitializeDisplayItems Tix_SafeInit Tix_CallMethodCmd Tix_ChainMethodCmd Tix_ItemStyleCmd Tix_FormCmd Tix_GetMethodCmd Tix_GridCmd Tix_HListCmd Tix_InputOnlyCmd Tix_MwmCmd Tix_NoteBookFrameCmd Tix_TListCmd Tix_LinkListInit Tix_LinkListAppend Tix_LinkListIteratorInit Tix_LinkListStart Tix_LinkListNext Tix_LinkListDelete Tix_LinkListInsert Tix_LinkListDeleteRange Tix_LinkListFind Tix_LinkListFindAndDelete Tix_GetContext Tix_SuperClass Tix_GetMethodFullName Tix_ExistMethod Tix_FindMethod strncmp Tix_InitScrollInfo Tix_GetScrollFractions Tix_UpdateScrollBar Tix_SetScrollBarView Tix_SimpleListInsert Tix_SimpleListFindAndDelete Tix_SimpleListDeleteRange Tix_SimpleListFind Tix_HandleSubCmds Tix_Exit exit stderr __fprintf_chk Tix_GetAnchorGC Tix_DrawAnchorLines TixpDrawAnchorLines Tix_CreateSubWindow Tix_GetRenderBuffer XSync Tix_SetRcFileName TixComputeTextGeometry TixDisplayText memset tixConfigRelief tclIntStubsPtr Tix_AddDItemType Tix_GetDItemType Tix_DItemCreate Tix_DItemConfigure Tix_DItemDisplay Tix_DItemFree Tix_DItemCalculateSize Tix_DItemComponent Tix_FreeArgumentList Tix_SplitConfig Tix_MultiConfigureInfo Tix_ConfigureValue2 Tix_ConfigureInfo2 Tix_WidgetConfigure2 TixGetColorDItemGC TixDItemGetAnchor Tix_DItemFillNormalBG TixpSubRegFillRectangle Tix_DItemDrawBackground TixpSubRegSetClip TixpSubRegUnsetClip TixpSubRegDrawAnchorLines tixConfigItemType TixDItemStyleChanged TixDItemStyleFree TixpStartSubRegionDraw TixpSubRegDisplayText TixpEndSubRegionDraw TixpSubRegDrawImage TixpSubRegDrawBitmap tix_ImageTextItemType TixGetDefaultDItemStyle tixConfigItemStyle TixDItemStyleConfigureGCs tix_ImageItemType tix_TextItemType tix_WindowItemType Tix_SetDefaultStyleTemplate Tix_SetWindowItemSerial Tix_UnmapInvisibleWindowItems Tix_WindowItemListRemove TixFm_FreeMasterInfo fwrite TixFm_AddToMaster TixFm_UnlinkFromMaster TixFm_Unlink TixFm_ForgetOneClient TixFm_StructureProc TixFm_DeleteMaster TixFm_GetFormInfo TixFm_Configure TixFm_FindClientPtrByName TixFm_Info TixGridDataGetIndex TixGridDataGetGridSize TixGridDataGetRowColSize TixGridDataMoveRange TixGridDataDeleteRange TixGridDataFindEntry Tix_GrDoWhenIdle TixGridDataCreateEntry TixGridDataSetInit Tix_GrCancelDoWhenIdle Tix_GrGetElementPosn XFillRectangle Tix_GrFreeUnusedColors XCopyArea Tix_GrAddChangedRect Tix_GrScrollPage Tix_GrFreeElem TixGridDataDeleteEntry TixGrDataFirstRow TixGrDataFirstCell TixGridDataDeleteSearchedEntry TixGrDataNextCell TixGrDataNextRow TixGridDataSetFree Tix_GrFormat Tix_GrSelection Tix_GrSetSize Tix_GrSort TixGridDataUpdateSort TixGridDataConfigRowColSize Tix_GrConfigSize XDrawLine strtol Tix_GrGetCellText Tix_GrGetSortItems Tix_GrFreeSortItems qsort __printf_chk Tix_GetChars strtod isspace Tix_HLAllocColumn XDrawRectangle Tix_HLFreeHeaders Tix_HLComputeGeometry Tix_HLComputeHeaderGeometry Tix_HLResizeWhenIdle Tix_HLCreateHeaders Tix_HLResizeNow Tix_HLCancelResizeWhenIdle Tix_HLFindElement Tix_HLElementTopOffset Tix_HLElementLeftOffset Tix_HLDrawHeader Tix_HLItemInfo Tix_HLMarkElementDirty strrchr strncpy Tix_HLColumn Tix_HLHeader Tix_HLItem Tix_HLIndicator XRaiseWindow XSetClipOrigin XCopyPlane AddNewLine AddNewBitmap AddNewImage AddNewSpace AddNewText TixpXpmDisplay TixpXpmFreeInstanceData TixpXpmAllocTmpBuffer strcasecmp TixpXpmSetPixel TixpXpmRealizePixmap TixpXpmFreeTmpBuffer fopen fseek ftell fread fclose TixpInitPixmapInstance Tix_DefinePixmap XCreateWindow XRootWindow XGetWindowProperty XChangeProperty XFree XQueryTree tkIntStubsPtr XCreateGC XFreeGC XDrawPoint XSetClipRectangles XCreateImage XPutImage libX11.so.6 tclPlatStubsPtr tclIntPlatStubsPtr TclTomMathInitializeStubs tclTomMathStubsPtr tkPlatStubsPtr tkIntPlatStubsPtr tkIntXlibStubsPtr libc.so.6 _edata __bss_start _end libTix.so GLIBC_2.3.4 GLIBC_2.4 GLIBC_2.2.5 2 ti ^ ii j ui t �k$ �k$ � �k$ �� �k$ ˭ �k$ ӭ �k$ ܭ �k$ � �k$ �� �k$ � �k$ � �k$ � �k$ � �k$ "� �k$ *� l$ 2� l$ � l$ :� l$ *� l$ D� (l$ � 0l$ N� 8l$ X� @l$ `� Hl$ � Pl$ j� Xl$ � `l$ r� hl$ X� pl$ y� xl$ *� �l$ �� �l$ �� �l$ �� �l$ �� �l$ o� �l$ ¾ �l$ x� �l$ ̾ �l$ L� �l$ R� �l$ ?� �l$ D� �l$ �� �l$ �� �l$ �� �l$ �� m$ m$ `v$ M� hv$ �< pv$ �; �w$ � �w$ � �w$ &� �w$ 1� �w$ �� �w$ 4� �w$ =� �w$ �� �w$ � x$ F� x$ Q� x$ \� 0x$ � 8x$ f� @x$ p� Hx$ \� hx$ � px$ z� xx$ �� �x$ �� �x$ �� �x$ �� y$ �� y$ �� y$ ΰ 0y$ ܰ @y$ � Py$ �� `y$ �� py$ � �y$ � �y$ .� �y$ ;� �y$ C� �y$ T� �y$ ]� �y$ j� �y$ |� z$ �� z$ �� z$ �� 0z$ �� @z$ �� Pz$ ɱ `z$ ر pz$ �� �z$ �g �z$ �f �z$ �| �z$ | �z$ � �z$ � �z$ �� {$ В {$ �� {$ 0� {$ �� {$ @� ({$ p� 0{$ �� 8{$ @� @{$ � H{$ 0� P{$ @�$ X{$ �{$ �{$ )� �{$ *� �{$ 1� �{$ �� �{$ 8� �{$ �� �{$ <� |$ �� 0|$ @� 8|$ A� @|$ F� H|$ ܭ h|$ K� p|$ L� x|$ P� �|$ �� �|$ T� �|$ U� �|$ ]� �|$ M� �|$ e� �|$ k� �|$ p� �|$ �� }$ t� }$ z� }$ p� (}$ �� H}$ � P}$ �� X}$ �� `}$ �� �}$ �� �}$ �� �}$ �� �}$ *� �}$ �� �}$ �� �}$ �� �}$ �� �}$ �� �}$ �� ~$ � ~$ � (~$ �� 0~$ �� 8~$ � @~$ � `~$ �� h~$ �� p~$ Ѷ x~$ *� �~$ �� �~$ �� �~$ Ѷ �~$ � �~$ � �~$ � �~$ � �~$ � $ � $ � $ � $ �� @$ � H$ (� P$ 9� X$ X� x$ � �$ (� �$ 9� �$ � �$ J� �$ \� �$ m� �$ � �$ J� �$ \� �$ m� �$ �� �$ ~� (�$ �� 0�$ �� 8�$ *� X�$ ~� `�$ �� h�$ �� p�$ �� ��$ �� ��$ ̷ ��$ ߷ ��$ � Ȁ$ �� Ѐ$ ̷ $ ߷ �$ � H�$ � P�$ � X�$ �� `�$ *� ��$ � ��$ � ��$ =� ��$ *� ��$ � ��$ � ȁ$ � Ё$ � �$ $� ��$ /� �$ 9� �$ �� (�$ C� 0�$ M� 8�$ V� @�$ �� `�$ _� h�$ f� p�$ u� x�$ *� ��$ �� ��$ �� ��$ Z� ��$ *� Ђ$ �� $ �� �$ �� �$ �� @�$ � P�$ � X�$ �� `�$ `� h�$ � p�$ @� x�$ К ��$ � ��$ �� ��$ P� ��$ �� ��$ p� ��$ @� ��$ ��$ ��$ �$ �$ )� �$ *� ��$ 1� �$ �� �$ 8� (�$ �� X�$ <� `�$ �� ��$ e� ��$ k� ��$ p� ��$ �� Ȅ$ t� Є$ z� $ p� �$ �� �$ �� �$ �� �$ �� �$ *� 8�$ �� @�$ �� H�$ �� P�$ �� p�$ �� x�$ �� ��$ � ��$ � ��$ �� ��$ �� ��$ � ��$ � �$ �� �$ �� �$ Ѷ ��$ *� �$ �� �$ �� (�$ Ѷ 0�$ � P�$ � X�$ � `�$ � h�$ � ��$ � ��$ � ��$ � ��$ �� ��$ � Ȇ$ (� І$ 9� ؆$ X� ��$ � �$ (� �$ 9� �$ � 0�$ J� 8�$ \� @�$ m� H�$ � h�$ J� p�$ \� x�$ m� ��$ �� ��$ ~� ��$ �� ��$ �� ��$ *� ؇$ ~� �$ �� �$ �� �$ �� �$ �� �$ ̷ �$ ߷ (�$ � H�$ �� P�$ ̷ X�$ ߷ `�$ � Ȉ$ � Ј$ � ؈$ =� �$ *� �$ � �$ � �$ � �$ � 8�$ _� @�$ и H�$ ۸ P�$ *� ��$ �� ��$ 0� ��$ � ؉$ � �$ �� �$ �� �$ E� �$ �� �$ *� @�$ L� P�$ �� X�$ �� ��$ �� ��$ �� ��$ `� ��$ p� ��$ p� ��$ p� ��$ � ��$ � Ȋ$ 0� Њ$ �� ؊$ � �$ �� �$ � �$ ��$ ��$ �$ (�$ )� 0�$ *� 8�$ 1� @�$ �� `�$ 8� h�$ �� ��$ <� ��$ �� Ћ$ @� ؋$ A� �$ F� �$ ܭ �$ T� �$ U� �$ ]� �$ M� @�$ e� H�$ k� P�$ p� X�$ �� x�$ t� ��$ z� ��$ p� ��$ �� ��$ � ��$ �� ��$ �� Ȍ$ �� �$ �� �$ �� ��$ �� �$ *� �$ �� (�$ �� 0�$ �� 8�$ �� X�$ �� `�$ �� h�$ � p�$ � ��$ �� ��$ �� ��$ � ��$ � ȍ$ �� Ѝ$ �� ؍$ Ѷ �$ ˭ �$ �� �$ �� �$ Ѷ �$ � 8�$ � @�$ � H�$ � P�$ � p�$ � x�$ � ��$ � ��$ �� ��$ � ��$ (� ��$ 9� ��$ X� �$ � �$ (� �$ 9� ��$ � �$ J� �$ \� (�$ m� 0�$ � P�$ J� X�$ \� `�$ m� h�$ �� ��$ ~� ��$ �� ��$ �� ��$ *� ��$ ~� ȏ$ �� Џ$ �� ؏$ �� ��$ �� �$ ̷ �$ ߷ �$ � 0�$ �� 8�$ ̷ @�$ ߷ H�$ � ��$ � ��$ � ��$ � ��$ �� �$ _� �$ c� �$ z� ��$ *� �$ �� �$ �� (�$ Z� 0�$ *� P�$ �� X�$ �� `�$ �� h�$ �� ��$ κ ȑ$ p� Б$ �� �$ V� �$ � ��$ �� �$ p� �$ й �$ P� �$ �� �$ � (�$ �� 0�$ P� 8�$ �� @�$ p� H�$ @� P�$ `�$ X�$ ��$ ��$ )� ��$ *� ��$ 1� ��$ �� ��$ 8� Ȓ$ �� ��$ <� �$ �� 0�$ e� 8�$ k� @�$ p� H�$ �� h�$ t� p�$ z� x�$ p� ��$ �� ��$ �� ��$ �� ��$ �� ��$ *� ؓ$ �� �$ �� �$ �� �$ �� �$ �� �$ �� �$ � (�$ � H�$ �� P�$ �� X�$ � `�$ � ��$ �� ��$ �� ��$ Ѷ ��$ ˭ ��$ �� ��$ �� Ȕ$ Ѷ Д$ � �$ � ��$ � �$ � �$ � (�$ � 0�$ � 8�$ � @�$ �� `�$ � h�$ (� p�$ 9� x�$ X� ��$ � ��$ (� ��$ 9� ��$ � Е$ J� ؕ$ \� �$ m� �$ � �$ J� �$ \� �$ m� �$ �� @�$ ~� H�$ �� P�$ �� X�$ �� x�$ ~� ��$ �� ��$ �� ��$ �� ��$ �� ��$ ̷ ��$ ߷ Ȗ$ � �$ �� �$ ̷ ��$ ߷ �$ � h�$ � p�$ � x�$ � ��$ V� ��$ _� ��$ ܺ ��$ � ��$ *� ؗ$ � �$ �� �$ V� �$ �� (�$ *� ��$ v� ��$ 0� ��$ |� ��$ � Ș$ � И$ �� �$ �� ��$ �� �$ �� �$ �� (�$ �� 0�$ �� H�$ � `�$ ҽ x�$ � ��$ �� ��$ |� ��$ � ��$ p� ��$ � �$ � ��$ @� �$ L� �$ �� (�$ � 0�$ � ��$ *� ��$ �; ��$ �� ��$ �� Ț$ � К$ ٿ �$ �� ��$ �� �$ � �$ � (�$ �% 0�$ �� H�$ E� X�$ `�$ �� x�$ j� ��$ �; ��$ �� ��$ � ��$ �; ��$ �� ؛$ � �$ � �$ � �$ � �$ � �$ � 8�$ � H�$ � P�$ �� h�$ � ��$ � ��$ � ��$ P ��$ $� Ȝ$ � $ @* �$ � ��$ �� �$ P� �$ k� (�$ 3� 8�$ 0 @�$ 8� X�$ J� h�$ � p�$ k� ��$ R� ��$ R� ��$ � ȝ$ 0 Н$ g� �$ |� �$ � �$ ~� 0�$ �� H�$ �� X�$ F `�$ k� x�$ �� ��$ �B ��$ �� ��$ �� ��$ �B ��$ �� �$ �� �$ �� ��$ �� �$ *� �$ �� (�$ �� 0�$ �� 8�$ �� X�$ �� `�$ �� ��$ 8� ��$ �� ȟ$ � П$ �� ؟$ �� �$ �� �$ � �$ � �$ � �$ *� 8�$ � @�$ � H�$ �� P�$ *� p�$ � x�$ � ��$ (� ��$ *� ��$ <� ��$ �� �$ 6� �$ D� �$ Q� ��$ �� �$ ^� �$ l� (�$ y� 0�$ �� P�$ @� X�$ A� `�$ F� h�$ ܭ ��$ �� ��$ �� ��$ � ��$ � ��$ �� ȡ$ �� С$ � ء$ � ��$ �� �$ �� �$ �� �$ *� 0�$ �� 8�$ =� @�$ �� H�$ �� h�$ �� p�$ �� x�$ �� ��$ *� ��$ �� ��$ �� ��$ �� ��$ �� آ$ �� �$ � �$ � �$ � �$ �� �$ � �$ � (�$ � H�$ "� P�$ 6� X�$ I� `�$ �� ��$ \� ��$ h� ��$ s� ��$ �� ��$ � ��$ � ȣ$ � У$ �� �$ e� ��$ k� �$ p� �$ �� (�$ t� 0�$ z� 8�$ p� @�$ �� `�$ ~� h�$ � p�$ �� x�$ Գ ��$ � ��$ (� ��$ � ��$ ˭ Ф$ � ؤ$ (� �$ � �$ � �$ �� �$ �� �$ �� �$ �� @�$ J� H�$ \� P�$ �� X�$ � x�$ J� ��$ \� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� ȥ$ �� �$ �� �$ �� ��$ �� �$ �� �$ �� (�$ �� 0�$ � 8�$ *� X�$ � p�$ �� ��$ � ��$ !� ��$ +� ��$ �� Ȧ$ 5� Ц$ @� ئ$ J� �$ �� �$ T� �$ U� �$ �� �$ �� 8�$ [� @�$ k� H�$ l� P�$ *� p�$ z� x�$ �� ��$ l� ��$ *� �$ L� �$ 5� �$ �` �$ X� 8�$ �� H�$ 0c P�$ X� p�$ �� ��$ )� ��$ *� ��$ 1� ��$ � ��$ �� Ȩ$ �� Ш$ �� ب$ *� ��$ �� �$ �� �$ �� �$ *� 0�$ �� 8�$ �� @�$ �� H�$ � h�$ �� p�$ �� x�$ �� ��$ � ��$ �� ��$ �� ة$ 8� �$ �� �$ � �$ �� �$ �� (�$ �� H�$ �� P�$ �� X�$ �� `�$ �� ��$ ~� ��$ � ��$ �� ��$ Գ ��$ � ��$ (� Ȫ$ � Ъ$ ˭ �$ � ��$ (� �$ � �$ � (�$ �� 0�$ �� 8�$ �� @�$ �� `�$ �� h�$ �� p�$ �� x�$ �� ��$ �� ��$ �� ��$ �� ��$ �� Ы$ �� ث$ �� �$ �� �$ �� H�$ �� P�$ �� X�$ �� `�$ *� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� �$ 8� ��$ �� (�$ � 0�$ �� 8�$ �� @�$ �� `�$ �� h�$ �� p�$ �� x�$ �� ��$ ~� ��$ � ��$ �� ��$ Գ Э$ � ح$ (� �$ � �$ ˭ �$ � �$ (� �$ � �$ � @�$ �� H�$ �� P�$ �� X�$ �� x�$ �� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� Ȯ$ �� �$ �� �$ �� ��$ �� �$ �� h�$ �� x�$ `j ��$ �� ��$ N� ��$ `j ��$ �� Я$ �� �$ � ��$ `m �$ Y� �$ t� (�$ `m 0�$ Y� H�$ � X�$ Pm `�$ Y� x�$ � ��$ `m ��$ Y� ��$ � ��$ `m ��$ Y� �$ �� �$ O� �$ � �$ $� 8�$ �� H�$ � P�$ �� h�$ *� x�$ `� ��$ �� ��$ �� ��$ P� ��$ � ȱ$ N� �$ �� ��$ � �$ p� �$ �� (�$ E� 8�$ � @�$ �� X�$ j� h�$ `� p�$ �� ��$ � ��$ `� ��$ �� ��$ � Ȳ$ �� в$ � �$ � ��$ @� �$ �� �$ � (�$ �� 0�$ $� H�$ Y� `�$ � x�$ � ��$ 0� ��$ � ��$ .� ��$ �� س$ �� �$ � �$ � �$ �� �$ � 8�$ J� H�$ �� P�$ m� h�$ .� x�$ P� ��$ $� ��$ R� ��$ в ��$ 2� ȴ$ G� ش$ �� �$ � ��$ �� �$ � �$ �� (�$ �� 8�$ �� @�$ �� h�$ �� p�$ �� x�$ �� ��$ *� ��$ �� ��$ �� ��$ �� ��$ �� ص$ �� �$ �� �$ 8� �$ �� H�$ � P�$ �� X�$ �� `�$ �� ��$ R� ��$ ]� ��$ g� ��$ *� ��$ q� ��$ r� ȶ$ z� ж$ �� �$ � ��$ L� �$ r� �$ *� (�$ � 0�$ � 8�$ � @�$ *� `�$ �� h�$ �� p�$ �� x�$ *� ��$ �� ��$ �� ��$ �� ��$ �� з$ �� ط$ �� �$ �� �$ *� �$ <� �$ �� @�$ @� H�$ A� P�$ F� X�$ ܭ x�$ �� ��$ �� ��$ � ��$ � ��$ �� ��$ �� ��$ � ȸ$ � �$ K� �$ L� ��$ P� �$ �� �$ �� (�$ Y� 0�$ �� 8�$ �� X�$ �� `�$ =� h�$ �� p�$ �� ��$ �� ��$ �� ��$ �� ��$ *� ȹ$ �� й$ �� ع$ �� �$ �� �$ �� �$ � �$ � �$ � 8�$ �� @�$ � H�$ � P�$ � p�$ "� x�$ 6� ��$ I� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� �$ �� �$ �� �$ �� ��$ �� �$ � �$ � (�$ $� 0�$ *� P�$ � X�$ � `�$ � h�$ �� ��$ e� ��$ k� ��$ p� ��$ �� ��$ t� Ȼ$ z� л$ p� ػ$ �� ��$ ~� �$ � �$ �� �$ Գ 0�$ � 8�$ (� @�$ � H�$ X� h�$ � p�$ (� x�$ � ��$ � ��$ �� ��$ �� ��$ �� ��$ �� ؼ$ J� �$ \� �$ �� �$ � �$ J� �$ \� �$ �� (�$ �� H�$ �� P�$ �� X�$ �� `�$ 1� ��$ 8� ��$ 9� ��$ C� ��$ �� ��$ �� ��$ �� Ƚ$ � н$ *� �$ � ��$ !� �$ +� �$ �� (�$ M� 0�$ \� 8�$ j� @�$ �� `�$ T� h�$ U� p�$ �� x�$ �� ��$ [� ��$ k� ��$ l� ��$ *� о$ z� ؾ$ �� �$ l� �$ *� P�$ L� h�$ L� ��$ *� ��$ � ��$ �� (�$ U� 8�$ � @�$ � `�$ �� ��$ �� ��$ �� ��$ %� ��$ � �$ �� �$ �� �$ =� ��$ p� �$ �� �$ E� (�$ @� 0�$ D� H�$ c� X�$ �� `�$ D� ��$ �� ��$ �� ��$ �� ��$ � �$ � �$ @� �$ (� �$ =� �$ @� �$ � 8�$ E� H�$ `� P�$ $� h�$ c� x�$ @� ��$ $� ��$ |� ��$ `� ��$ $� ��$ �� ��$ �� ��$ P� �$ /� �$ � (�$ � 0�$ `� H�$ =� X�$ �� `�$ |� x�$ E� ��$ P� ��$ N� ��$ ѿ ��$ �� ��$ N� ��$ |� ��$ @� ��$ N� �$ �� (�$ �� 0�$ �� `�$ � h�$ �� p�$ �� x�$ �� ��$ �� ��$ �� ��$ �� ��$ *� ��$ �� ��$ �� ��$ �� ��$ �� �$ ~� �$ �� �$ �� �$ ȳ ��$ )� ��$ � ��$ � ��$ *� ��$ � �$ *� 0�$ T� H�$ 6� h�$ =� ��$ *� ��$ � ��$ �� ��$ �� ��$ �� �$ � (�$ �� ��$ �� ��$ �� ��$ �� ��$ *� ��$ �� ��$ �� ��$ �� ��$ �� ��$ D� �$ S� �$ a� �$ *� 0�$ D� 8�$ S� @�$ a� H�$ �� h�$ �� p�$ �� ��$ 8� ��$ �� ��$ � ��$ �� ��$ �� ��$ �� �$ � �$ � �$ � (�$ *� H�$ �� P�$ ̷ X�$ ߷ `�$ �� ��$ �� ��$ ̷ ��$ ߷ ��$ *� ��$ <� ��$ �� ��$ o� ��$ {� �$ �� �$ � (�$ o� 0�$ {� 8�$ �� @�$ � `�$ @� h�$ A� p�$ F� x�$ ܭ ��$ �� ��$ �� ��$ � ��$ � ��$ �� ��$ �� ��$ � ��$ � �$ �� �$ �� �$ �� �$ *� @�$ �� H�$ �� P�$ �� X�$ �� x�$ ~� ��$ � ��$ �� ��$ ȳ ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� ��$ �� ��$ p� �$ �� �$ �� (�$ �� 0�$ p� 8�$ �� X�$ � `�$ !� h�$ +� p�$ �� ��$ T� ��$ U� ��$ �� ��$ �� �$ �� �$ @5 �$ �� 8�$ *� H�$ @5 P�$ �� h�$ �� x�$ � ��$ � ��$ � ��$ �E ��$ �� ��$ E� ��$ E ��$ � ��$ j� �$ @5 �$ �� (�$ � 8�$ @5 @�$ �� X�$ � h�$ PD p�$ � ��$ � ��$ C ��$ �� ��$ � ��$ ��$ $� ��$ �� ��$ > �$ �� �$ � (�$ �: 0�$ � H�$ �� X�$ P@ `�$ �� x�$ J� ��$ P( ��$ k� ��$ .� ��$ �> ��$ $� ��$ R� ��$ p2 ��$ 2� �$ �� �$ ! �$ �� 8�$ �� H�$ ! P�$ �� p�$ L� ��$ � ��$ �� �$ �� �$ �� �$ �� �$ *� @�$ �� H�$ �� P�$ �� X�$ �� x�$ �� ��$ �� ��$ 8� ��$ �� ��$ �� ��$ �� ��$ �� �$ *� �$ �� (�$ �� 0�$ �� 8�$ �� X�$ � `�$ �� h�$ �� p�$ �� ��$ R� ��$ ]� ��$ g� ��$ *� ��$ � ��$ L� ��$ r� ��$ *� �$ � �$ � �$ � �$ *� 8�$ <� @�$ �� p�$ @� x�$ A� ��$ F� ��$ ܭ ��$ �� ��$ �� ��$ � ��$ � ��$ �� ��$ �� ��$ � ��$ � �$ �� �$ =� (�$ �� 0�$ �� P�$ �� X�$ � `�$ � h�$ � ��$ �� ��$ � ��$ � ��$ � ��$ "� ��$ 6� ��$ I� ��$ �� ��$ � �$ � �$ � �$ �� 0�$ �� 8�$ �� @�$ �� H�$ k� h�$ e� p�$ k� x�$ p� ��$ �� ��$ t� ��$ z� ��$ p� ��$ �� ��$ ~� ��$ � ��$ �� ��$ Գ �$ � �$ (� �$ � (�$ X� H�$ � P�$ (� X�$ � `�$ � ��$ �� ��$ �� ��$ �� ��$ �� ��$ J� ��$ \� ��$ �� ��$ � ��$ J� ��$ \� �$ �� �$ �� (�$ �� 0�$ �� 8�$ �� @�$ 1� `�$ � x�$ �� ��$ �� ��$ �� ��$ � ��$ *� ��$ � ��$ !� ��$ +� ��$ �� �$ T� �$ U� �$ �� �$ �� @�$ [� H�$ k� P�$ l� X�$ *� x�$ z� ��$ �� ��$ l� ��$ *� ��$ )� �$ � �$ <� (�$ �� X�$ @� p�$ *� ��$ �� ��$ �� ��$ � ��$ *� ��$ T� ��$ M� �$ e� �$ �� 8�$ t� P�$ �� p�$ �� ��$ *� ��$ �� ��$ �� ��$ � ��$ �� h�$ �� ��$ �� ��$ T� ��$ �� (�$ )� @�$ � `�$ � ��$ e� ��$ �� ��$ t� ��$ �� H�$ )� `�$ � ��$ �� ��$ �� ��$ �� ��$ *� ��$ 8� ��$ �� ��$ � �$ *� (�$ <� 0�$ �� `�$ �� h�$ �� p�$ � x�$ *� ��$ e� ��$ �� ��$ t� ��$ �� H�$ )� `�$ � ��$ e� ��$ �� ��$ t� ��$ �� (�$ �� 0�$ �� 8�$ �� @�$ *� `�$ �� h�$ �� p�$ �� x�$ �� ��$ �� ��$ �� ��$ 8� ��$ �� �$ � �$ �� �$ �� @�$ <� H�$ �� x�$ @� ��$ A� ��$ F� ��$ ܭ ��$ �� ��$ �� ��$ � ��$ � ��$ �� ��$ �� ��$ � �$ � �$ e� 8�$ �� X�$ t� p�$ �� ��$ ~� ��$ ϳ ��$ �� ��$ �� �$ �� ��$ �� ��$ �U ��$ `I ��$ �O ��$ `J ��$ �M ��$ �� ��$ �v ��$ 0} ��$ pd �$ �{ �$ �c H�$ L� ��$ �� ��$ � ��$ � ��$ � ��$ � ��$ *� ��$ �� ��$ =� ��$ �� ��$ �� �$ T� �$ U� (�$ �� 0�$ �� �n$ � �n$ � �n$ s o$ o$ j o$ � o$ � o$ e (o$ � 0o$ a 8o$ � @o$ Ho$ � Po$ � Xo$ `o$ � ho$ c po$ { xo$ �o$ � �o$ � �o$ � �o$ � �o$ �o$ % �o$ � �o$ �o$ + �o$ � �o$ � �o$ / �o$ ` �o$ 3 �o$ � �o$ t �x$ �x$ � y$ � hz$ � y$ � (y$ L xz$ L 8y$ � Hy$ � Xy$ hy$ � xy$ 6 �y$ C �y$ � �y$ �y$ � �y$ � �y$ � �y$ � �y$ m z$ � z$ i (z$ � 8z$ p Hz$ r Xz$ �$ � (�$ � А$ � ��$ � �$ � x�$ � �$ � ��$ � `�$ � �$ � ȗ$ � X�$ x�$ = ��$ � ��$ E (�$ ر$ � X�$ ��$ � �$ � p$ � p$ (p$ 0p$ ? 8p$ 9 @p$ � Hp$ � Pp$ � Xp$ � `p$ hp$ � pp$ � xp$ �p$ �p$ � �p$ � �p$ < �p$ �p$ �p$ �p$ d �p$ �p$ 8 �p$ � �p$ �p$ q �p$ �p$ v �p$ ] q$ � q$ q$ � q$ � q$ � (q$ � 0q$ 8q$ @q$ � Hq$ Pq$ y Xq$ `q$ hq$ pq$ � xq$ � �q$ b �q$ � �q$ � �q$ N �q$ �q$ � �q$ w �q$ l �q$ g �q$ � �q$ �q$ �q$ � �q$ � �q$ �q$ @ r$ z r$ Z r$ � r$ r$ � (r$ � 0r$ 8r$ @r$ � Hr$ � Pr$ G Xr$ F `r$ � hr$ � pr$ � xr$ � �r$ � �r$ �r$ n �r$ � �r$ � �r$ A �r$ � �r$ Y �r$ �r$ � �r$ ; �r$ � �r$ �r$ �r$ h �r$ � s$ � s$ s$ ^ s$ � s$ M (s$ D 0s$ o 8s$ } @s$ � Hs$ [ Ps$ _ Xs$ P `s$ B hs$ ps$ > xs$ � �s$ � �s$ � �s$ V �s$ � �s$ �s$ �s$ H �s$ �s$ � �s$ S �s$ �s$ k �s$ �s$ �s$ �s$ � t$ � t$ t$ � t$ t$ (t$ 0t$ Q 8t$ � @t$ � Ht$ � Pt$ W Xt$ T `t$ � ht$ pt$ xt$ : �t$ u �t$ � �t$ �t$ � �t$ � �t$ | �t$ ! �t$ " �t$ � �t$ � �t$ # �t$ � �t$ � �t$ $ �t$ � �t$ O u$ � u$ x u$ � u$ � u$ � (u$ � 0u$ 8u$ � @u$ � Hu$ & Pu$ ' Xu$ ( `u$ X hu$ ) pu$ I xu$ * �u$ � �u$ ~ �u$ U �u$ � �u$ � �u$ � �u$ , �u$ f �u$ � �u$ - �u$ � �u$ . �u$ �u$ 5 �u$ � �u$ / v$ � v$ 0 v$ 1 v$ � v$ (v$ 0v$ 2 8v$ � @v$ � Hv$ K Pv$ 4 H��H��y# H��t� H��� �52z# �%4z# @ �%2z# h ����%*z# h �����%"z# h ����%z# h ����%z# h ����% z# h ����%z# h ����%�y# h �p����%�y# h �`����%�y# h �P����%�y# h �@����%�y# h �0����%�y# h � ����%�y# h �����%�y# h � ����%�y# h ���%�y# h ����%�y# h �����%�y# h ����%�y# h ����%�y# h ����%�y# h ����%�y# h ����%zy# h �p����%ry# h �`����%jy# h �P����%by# h �@����%Zy# h �0����%Ry# h � ����%Jy# h �����%By# h � ����%:y# h ���%2y# h ����%*y# h! �����%"y# h" ����%y# h# ����%y# h$ ����% y# h% ����%y# h& ����%�x# h' �p����%�x# h( �`����%�x# h) �P����%�x# h* �@����%�x# h+ �0����%�x# h, � ����%�x# h- �����%�x# h. � ����%�x# h/ ���%�x# h0 ����%�x# h1 �����%�x# h2 ����%�x# h3 ����%�x# h4 ����%�x# h5 ����%�x# h6 ����%zx# h7 �p����%rx# h8 �`����%jx# h9 �P����%bx# h: �@����%Zx# h; �0����%Rx# h< � ����%Jx# h= �����%Bx# h> � ����%:x# h? ���%2x# h@ ����%*x# hA �����%"x# hB ����%x# hC ����%x# hD ����% x# hE ����%x# hF ����%�w# hG �p����%�w# hH �`����%�w# hI �P����%�w# hJ �@����%�w# hK �0����%�w# hL � ����%�w# hM �����%�w# hN � ����%�w# hO ���%�w# hP ����%�w# hQ �����%�w# hR ����%�w# hS ����%�w# hT ����%�w# hU ����%�w# hV ����%zw# hW �p����%rw# hX �`����%jw# hY �P����%bw# hZ �@����%Zw# h[ �0����%Rw# h\ � ����%Jw# h] �����%Bw# h^ � ����%:w# h_ ���%2w# h` ����%*w# ha �����%"w# hb ����%w# hc ����%w# hd ����% w# he ����%w# hf ����%�v# hg �p����%�v# hh �`����%�v# hi �P����%�v# hj �@����%�v# hk �0����%�v# hl � ����%�v# hm �����%�v# hn � ����%�v# ho ���%�v# hp ����%�v# hq �����%�v# hr ����%�v# hs ����%�v# ht ����%�v# hu ����%�v# hv ����%zv# hw �p����%rv# hx �`����%jv# hy �P����%bv# hz �@����%Zv# h{ �0����%Rv# h| � ����%Jv# h} �����%Bv# h~ � ����%:v# h ���%2v# h� ����%*v# h� �����%"v# h� ����%v# h� ����%v# h� ����% v# h� ����%v# h� ����%�u# h� �p����%�u# h� �`����%�u# h� �P����%�u# h� �@����%�u# h� �0����%�u# h� � ����%�u# h� �����%�u# h� � ����%�u# h� ���%�u# h� ����%�u# h� �����%�u# h� ����%�u# h� ����%�u# h� ����%�u# h� ����%�u# h� ����%zu# h� �p����%ru# h� �`����%ju# h� �P����%bu# h� �@����%Zu# h� �0����%Ru# h� � ����%Ju# h� �����%Bu# h� � ����%:u# h� ���%2u# h� ����%*u# h� �����%"u# h� ����%u# h� ����%u# h� ����% u# h� ����%u# h� ����%�t# h� �p����%�t# h� �`����%�t# h� �P����%�t# h� �@����%�t# h� �0����%�t# h� � ����%�t# h� �����%�t# h� � ����%�t# h� ���%�t# h� ���%�t# h� ���%�t# h� ��%�t# h� ��%�t# h� ��%�t# h� ��%�t# h� ��%zt# h� �p�%rt# h� �`�%jt# h� �P�%bt# h� �@�%Zt# h� �0�%Rt# h� � �%Jt# h� ��%Bt# h� � �%:t# h� ���%2t# h� ���%*t# h� ���%"t# h� ��%t# h� ��%t# h� ��% t# h� ��%t# h� ��%�s# h� �p�H� �# H�=�# UH)�H��H��w]�H�|l# H��t�]�� @ H���# H�=��# UH)�H��H��H��H��?H�H�u]�H��l# H��t�]H��� @ �=��# u'H�=�l# UH��t H�=j# ����h���]���# ��fffff. � H�=�h# t&H��l# H��tUH�=jh# H���]�W��� � �K���f. � �USH��H��H�hH�-�k# H��tH�E �P0H�E H��H�@0H��[]��ffff. � ATH�W 1�UH��H�5z� SH���q���H�: H�5c� 1�H��L�`@�U���H��H��A��H��tH�@[]A\�f D 1��� @ AWAVAUATUSH��hH� k# dH�%( H�D$X1�H�t$ H�|$L�d$@H�H�t$��� H��H�D$� H�D$H�hH�}H��tH��P0H�} H��tH��P0�U(E1�E1�H�}0���� @ N�<7M���� I�H��tH��� H9�tH��R0I�H��tH�r� H9�tH��R0I�H��tH�W� H9�tH��R0I� H��tH�<� H9�tH��R0I�(H��tH��R0H�L���R0H�}0A��I��D;m(�Y���H��tH��P0�E8E1�E1�~ �H�U@H�A��J�<2I���P0D;m8|�H�}@H��tH��P0L�m`L���Y���L��L�����H�|$H t$f D L��L���%���L��L���:�H�|$H u�L��� L������L��L�����L�t$HM��tCf D L��L������H�I�~�P0H�I�~�P0H�L���P0L��L�����L�t$HM��u�H�}XH��t�-���H�H��P0H�H�|$��p H�H�|$�� H��H�D$���L�|$H�L����x H�L���P0H�D$XdH3%( uH��h[]A\A]A^A_��\�fff. � AVA��1�AUI��H�=���ATUH��H�5`� SH��H��dH�%( H�D$1��C�H� ���H�55� 1�H��L�`H�'�H�T$H��H��A�ԋT$���� �� I���P���H��H��H�@ D�p����H�{`H�CH�C �C( H�C0 �C8 H�C@ L�kHH�CX �Cx ���H��� ���I�\$H��H�L$dH3 %( uKH��[]A\A]A^�f�L�%Qg# H��I�$��� M� $1�E1�H� X� H��H�5Z� H��A��@ 1����ffffff. � AWAVAUATI��H��UH��S��H��(dH�%( H�D$1�H��f# H�L$H�T$ H� ��� ��A��u~�D$ E1�E1���#�Qf D ��t[��u�A��I��D9t$ ~0H�D$L��H��J�8��H��t\��uǀA��I��D9t$ �H�Vf# H�|$H� �P0���� A� H�L$dH3 %( D��u)H��([]A\A]A^A_�H�f# H�|$A� H� �P0������AWAVAUA��ATUH��SH��(��H�L$�� H�D$H�5� H��L�`L���s���H��tFH��e# E1�H� %� L��H�5֟ H��L�1�A��@ A� H��(D��[]A\A]A^A_� @ L�=ie# H�KA� H��� L��H��I���� I�H�K A� H��� L��H��� I�H�KA� H�|� L��H��� I�E1�H��H�)e# L��H��� H�D$H��H�D$A�E���D$�� �K(E1�E1���� D�l$ E��M���f � A��I��D;k(�� H�C0J� 0�u�L�AA� �$ L��H��H�����t�f D H�sH� ۞ E1�E1�H�$ L��H���t��A��uu�C(E1�E1����. D�T$H�l$�A��I��D9s(� H�C0J�,(�E t�I�H�U� L��H�|$��� H�|$I��H��L��H��� ���t� @ A� �/��� D D�l$ �T$���?���A��H�D$L�t$A��I��N�l( �7 M�FE1��$ H��L��H��H����������I��M9����I�H��H����H��u����� @ H�T$H��(H��[]A\D��L�j� � A]A^A_��f D D�T$H�l$I�D�T$� L��H��P D�T$�M��� HcD$H�|$E1�M�H� � H�5!� H�T�H��1�A��@ �<��� @ AWAVI��AUI��ATU��SH��H�� L�aL�dH�%( H��$� 1�H���H�D$�� H�Ib# H� ��X L����L��H��L��H�D$�M�H���� H�T$<I�N�u�L��H�$H�T$I��H�L$ �t$,A��H��L���"���A��uCH��a# H��H� ��� D��H��$� dH3 %( �V H�Ę []A\A]A^A_� @ �t$<��u��D$� H�=�� H��L��H�� HN�H9���G H��� H�=D� HN�L��H9���m �KA� ���Y���H�� H�=ԛ L��HN�H��H9���9���H�a# L��H� ��� ���� M�fL���L�H�PH��<�� L�|$@H� �� M��H������ 1�L��� �H��`# � L��H�t$L��H� ��� I��M���� ���� H�T$ �t$,L��M�f�/�A����� � L�� � L���L������}���f�H�T$L��H��L��� �A���J��� D H�!`# L��H� ��� ���� ��t`L�D$ �L$,H��H�T$L����A������f D H��_# L��H� ��� ��t=L�^� � L���L���7�A������I�NH�T$H��L����A�����I�NH�T$H��L����A�����H�T$H��L����A���t���L�� � L�� L�����A���P���H�,_# �xH��R(M�FH� ř I��H��H������ 1��G�H��^# � L��H�t$L��H� ��� I��H�D$@I9��0���H��^# L��H� �P0����H��^# � L��L��E1�H� ��P ���H��^# I�VE1�H� �� H�5,� L��A� L�1�A��@ �}����C� H��H�GI��H��tQH�PH��u �n D H��H�BH��u�H�%^# H�RE1�H� � H�5� L��L�1�A��@ � H���H��]# 1�H�5�� L��H�1���@ � H���H���f�AWAVI��AUATUSH��H��� H�<$H�L$(I�~H�t$@dH� %( H��$� 1ɋJ�L$��I�v0H�C H�kH��t �> �. �D$h H�D$p E1�H��tDm8B�<� D�k8��D�T$hH�C@E���X I��E1�E1�� L�c@H�D$pM�A��J�<8I����D;t$hI�$|�Mc�I��E9�~2 @ D��+T$hH�E@M��L{@A��I��Hc�H�<����E9�I�u�H�|$pH��tL�%�\# I�$�P0H�D$(H�pH�CH��H�D$t �> �� �D$\ H�D$h 1�H�L$H���� �q(Ɖt$H�C(�D$H�<� ��D�L$\H�C0E���� L�t$pH�L$`1�L�%\# L�t$ H�L$L�4$� D �����l �8 �R�� �I��H�@0 H�D$pH�8���I�EH�D$pH�x���I�EH�D$pH�x��I�E H�D$pH�x���|$`I�E�� I�E( H�|$pH��tI�$�P0M��M�/�� �EH��9D$\�� H�C0L�<�H�D$hH�L$ H�T$L��L�,�I�$H�D$p L��� ���� D�D$�D$`E����������wv�8 �\�� �I��H�@0 H�D$pH�8���I�EH�� I�E I�EH�D$pH�x���|$`I�E� ���� H�T$pH�<��I�E(� ��� D I�$L����� M�$L��E1�L��� H�o� H�5{� L��1�E1�A��@ ����E1���� � L�%1Z# H�L$hL�t$pH�<$H��L��I�$��� �¸ ��uD�l$h���1� @ H��$� dH3 %( � H��� []A\A]A^A_� � � ����L�%�Y# H�T$\H�L$hH�<$I�$��� �¸ ��u��D$\�$��� H�|$ �� H�D$�x(���� �C(H�D$ �D$ H�\$0�D$L � �\$\H�D$0��H�h0�� H�L$H�D$E1�HA0L�(H�D$8M�e� @ I��D9��� N�t� L��I�~����u�I�u I�~ � ���uLI�uI�~����u;A�U A�H�L$8���� �A�H������ �A�H������ �A�H�D$�D$ H�D$�L$ ;H(�,���H�\$01�t$L9t$HtL�%\X# ��H�{0I�$�P8H�C0H�|$hH��tL�%9X# I�$�P0���B H�D$(H�0H��t �> �N �s(���� L�t$pL�%�W# E1�L�t$ D H�C0H�{N�4�I�v�S�H�<$H�5 � 1�1�H�����H�<$H�5�� 1�1�L�xH���H�T$H��H��A��L�pI�$H��P0�C(A�UI��9�|���~B1�� ��EH��9C(~1H�C0L�$�A�$t�I�T$H�<$H����I�D$0�EH��9C(�H�D$(H�P@H��t �: �� H�D$(H�P8H��t �: �� H�D$(H�P(H��t �: �� H�D$(H�kH�pH���h �> L�%�V# � H�D$(H�HHH��� I�$A� H�� H�t$@H�<$��� L�t$@L�<$A� I�$H�א L��L��L����� H�l$(I�$A� H��� L��L��H�M��� I�$H�M A� H��� L��L����� I�$H�M(A� H��� L��L����� I�$H�MA� H�p� L��L����� I�$H�M0A� H�X� L��L����� I�$A� H�M@H�?� L��L����� H�}X I�$A� �� H� &� H�ڑ L��L����� �T$I�$A� ��� L�4$H� � H�� H�t$@L����� I�$H�sE1�H��H�PU# L����� H�SH�<$H� �� H�5�� E1�1��O���� L�t$p�Cx H��`L����L��H���D�H�l$xL�$$H��u@�����H�}XH��t��H�EX L��H���_�L��H���t��H�l$xH�������H�MXH�uH��L�������t��z���H�D$H�L$H�@0L�, � �8 ��H��A�E I�}����� A�E ��� A�E ��� A�E ��� �H����� H�� H9��� ���H�CI�}H��� H�� H9��� ���H�CI�}H���� H�Ρ H9��� ��H�CI�} H���� H��� H9��� ��H�C I�}(H���a �j�H�C(HcD$LH�C0 H�\� H�D$0�H(�L$8���L$L�H(���H�D$`M� $E1�H�<$H� j� H�5�� J�01�A��@ I�$H�|$h�P0H�|$`H��tI�$�P0�� ���f D � ���E1�����L�%�R# H�L$hH�T$\H�<$I�$��� ��u��D$\H�{0�D$�C(D$I�$D�t$B�4� �P8D�k(H�C0E9��� Mc�H��L�t$pH�D$`I��D��M��L�t$ H�D$� D A��I��D;l$�O �S(D��I�$L�)�H�T$hH�<$Hc�H�4�H�T$H�L$ ��� 1҅�uq�|$`uj�8 �O�I��� �����A�H�D$pH�8���I�FH�D$pH�x��I�FH�П I�F( I�F0 I�F I�FI�$H�|$p�P0L��H�U H�k0J�|= �3���I�$H�|$h�P0�z����D$H� ���L�4$H�t$@H� � H�ٌ L����� I�$H�sE1�H��H� Q# L����� ���H�1� H�C� ���H�C( ���H�� H�C �u���H�� H�C�?���H�� H�C� ����C(�D$L�N���I�$H�L$`H�T$XH�<$��� �������H���� L�t$pH��L���K��L��H�����L�|$xM��tkH��� H�\$H��L��M��I�ǿ ���I�|$I���G��I�|$I�E�9��1�I�EL��H�����L��H������L�d$xM��u�H�\$M���L$X���* H�D$h1�L�l$pH��� H�\$0H��H�D$ H�D$\H�D$ D H�T$`I�$L�4� H�L$ H�<$H�4�H�T$��� ��������|$\�[���L��M���I��L��H��H�l$����L�|$xM��u�T D �3��L�|$xM��t@H�D$hI�wH�8�h����L��H��u�����I�$I��P0I�$I��P0I�$L���P0� �o��I��H�D$hH�8���I�GH�D$hH�x����1�I�GL��H���\��I�$H�|$h�P0�CH��;D$X���H�\$0I�$�����H�=�� H��$� ��� H��$� � �����I�$H�=�� ��� H��$� � �����I�$H�=�� ��� H��$� � L�����H�|$L�����L�l$xM���� H��L�<$L��I���7 D H��$� �������� H�|$L������H�l$xH���� I�$�����H�='� ��� M� $1�H��$� H��H�U1�H�s A��� I�$H�}�������� H��$� H��$� � � L���L�� I�$��0 ���Y H��$� �������4���I�$�� �%���H�<$� H��� ���������/���H�<$1�H������������H�<$� H��������������D$H�|$h�C(I�$�P0��H� l� H� � H�t$@H�<$��� �)���I�$A� H� �� H�� H�t$@H�<$��� ����L�%qL# ���I�$�� �d���H��$� �������� H��$� �������� H��$� ������~eH�|$`H���>���I�$�P0�2���I�](L��H�} ������~H��H9�u����I�$�� �����H��� L�t$pH�D$����I�$�� �I�$�� �m���I�$�� �G��� D AW��AVI��AUATI��H�='� UH��SH��( H�1L�y� dH� %( H��$ 1��A����A)Ճ�E��uyH�5b� L������H���� H�K# A� E1�H� �� L��H�5dž H��L�1�A��@ H��$ dH3 %( D���% H��( []A\A]A^A_� D L�p� L�� ��H���'��A���f��p ���H��H��� I�vH�KhH�Ch H�S`H�H�CH��H�CH�CH�C H�C(H�C@H�C0H�C8H�CPH�CHH�CXH�7J# H� ��� ���N HcS`��� � ��)ȃ��� ���l H�Kh��L�� ��A� A� H��A� H�AL�\� H�H�H��L9��% H�P�L��L��H���t�H�=�� H��L���uH�H�S��f. � H�=�� H��L���uH�H�S�f D H�=y� H�ֹ �u H�H�S� @ H�=ރ H�ֹ �� H�=K� H��L����X H�H�S(�F���H� I# E1�H� � H�5� H��L�H�ChH�T�1�A��@ � H�{hH��tH��H# H� �P0H�Ch H��H# H��A� H� �P0��� � 1�E��L����H��D$ � ��H��I���h E�uxE��uXH�sHH��t �> �� I�E H��H��L��L���y�H�߉�A���|��I�EX �>��� � H�H�S �J���H� H# H��H� ��� H��G# E1�H� � L��H�5� H��L�1�A��@ H��A� �������H�=� H�ֹ �ufH�H�S0����H���%��H���� �xxI�E�4���H�x`1�L��� ��H�qG# I�uE1�L��H��G# H��H� ��� I�]X�b���H�=x� H�ֹ �u H�H�S8�b���H�=c� H�ֹ �u/H�H�S@�C����L$ L��L��H�����H��I���z�������H�=)� H��L���u H�H�SH����H�=� H�ֹ ��� H�H�SX������H�CHH��H��H�D$���H����H��F# H�T$ H��H��H�T$H� ��� H�t$H�҂ 1�1�H��������� H�t$H������H�D$H�.F# H��H�t$H���� H�D$H���{���H�sH�L$ L��H�����H���_�������H��E# E1�H� -� H�51� H��L�1�A��@ ���H��E# H�t$H��H� ��� �USH��H��H�wH�=��# ��# H��tqH�-�E# H��H�U ��p H�E H�sH�;��� ��t(H�{ H�E tMH�5� H�;�� H�E H�;��p H�E H�{�P0H�E H��H�@0H��[]��f�H��[]�f � H�5 � H�;�� �fffff. � AUATUSH��(dH�%( H�D$1��>t!H�D$dH3%( �� H��([]A\A]�f�L�%�D# H��H��H�=��# I��I�$��� H��u � � I�$L�� H��t�H�XH;ku�I�$H���p I�$H��H�=������� I�$H�{�P0I�$H��P0���� � �>t ��f � AUI��H���L�� ATUSH��H��C# H�H� ��� I�uH�=��# ���# H��H�-�C# t H�U H���p I�]H��u%�c H�E L�cH�;�P0H�E H��P0M��tCL��H�E H�3I�} ��� ��t�H�E I�} H�5�� �� H�E I�} ��p �f D H�E L��H�@0H��[]A\A]��H����D��H� �� H�=��# �$D�κ 1�� �?�����# H���# ��u�! H�����t�� u�� 0H�����u�H�S�# H���fffff. � �������*�H��(dH�%( H�D$1�f����Y��D,��*�A���� �Y�DO�fD�D$�,��*Ɂ��� �Y�O�f�t$ H���,с��� N�f�D$ H� B# H� ��� H�|$dH3<%( uH��(� D ����ff. � AWAVAUI��ATA��USH��H��� ��# dH�%( H�D$1����� H�+H������ H��H�=� HN�H��H9��� A��L�� �% H�^A# L��H� H��x ��� H�sH��L���H��H���K L�5LA# A�|$�H�sI��� H�T$I��H��H�=@�# ���# �T$I��I����� � �P(H��L�(L�`H�hH��I�Gt?L�%�@# H��H������ H��I�$��� I�$H��H����� H��0 I�H��H�=������� 1�H�L$dH3 %( �� H��[]A\A]A^A_�f�1�A������L��~ D � H��D��L������� L��P01��f D H�1@# 1�H�=@�# H� ��� �ŷ# �M��� � � �a��������AWAVAUATUH��SH���H��(dH�%( H�D$1���t=L� ~ � H��H���>��H�L$dH3 %( �, H��([]A\A]A^A_� L�5i?# H��I�L��x ��� H�uH��H��A��H��I���� ��# L�=P?# ��tTH�T$L��H�=��# �7�# H�D$��u\L�bI�� �P(H�}H�����H�I�D$H�CI�\$1��C����I�� H�=��# ��� ���# � � I�H�T$� �P(H�T$I��H�L�hH�@ L�� L��H�BI�H�x�����0 �]��� D � ����Y��f � AWAVAUATUH��SH���H����t%H��H��H��[]A\A]A^A_L�~| 1���� L�%># H��I�$��� I��I�$H�}��� I� $H��L��H���� H��H���� �H �P L���p�}} � ���H��I���� �M �U L���u�]} ���H��I���� L�=�=# H��I���� I�A�U A�u A�}H��8 H�L$�6���H�L$H��H���A�V A�v A�~I�L��8 � ���H��H��A��I�$H��0 I�$L��0 I�$L����0 H��1�[]A\A]A^A_�f. � H��� []A\A]A^A_�fff. � AW��AVAUI��ATUSH��H��HdH�%( H�T$81҃�H�D$( H�D$0 ~2H�qH�=�z � ��� H���H���D$ H���tAL��z � H�ډ�L������H�\$8dH3 %( �� H��H[]A\A]A^A_� D H�<# H�L$0H�T$$H�sL��H� ��� ��tKL�t$(� M��tH��;# L��H� �P0H�|$0��H��t�H��;# �\$H��R0�D$�n���f D H��;# H�L$(H�T$ H�sL��H� ��� ��u�HcT$ ��� � ��)ȃ��� ��L�t$(�� H�D$ f. � �D$$H�L$H�T$0H����H�L$I�,� ��I��L�d�� I��M9��� I�7H���(����u�H��:# H�T$E1�H�sL��H� I�LH��� L�t$(H�D$H�D$�D 9D$ �o���1����� � �D$ �=����L$���� �D$$H�L$(H�\$0��H�l��� ��L�d��f�H��L9��� H�3H���x����u�H�E:# H� "v H�5%v E1�H��L�L��1�A��@ �*��� D �D$���<���H�:# L�CL� rx H� nx H��H�5xx L��L�H�$ 1�A��@ ����H��9# E1�H� � H��H�5Ax L��|���H�D$(H�l��O����~��fffff. � AWAVAUATUH��SH���H��dH�%( H�D$1���tEL��w � H��H������A��H�L$dH3 %( D��� H��[]A\A]A^A_� D L�-�8# H��I�E ��� H��I���� I�E H�uL��H��A� ��x H��I��t�I�E H�uL��H���x H��I��t"�L$L��L��H����A���]��� � L�5�8# H�T$H�uH��I���8 ��t�I�H���� M�H�UE1�H� �u H�5�� H��1�A��@ � ��� H�98# 1�H�5�u H��A� H� ��P �������fff. � AVAUATI��UH��S��H�� dH�%( H�D$1��B���vDL��u 1�L���H���N��A��H�L$dH3 %( D���� H�� []A\A]A^� � L�-�7# I��H�T$H�qH��I�E ��8 ��t A� � @ I�E H�T$ I�t$H��8 ��u�I�E H�T$I�t$H��8 ��u�I�E H�T$I�t$ H��8 ��A��u�H��6# ��H� t&H��� I���L$�T$�t$ �|$����� ���I�t$(L��H��x H��I��u��M������ @ AUI����H��ATUSH����uiL�aH� .3# 1� @ H�3L�������ti��H����u�H�n6# L��L��E1�H� �� H�5�t L�1�A��@ H��� []A\A]� H��L��L��t []A\A]� ���f�H�6# H�5�2# H���D$ L��H�4.H� 1��P �D$ H��[]A\A]�f � SH���'���H��5# H�xH��R(H��H��諽��[�f � AW1�AVA��H�5Xu AUA��ATI��UH��1�SH��L�=|5# L�D$I���@ E��~>1�E���5 � A9�~(M���H�u 1�1�H�̆ L��H��A��@ A9��M�H�t$L��1�1�H��s A��@ H��� []A\A]A^A_�f�H��H��4# H��E1�H� �p H�5�p L�1�A��@ � H���ff. � AVL�5�4# H��E1�1�H� �t AUI��ATI��H�5 s USM�A��@ A�|$8�� 1�H�5�� 1�� f�H�5� I�D$@M�1�L���H�(1�H��A��@ A�D$8�P�9�̃�~I�1�H�5�� L��1���@ A�D$8��~ I�D$@I�Hc�1�L��H�4�1���@ []A\A]� A^�1���f � USH��H��H�-�3# H�H�E �P0H�E H��H�@0H��[]��f��>t �f. � USH��H���GtH��[]�f. � H�wH�=�# �?�# H��H�-]3# t H�U H���p H�E �KH��H�5d���H��0 H��[]�� D ATUS�GH��t []A\�f D H�GH��H�wH�?H��r E1�H�HX1��5����L�%�2# uJH��H�=p�# ���# H��t I�$H���p I�$�KH��[]A\H��0 H�5�����f � I�$H�;H�5�r �� I�$H�;��p �ffff. � USH��H���GtH��[]�f. � H�GH�wH�4r H�?E1�H�HX1��p����t�H�- 2# H�;H�5kr H�E �� H�E H�;H��p H��[]��ff. � AWAVAUATUH����SH��H��dH�%( H�D$1���t=L��o � H��H���.���H�L$dH3 %( �4 H��[]A\A]A^A_� L�5Y1# H��H�qH��I���x H��I���� �̩# L�%M1# ���� H�T$L��H�=Ω# ��# I�NjD$��tmI�$� �P(L�hH�(I��H�{����I�D$I�L��A�d$�H�5F8# L��M�g��� I�L��H�,���� L��0 1����� � I�oI�$H�}�P0H�{訿��H�E1���� D I�$� H�=�# ��� ��# �&��� � ����A����AUATUH��SH���H��(dH�%( H�D$1���t9L�0p � H��H��袽��H�\$dH3 %( �� H��([]A\A]� L�%�/# H��H�qH��I�$��x H��I��t I�$H�L$H�UL��H���P ��t� �f � I�$H�L$H�UL��H���P ��u�I� $�D$ L��T$�t$��� �D$ �O����L���fff. � AUATUH��SH���H��8dH�%( H�D$(1���t9L�Lo � H��H��袼��H�\$(dH3 %( �� H��8[]A\A]� L�%�.# H��H�qH��I�$��x H��I��t I�$H�L$H�UL��H���P ��t� �f � I�$H�L$ H�UL��H���P ��u�I�$H�L$ H�U L��H���P ��u�I�$H�L$$H�U(L��H���P ��u�M� $�D$ L��D�D$$�L$ �T$ �t$A�� �D$ � ������� � I���H�ʃ�tL�@n � L������ � SH� �-# H��H�qL��H���x H�Ǹ H��t H���� 1�[� I���H�ʃ�tL��m � L��� ��� � H��H�e-# H��H�qL��H� ��x H��� t H�8�h���1҉�H���ffffff. � I���H�ʃ�tL�pm � L��鯺�� � SH� �,# H��H�qL��H���x H�Ǹ H��t H���� 1�[� AUH�5um 1�ATUSH��H��8dH�%( H�D$(1��e���H���� H�5Cm 1�H���;���H���r H�-�,# H�&m H�5%m H��H�E ��� ���H ���# ���b L�%;,# H�E � H��l H�5m H���x H�E � H��l H�5�l H���x H�E � H��l H�5�l H���x I�$H���� H�5�5# 1�H��H��貳��I�$H��H� �# ���# H���# H���# H���# L��� ��� E1�1�H��3# �$ L� ��# H��H��A�Չ¸ ���; H�E H��L�l$A� H� }�# H�"l H�5$l ��� D�j�# H� y{ L�� � 1��W���H�E L��H��A� H��k H�5�k ��� H�E H��A� H� �# H��k H�5�k ��� H�E H��A� H� ��# H��k H�5�k ��� H�E A� H� �# H��k H�5ik H���� I�$H��L��` ��� 1�H�H�5��# H�=�2# A��H�E � �����H�5�1# H���( ��� H�L$(dH3 %( �� H��8[]A\A]� @ L�%�)# H�=�j ��# I�$��� H�O*# H�={j H�I�$��� H�D*# H�=ej H�I�$��� H�a*# H�=� H�I�$��� H��)# H�=3j H�I�$��� H��)# 1�H�=�)# H�I�$��8 I�$H�=2*# ��@ I�$H�=Q)# ��@ �ָ�������� ���ff. � H��H� )# 1�H��k H�5l L� 1�A��@ � H���f. � D � H�G H�G �f � H�FH��t6H9�t/Hc� D H9�t H�H��u�H�FH�H�VH� ���H�VH�VHc�� @ �g��ff. � H�FH��tH�BH��B����B�f��BH� H�B ����B� H�BH��t�J��uHcH�H�H�B��f D ��JÐH�BH��t=�Bu7H�NL�FL9�t4H9�tOL9�tbHcH�<H�H�<H�H�H�B�.�J�� � H�F H�F H�B ��f D HcH�H�FH�BH�� @ HcH�H�FH� H�B �fff. � UH��SH��H�����t>H�IH��t+H�vH;stKH9�t^HcH�u H�H�uH�4 H�U ���H��[]� 1�� ���H�CH�E H�EH��[]�f D HcH�SH�4 H�U H�U� Hc7H�SH� 2H�U H�U� AWM��AVI��AUI��ATUH��SH��H��8dH�%( H�D$(1�M���� A�G�� I�G�D$ H��t^E1��+f � E��u"M9wtEL��H��H���w���I�GH��t.L9�u�L��H��H���˲���D$ M9wA� u�f. � H�L$(dH3 %( �D$ u<H��8[]A\A]A^A_� D L��H��H��蚱���V���L�d$L��M���մ���6����{���ff. � AUI��ATI��UH��SH��H���At\H��L��H���F���H�CH��u �3 H��L��H��蚵��H�CH��tL9�u�H��� []A\A]� @ H��1�[]A\A]� H�����fffff. � AUI��ATI��UH��SH��H��(dH�%( H�D$1�H��te�CtGH��L��L��H�������tH��L��H���l���� H�L$dH3 %( u4H��([]A\A]� @ H��L��H���Z���� � H��H��蕳����>���f. � @ AUI��ATUSH��(H�-4$# dH�%( H�D$1�H��I��H�E ��� H��H��t6 @ H�{H��tH�U �R0H�E H���p H�E L�� H��H��u�H�E L��x H�E L��P0H�D$dH3%( u H��([]A\A]�臭�� � AU� I��H��] ATUH��SH��L�%u## I�$��� H��H��tH��H��[]A\A]�I�$H��� M� $E1�H� �� L��H�5sf H��1�A��@ �f. � AU� I��H�b^ ATI��USH��H��H�-�"# H�E ��� H��t3�8 tI�E 1�H��[]A\A]� D I�E H��1�[]A\A]� H�E H���� L�M 1�E1�H� �e L��H�5�e H��A��@ � �AUI��ATUH��SH��軫��H��I��谫��H�Q"# B�| Mc�H��R(L��H��H���-���J�|#�: H��fB�#����H��H��[]A\A]� � AUATUH��H��H��SH��XdH�%( H�D$H1��H���H� �!# I��H��L��H��H��� ��A��t=H�L��P0H�1�1�H��P H�L$HdH3 %( D��uNH��X[]A\A]�f D H�5�d 1�1�L��H��貳����u�H�H��� ���1u�PE1��A����&���f D AVAUATI��H��UH��SH��L��H�� dH�%( H�D$1��p���H�����H�5wd 1�H��I������H�����H�5\d 1�H��L�hH���H�T$ L��H��A��I��H�� # L��H� �P0�D$ ��u(I�EH�L$dH3 %( uH�� []A\A]A^� � M��L�d$tVL��L�d$�" @ H�t$L��H���p�����u,H�t$H��t"H��H�������t�H�|$H��t�4���� f�1�� @ 1�I�E�q������ � AT��H�ʃ�USH��H�iH�qt ��H��L�mc []A\� �]��� D H��H���m���H��tHH��H��� ���H�-� # I��H��H�E ��� H�M H��1�1�L��@ H�E L��P0[]1�A\ÐH�q # 1�H�5�m H��H� ��P ��f�AWAVI��AUATA��USH��� dH�%( H��$� 1���H�|$� ���6 H�\$ L�= # H�\$A�D$�E1�H�,� H�D$f. � I�K�<.�������� J�+I��� I9�u�Ic�L�t$D��H�� I�� H��H��L����0 A��I�L����� H�D$L�l��f � H��L9�t'H�} �������I�H���� L9�u�f D H;\$t I�H��P0H��$� dH3 %( D���~ H��� []A\A]A^A_� @ L�= # �<� I��P(H��H�D$ H�D$����H� � # Hc�L�t$H�D� H�T$ � H�L����0 A��H�L����� �h���胧�� AWI�Ϲ AVI��AUE��ATI��H��W L��UL��SH��(H� e # H�|$H���� H��� H���N���H��H�D$�� H�L��A� H��W L��H�|$��� L��L��E�}�p���I��H�B�<� �P(I��L�0L�`1�E��~f D H�T� I�T�H��A9��L�l$L��D��L�T$L���m���H�l$A��H�A� H�W L��L��H��� H�H��P0L�T$H�L��P0H�L���P0D��H��([]A\A]A^A_� @ H��(� []A\A]A^A_�L�t$H�L����� L� 1�E1�H� t� L��H�5]_ L��A��@ � 랐AWAVAUATA��UH��SH��H����L�iL�q~lH��# � H�$V L��H��H� ��� H��I���� L��H��H���P���H��t[H��L�KH��[]E�D$�L��L��A\A]A^A_H����� H��H��H��[]D��L��^ � A\A]A^A_�ب�� � H�A# H��H� ��� H�.# H� �^ L��H�5�^ L� �Y M��H��L�1�H�$ A��@ H��# H��H� H��x ��� � H��H�5�^ H���H��� []A\A]A^A_�f�H��# H��H� ��� H��# E1�H� � L��H�5�] H��L�1�A��@ 뫐AWAVAUATA��UH��SH��H��(L�iL�ydH�%( H�D$1���� L��H���M���H��I���� H�T$H��H���1������� H�t$H���� L��H��蠪��H��tCL�KE�D$�L��L��H��H���A���H�L$dH3 %( �� H��([]A\A]A^A_�f D H� �# H��H���� L�H� 9] L��H�5^] L� �W M��H��1�H�$ A��@ H�H��H��x ��� � H��H�5] H��� @ � �]���f D L��\ � H��D��H��螦���8���f � H� # H��H���� L� 1�E1�H� ^W L��H�5�\ H��A��@ � ���諢��ff. � AWM��AVE��AUATI��UH��SH��H��L�l$PH�T$H���1���M��t 1�H����A�U H��t+H�T$H��H��[H��E��M��]A\A]A^A_H����� @ L�-A# H��I�E ��� M�U M��H��L� �V H� �[ H�5�[ H��H�$ 1�A��@ I�E H��H��x ��� H�߹ H��H�5�[ ��H��� []A\A]A^A_�ffff. � AWH��AVI��AUATUSH��H�����S8��~]H�[@��E�&A��L�l�� � H��L9�t7H�+D8e u�L��L��H��� �����u�H��H��[]A\A]A^A_�f. � 1���f. � f�SH��@dH� %( H�\$81�t^���H�AH�$H�A0u<H�@H�D$H��# H�� H� �� H�\$8dH3 %( uuH��@[� D H�@H�D$�� D H�qH� �# H��H�QH�t$L�H�q H�IH�$H�t$H�L$H�ƹ A��� H�D$ H�H�� �� �{����9���f � AWH�FAVAUL�-KZ ATI��U1�S1�H��(H�D$�F(H�|$H�T$��~|f. � I�D$0H� (H��tVH�y tOH�T$H�t$H�|$���L�5�# H��L��I��E1�H� �Q H�|$1�L�-�Y M� A��@ I�L���P0��H��A9\$(�H��(1�[]A\A]A^A_�ffff. � AUI��ATUH��SH��軞��H��I��谞��H�Q# B�| Mc�H��R(L��H��H���-���J�<#H���!���H��H��[]A\A]� AWAVI��AUI��ATUSH��H��H�~H���m���H�5*P 1�1�L��H�����H�5P 1�1�L��L�`@���H��H��A��I��H��# H��H� �P0M��tI�D$H��[]A\A]A^A_� H�����H��A�E(���� M�}0��H�D$ E1�I�D�H�$ D M�/H��H��I�u�����uA��t4L�l$A� I��L;<$u�H�|$ t[H�D$H��[]A\A]A^A_� H�# L��H� ��� H��# E1�H� 4} H��H�5� L��L�1�A��@ 1��"���H��# L��H� ��� H��# E1�H� �| H��H�5%R L��L�1�A��@ 1����� � ATI��H��USH��讜��H��tY� uDH�PH�-Q# L��H�߹ H�E ��� H�M H��H��1�1��@ []1�A\�f � H�@0H�P�f D []� A\�f D ATI��H��UH��SH���+���H��� H��t:H�uL��H�����L�%�# H�ź H��H��I�$��P I�$H��P01�[]A\�ffffff. � AWH��M��AVI��AUI��ATUH��SH�� dH�%( H�D$x1��k���M�FH�D$L�d$0L��L��L�D$荛���xL�D$��<�� H� 3V H������ H��1��O���H�t$H��H��蟢��H���� L�L$ H�$ A� H��L��H��H��L�|$ ���L9�tH��# �D$H��H��R0�D$H�L$xdH3 %( �� H�Ĉ []A\A]A^A_�f. � H�q# H� �P(M�FH���;��� � H�t$H�kU H�����H��1�H���q���I�FL�L$ H� EU H�$ A� L��H��L�|$(H�D$ �;����9�������AWAVI��AUI��ATM��UH��SH��H��8dH�%( H�D$(1��tH�Y0E��u ��\ E��D |$ptbH�C(H���� H�T$� H��H�D$L�d$�9������� A� H�L$(dH3 %( D��� H��8[]A\A]A^A_� D �t�H�<# H�SE1�H� ~y H�5wT H��L�1�A��@ �f D E1�E��L�L$uKL��M��H��L��H��A� �!�����L�L$�� M���`���H��# L��H� �P0�K���f D H��# H� H�SA� L��L��H��E1�� L�L$� H��# H��H� ��� H���u���I��I���U���f. � H�Q# H�SE1�H� �x H�5dS H��L�1�A��@ ���L�-!# H��I�E ��� H��L�L$t�8 uL�L$I�E �I���I�E H��E1�� L�L$����������� AVAUATI��UH��SH������ ���� ��I��L����H��M�t�3 � L�CE1��$ H��L��L��H��蹛����u H��L9�t|H�L��H��螗��H��u�H��� []A\A]A^� � 1�� D Hc�I�\�H��h���H��t�H�# E1�H� �I H�H�5�I H��L�1�A��@ � � H��1�[]A\A]A^Ð��H�G �7t!�qR H�G �G�G�G(Ð�G �G �G �G � �?t[�G�O�W f.$R {"f.�w �X�f(��^��^�� � � u��%�Q H� �"�f. � �*G�*O�*W�ffffff. � AUATUH��SH��H�� dH�%( H�D$x1��>�� fW��F f.�w�N�Vf.��� H�C H�{ �� H�T$H��H��L�d$�I����L$H� �P �$�d � L�� 谟��L�-a # 1�1�H�sL��H��M�E A��0 ��t!I�E H��H�5�P �� I�E H��p H�D$xdH3%( ugH�Ĉ []A\A]� D �X�f.��A����\��V �3��� @ �F��x!�V�N9��9�����)щN� ��� �C ���菕��ffffff. � AVA��AUATI��UH��SH��H�� L�-y # dH�%( H�D$1�E��tI�E H�T$H�1��8 ��tfI�E H��� H� # H�L$I�T$�A�vL�D$ H��H� ��p �;�� ���� �~>���� ��f�uF� �A � �;�� �*D$�C �$f. � ��u�C�YD$�C 1�H�|$dH3<%( �� H�� []A\A]A^� D ���� ~e��f��u����C �D$ C� D �*D$ �YC(�XC �C 뙐�*D$ �YC�XC �C �f � �T$�S�n��� @ ���_����*C�YD$�,��C�H����C�D$ C�8����˓��f. � �黛��ff. � ��H��H��H�=A# �ܖ��fff. � �ۘ��ff. � H��H��H�=# �n���fffff. � H��H��H�=�# 龙��fffff. � H��H��H�=�# ����fffff. � H��H��H��H�=�# �{���ff. � H��H��H��H�=�# ����ff. � I��H��H��H��H�=m# �ȏ�� � H��H��H��H�=P# ���f. � �� 1�� � ATI��USH�� H� �# dH�%( H�D$1�H��H��H���� H��t'f. � H�H���p H�H�� H��u�H�L��x H�L��P0H�D$dH3%( u H�� []A\�� ���HcɃ< ww� H�AM Hc�H�� @ H��L � � H��L � � H��L � � H��L � � H��L � � H�aL � � H��E � � ATMc�H��I��UK�,SH���F H��辐��� H��H�=L H��H��HN�H9���� H��� H�=�K HN�H��H9���� H��H��H�=�K HN�H��H9���� H��H�=�K H��HN�H��H9���� � H��H�=�K H��H��HN�H9���� H��H�=�K H��HN�H��H9���� H��# H��L��E1�H� CL H�5bK L�1�A��@ []� A\�f D � �E 1�[]A\�f � � ��f � � ��f � H� CT � � � �f � � �f � � �f � AWD����AVAUI��ATI�̉�USH��H;GH�T$0D�D$<L�L$(�D$8�� �GH��t9��� H�D$(L�xL�����A�U ���K H�sH���� ����I��H�lRH�D$ H��H��"A�8t=I��0I9�� I�vH���� A�>�u�H��H�t$�{���H�t$A�A�8u�H�T$ L��讌����u��T$<��A;V�� A�F���t9��� H�L$(I�FH��� f D H��# M�EL� .C H� =V H�5�I L��L�H�D$(H�$ H�1�A��@ H��H� []A\A]A^A_�I��f. � I�F(H���7 L�|$(�T$8L��H�|$0I�oH��Ѕ�� M�L�5.# E1�1�H� �B L��H�5�B L��M�A��@ A�m ���� Hc�H�@H��H�|� �� ���; I�1�1�H�5�H L��E1�D�}���@ �E���D$2�(���f � H�.U L��1�A��@ A��H��0A9������E9�� 1�D9l$M�H�su�H��T L��1�A��@ �f D ���_��� � I�1�H�54I L��1���@ ���H�D$(H�hI�F�T$8H��H�|$0H��HL��[]A\A]A^A_��H��# L� xT M��H�5�G L��L��L�H� l H�D$ H�D$I�F H�$H�D$(H�1�A��@ ����M�H�SE1�H� A H�5�G L��1�A��@ ��M�H�SE1�H� �@ H�5@f L��1�A��@ ���f. � AUATU��SH��H��H������u7��t%L�%$# I�$� �����H�5/G H���( ���W��� � ��t�L�%�# I�$��� H��t�L�-�# H��F H��� 1�I�} �U���I�$H�ߺ H�5uE ��� I�} H��F H��� 1��"����a���ffff. � AVAUI��ATI��UH��SH��H��PdH�%( H�D$H1���z# ��t^H�3H��t0L�57# � I�H�SH��M��L��H��� H�3H��u�H�D$HdH3%( uiH��P[]A\A]A^�f � L�5� # �7z# H��H�5�I I��� ��t�<$�p���� z# �a���I�H�=�F �R �O����x��� � USH��H�� �VdH�%( H��$� 1�f���A��A��A)��V D��A)��V )�E9�AMȉ�9�L����`�� E9�D��AN�9�O�A)�A)�)�H�-�" fD�L$H��fD�D$ f�t$ H��H�E ��� H� H���D$t �D$p H�T$�� H�D$ H�E �� H��$� dH3<%( u<H�Ĩ []� D���D)ș��A��D����D)����A�����)����Z����T��� @ �{���ff. � AWI��AVAUI��ATI��USH��� H�-7�" dH�%( H��$� 1�H��H�E ��� M�t$XL���b���H�M ��L��H��� H�E � H�5 D H��� L���/���H�M ��L��H��� H���" 1�H�$L��L��H� ��h I��H�E H��� H��$� dH3%( uH��� L��[]A\A]A^A_��T��� @ AWE��L�����AVA�ι����AUA�Չ�ATUH��� SH��H��(L�%�" dH�%( H�D$1�L�L$�D$ I�$��( H�D$I�$D��E��D��H��H���X 1�H��I���nj��I�$H�|$��� �D$��L��HE�H�T$dH3%( uH��([]A\A]A^A_�臇�� � ATUH��SH��0 L�%��" dH�%( H��$� 1�H��$P H��$ H��$ H��$ L��$ H�\$ H�D$H��$ L��$( �D$ H��H�D$I�$��� �2f. � ��HD$���T$H�0I�$H��t1�����H���� �T$��0r�H�D$H�0H�PI�$H�T$H��uϹ H��T$(H�t$ ��( ��I�$H���� H��$� dH3 %( ��u H��0 []A\��Y���f � AVA��AUI��1�ATI��UH��SH��H� G�" H���� H��tH��[]A\A]A^� @ H��X �P(H�H��D��H�D$��� H�D$L�1�L��H��H��A�� H�D$M��H� H��tL��H��� H�D$� @ H�D$H�5�H��� H�D$�p����H���" H�� H�5�@ H� H��x ��fffff. � SH��H� L�" H�L�L$E1�L�$E1��� H�H��H��p H��[�� � AWAVE��E1�AUATI��H��UH��H��D��SH��(H� �" H�L$L��$� D�D$pdH�%( H�D$1�H�H�L$H�L$H� $�L$h�� L�I��H��D�L$`E��L��L��H���D$�����$ A��� L��T$xE��D�L$`L��L��H��$L��A��� H�L����p H�D$dH3%( uH��([]A\A]A^A_��4��� @ U��SH��H�9�" H� �P(H��H��t ��1�H�����H��H��[]�f. � AWAVI��H��AUI��ATA��USH��H��H dH�%( H��$8 1�H���" H� ��� A��H�D$�� I�mH�5�3 H���[���H��t^H���" E1�H� 6 H��H�5�? H��L�1�A��@ � H��$8 dH3 %( �0 H��H []A\A]A^A_�f D L�=9�" H��I���� H��" H�T$H��H��H� ��x H��tUM�1�E1�H� w? H��H�5~? H��A��@ � �q��� � L�!? � L��D��H���F����J����I�1�A� H� �F H�5j< H���� I�A� H� �F 1�H�5? H���� H���ā��I��x�R(H� �> I�� H�����H��H�D$1�膋��H��莁��I��x�R(H� �> H��H�D$I��H������ 1��P���I�I�NA� H�G2 H��H���� I�I�N A� H�12 H��H���� I�I�NA� H�2 H��H���� I�A� H��H�F> H��H���� I�A� H�L$H�,> H��H���� I�EA�T$�I�vH� > H�$ H�߉T$0A��I��H��H�D$�j������ I�L�d$@H��L��� I�H���� H��I�VH�� H��" H��H��H� ��x H���{ H���" L�(H��H���� I�H�t$H���H I�H�t$H���H I�� H��H���� M��t 1�L���k��� I�� ��� ��u�I�H� L��� H�|$H��tI��R0H�|$��H������I��\$�R0�D$���I�H���� �D$0�y H��" I�VHH��H��H� ��x H��H�D$(�����A�V(E1�E1ۅ��� D�d$4L�l$8M��M��H�\$ E��� @ A��I��E;u(}gI�E0J� �u�H�v�" H�S H�sH�|$(H� ��H H��I���� H�|$ �$ A� H��H��L��蜂����t�M��H�\$ ����M��H�\$ D�d$4L�l$8�D$0��tiA�D$�L�T$��H��M�d M��f � I�U L��H���A~��H������M�EE1��$ H��H��L��H�������������I��M9�u�H�I�" H�T$H��H�t$H� �� ���q���I�E1�L��H���" H��H���� I�vH� E; E1�E1�H�$ H��H��蓁�����)���I�vH� '; E1�E1�H�$ H��H���g����������I�vH� ; E1�E1�H�$ H��H��E1��8�����t ����I��E9f(�� I�F0N�,�A�E t�I�I�U� H��H���� L��I��H��L��H����~����t��{��� D L�C�#���HcD$0H�T$E1�M�H� �\ H�5�- H��H�T�1�A��@ �9���I�H�t$H���H I�H�t$H���H I�� H��H���� ���� }��I�H�ߺ H��1��P ���Hc�H� H��tH� �1��ffff. � H�Il# H�=Bl# H��� �f. � ATI��UH��SH� l# H��u�0 � H��� H��t H�3H���~����u�H��[]A\� D 1�M��t�H�r�" H��L��E1�H� �[ H�5V9 L�1�A��@ H��[]A\�ffffff. � Mc�H��SK� tH��H���ȃ��H��tH�1�[� @ 1��� @ � [�f � SH��H�蓃��H��tH��H�PH��[��1�[�fff. � H�H�@�� � H�H�@0�� � H�H�@8�� � H�H�@ �� � H�H�@(�� � AUATI��USH���G��~*L�-]�" 1�1ېI�$��H�|(I�E H���P0A9\$�I�<$I��L9�t H�&�" H� H�@0H��[]A\A]�� H��[]A\A]�ffff. � AWMc�AVAUM��ATUSH��HA��H�|$ H�T$t=H���" K�T��E1�H� �, H�5�, L�1�A��@ � H��H[]A\A]A^A_Ã����� H��$� H��$� H���ۉYH�D$0H�~SH�-b�" H�L$0�C�F�$� �\$H��H�DI��H�� � H�E A� D��I���P(I�F�I9�u�\$E���� A�G�H�|$I�m L�l$(��H��I�DH�D$8�C�H�D�H��H�D$�.y����I���� L��L�t$0L�l$�D$ f D M�} A�?t,f D I�wH��tH�] L��H���0w����tTI��8A�?u�I��I��L;l$u��D$��trH�D$(H�L$8H�D$(H9��� H�8H���x��I���o��� � A�I�NI��I���D$ Hc�H� �A�V�I�N�L;l$H�UH�T��C����H�m H���" E1�H� ,X H��H�5a- H�|$ L�1�A��@ H��$� �|z��� ����H�-��" ���H�E �P(H��$� H�D$0H��Y� ���1�����AWAVI��AUA��ATUSL��H�� dH�%( H��$� 1�M��H�<$H�t$L�D$�R L���w��E��H��~YA�M�E1�H�� H�D$O�,&A�} t/M��f. � I�wH��tH��H���u����txI��8A�?u�I��L;d$u�H���" E1�H� W H��H�5?, H�<$L�1�A��@ � H��$� dH3 %( �� H�� []A\A]A^A_� � ��$H t>H�L$J� !H��t�H�)�" D��$@ I��L��H�t$H�<$H� ��� � � H�L$J� !H���v���H���" D��$@ I��L��H�t$H�<$H� ��� �J���H�-��" L�d$ 1�E�}�L��H�E ��� E��(� ����tH�E � H�51> L��� H��H�D$H� �H��t(H�a�" I��E1�D��$@ H�t$H�<$H� ��� H�E H�<$��� H��I���u��H�M ��L��L��� L9��t���H� $H�E H���� H�E L��H���� H�E L��� 1��_�����u��f. � H��HdH�%( H�D$81�I� L�D$(L�D$ H�T$ H�T$H�L$� H�@p�D$ H�D$�D$P�$�~��H�L$8dH3 %( uH��H��du�� @ H��HdH�%( H�D$81�I� L�D$(L�D$ H�T$ H�T$H�L$� H�@p�D$ H�D$�D$P�$�N~��H�L$8dH3 %( uH��H���t�� @ AWI��AVI��AUI��ATUL��E��SH�� H��$� L�d$0L��$� dH�%( H��$� 1�H�D$ H�T$H�T$ H��H�L$ � HD�H�E H�@pL�$$H�D$(��y����� uMH�D$0���~sH�O�" L�@L����$� L�L$L��L�L���$A��� ��t=A� L���u��D��H��$� dH3 %( ��u{H�Ę []A\A]A^A_� D H�D$0�p����$� E1��t�H�P��$� H��D�mD�u �+v����u�D;mt� E1��|��� D;u u�� E1��e����s�� � H��H�0dH�%( H�D$1�H��HD�H��HD�H��HD�A��@t%H��� H�A��u+A���� � � @ A���tbH�� A��H�tո H��A�� H��H��� H�u"H� H�D$dH3%( �� H���f�H��� H��� @ A�� u:A��tTH��� H��b��� D A��u A��t$1�냸 �y���f D H��� H��.����H� �r��� @ H� �����Or��ffffff. � A9ɋD$7D)Ƀ�A���� A� ��I��A�� �� A��� tw � H�L$�1D9�TA)���w� ��H��D u��u7H�D$A�D� � D��D���� �� D�A�A���A)��A��u��f�H�D$�� � D�� D��� A�A�A�H�t$D��s���fff. � H���D$8��tDD9JtMH�B0L��� 1�M��t,H�B�T$ D� $E��A��H��H���T$H�8L���Tp��� H���f. � �D$ 9B u��D$( D$0u��D$8t��� @ AWI��AVAUE��ATI��L��USH��H��XdH�%( H�D$H1�D�D$(H�BH�t$8D��$� �L$,H�L$@1�D��$� H�(�"y����$� D�D$(E��L$,L��D�t$H��L��D$��$� �D$��$� �$�sm��I�G0D��$� D��T$(�t$,��� H�D$(H�D$H�D$,H�D$A�G �$E�O�"p��Dt$(D��$� Dl$,D�t$(Ew$D�l$,Eo ��$� D�l$$E�o(E�,tIH�T$8H��t?H��H���u��H�T$8D�D$$L��H��D�|$D�,$E��H����n��H�T$8H��H���w��H�T$@H��t?H��H���iu��H�T$@D�D$$L��H��D�|$D�,$E��H����w��H�T$@H��H���Ew��H�D$HdH3%( uH��X[]A\A]A^A_��o���UH��SH���� H��H��" H� �P(H�(H�XH�@0 H�@ �@ �@ H�@8 �@@ �@D H�@H H�@P �@X �@\ H�@h H�@` �@p �@t ǀ� ����ǀ� ǀ� H��[]�f D H�s+ � � H��H�M�" �P H� �P(Hǀ@ ǀH ǀ< ǀ8 H���fff. � H���" SH��H�WpH��1�H�=e�" H� H���` H���" H��[H� H�@0�� D AWAVAUATUH��SH�� L��@ dH�%( H��$� 1���uEL�%n�" H�hI��I��H���" � I�$� $��H�up��� ���P H��@ � @ L�%)�" L��I�$L��� L�l$H�� �D$t H�D$hH��� � @ H�}pL��H� H�D$(H��� H� H�D$ I�$�� H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��� �@ H�}pL��H� H�D$ I�$�� H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��� H�}p�n��H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��(L9�� ���1�M��t H�}xH���us��H��$� dH3 %( ��uH�Ĩ []A\A]A^A_���k��f � AWAVAUI��ATUH��SH�����tHH��@ L�=��" H��t I���H I�I�}PH��� ��P H�upH�}hH���H��@ A�E ��t A�UH��� ��t A�UL��� L�5+ I��1�A� tLI��$� L�=�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� A�E H��I��(H��u�L�5�* 0�I��A� tHI��$� L�=��" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� H��I��(H��tA�E A� u�H��I��(H��u�H��H�� []A\A]A^A_1�1���� @ USH��H��H�PH�-�" H��t H�E ��X H�s0H��tH���<q��H�E H�SH��H�=:�" 1�H���` H���" H��H� H�@0H��[]��f D AWAVAUATUD��SH��H��xdH�%( H�D$h1�H�FE���T$<�L$8L�0(H�D$hdH3%( �G H��x[]A\A]A^A_� D E��E��~�D��$� H�T$HI��1�1�H��L�|$P��q����$� C E1�H�T$HE1�L��L��L��D�d$�l$�D$(��$� C�D$ �D$8�D$�D$<�$�j����$� D�D$8A��L$<H��L��L��D�$$�D$��$� �D$��$� �D$�[j��H�C0�t$<E��D�K�T$8�鋸� H�D$8H�D$H�D$<H�D$�C �$�h����$� ��$� D$<|$8H�sPH���D$<�|$8�F H�K0D�K\�S D��� D)�E��A��B�RE1҅�~ A�҃�A�Aҋ�� ���� H�T$HCX�H �D$<L�K`M���� ��� ��tH��tzH�C0�K +Kt��� ���ߍ y1���~ �σ��ϋ�� L��@ t$8�L$(��< �L��L$ �Kp�|$L���L$��� L��D$<�$�����D$�l��H�T$HL��L��L��� m������ 1�H�|$H �9���D�D�CX1�A�L��D�T$�� 1�L�,$�D$�j��H�K0�D$<��� @ L�C8M��uH�T$H��� D H�K0�sD�S D��� )�E��A��B�RE1҅�~ A�҃�A�A�D��� H�T$HE��tdH��tq��$� tH��� D�H�D$( E1�A�L��D�T$ �� L���t$�$ L��D$�C@�D$�0n��H�K0�D$<H�T$HC@�H �D$<�=���1����(f�� � SH���G �G H�PH���� H���" H�S\H�sXH� ��x H�C0�SX�H �S�S\�S H�s`H���� �> H�b- HD�8 H��@ L�KtL�Cp�������b���S H�K0�CCp9St��� MstH�{P �P��� �C �C$ �S�S(�F�C �C,t@�CX�H )C �S([� D H�s8H��u?H�s`H�C0H���X���H�5�, �Z���f�H�{8 tʋC@�H )C �S([�f D H���" H�{H�S@H�KDH� H�?��p H�C0�S@�H �S�SD�S ���f D SH�0 H��t ���H�CH�@H��t H��[�� D [�f D SH�5��" H��H�H��1���a��H��H�C0[�ffff. � AUA��I��H���" ATUSH��I��H��L�%$�" H�GL�o0M�$H�pH�x� $D��A��� ������ H�{0 �� H�{PH��tI�$��X H�CP H�SHH��t*H�CM� $I��H� � H�pH�xA�� H��H�CPt@M��t#L9k0t H�����H����[]A\A]� � H���X���H����[]A\A]� H��� [��]A\A]�f D H�{H�5��" 1�H���`��H�C0�<���f�SH������H�CH�@H��t H��[�� @ [�f. � @ UH��SH���P H��H� �" H� �P(H�(H�XH�@0 H�@ �@ �@ H�@8 H�@@ �@H �@L H��[]� � SH���G �G H�@H��tUH�f�" H�sHH�SLH� ��x �sH�KLH�C0��� ��� �C �C$ �V�A�S�C �S(�C,[� D 1ɾ � � H�3 � � SH�0 H��t �`���H�CH�@H��t H��[�� D [�f D SH���7���H�CH�@H��t H��[�� @ [�fffff. � H���" �8 H� H�@(��ff. � H�q�" SH��H�WpH��1�H�=U�" H� H���` H�j�" H��[H� H�@0�� D ATUSH��H������� D��� u5H��" H�hI��I��H���" H� � $��H�sp��� �¸ ��u H����g��9�� t H�{xH���Rh��1�H��[]A\� � D9�� u�1��� AWAVAUI��ATUH��SH�����t �VH��� ��t A�UL��� L�5� I��1�A� tLI��$� L�=T�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� A�E H��I��(H��u�L�5 0�I��A� tHI��$� L�=��" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� H��I��(H��tA�E A� u�H��I��(H��u�H��H�� []A\A]A^A_1�1��2���f�SH�5�" H��H�H��1���\��H��H�C0[�J���f. � AUA��I��H��" ATUSH��I��H��L�%�" H�GL�o0M�$H�pH�x� $D��A��� ������ H�{0 �� H�{@H��tI�$��X H�C@ H�S8H��t*H�CM� $I��H� ��H�pH�xA�� H��H�C@t@M��t#L9k0t H�����H����[]A\A]� � H������H����[]A\A]� H��� [��]A\A]�f D H�{H�5��" 1�H���[��H�C0�<���f�USH��H��H�@H�-�" H��t H�E ��X H�s0H��tH���,e��H�E H�SH��H�=��" 1�H���` H���" H��H� H�@0H��[]��f D AWAVAUATUD��SH��H��xdH�%( H�D$h1�H�FE���T$<�L$8L�0(H�D$hdH3%( �� H��x[]A\A]A^A_� D E��E��~�D��$� H�T$HI��1�1�H��L�|$P��e����$� C E1�H�T$HE1�L��L��L��D�d$�l$�D$(��$� C�D$ �D$8�D$�D$<�$�^����$� D�D$8A��L$<H��L��L��D�$$�D$��$� �D$��$� �D$�K^��H�C0�t$<E��D�K�T$8�鋸� H�D$8H�D$H�D$<H�D$�C �$�\��H�s@H��tmH�K0D�KL�S D�CHD��� D)�D��؍B1�����ҋ�$� ONj�$� |$8T$<�|$8D���T$<L���D$�� 1�L�,$�T$1��[_��H�T$HL��L��L���a���[�����[��f. � @ H���" H�WxI��L�H�wpH��E1�L��H� H�RxH��� ��f�ATUH��S�Gd�� �G`���� H� ��" H�}L��� H���x H�H��H��� �P0H��� H��tH�.�" H�UpH� H�:��P H��� H��tH� �" H�UpH� H�:��P H��� H��tH���" H�UpH� H�:��P H��(L9�u�H�ExH��[]A\H�@`��f D �G` �@��� @ []A\�ff. � UH��SH��H�H��dH�%( H�D$1�H�T$�SP�T$��t H�h�C`H�D$dH3%( u H��[]ÐH�a�" H�=b H�1��R ���3Z�� Hc�H� H��t H��� � @ 1�� D AT1�1�UH��SH��H�5� H���#\��H�5� 1�1�H��L�`@� \��H��H��A��H��tH�@[]A\� D 1���fff. � AVI��AUA��ATI��UH�-��" SH��H�E ��X H�54�" H�=��" M��E��L��H���\_��A��H�E H���� []D��A\A]A^Å�I���t'��H��tOH��L�Gx� A�PX����H����ÐH��" H�WxH��H�wpE1�E1�L��H� H�RxH��� �� D H�OxH���" E1�H�wpL�L�YxH� H��L��H��� L���f�ATUSH��H��SHH��H��L�%��" tSI�$H��p �k`H����� H� H#C`H9�t[]A\�I�$H��H�5���[]A\H��0 �� D I�$H�=� 1��R �fffff. � AUMc�ATO�$UH��SH��(H��I� $t�9 u.H��t�Cdu H��L��1��6���I� $1�H��([]A\A]� D H��I��L�D$���H��tk�@dL�D$u`H�HxI�H9��� H���" L�k H�5| L��L�H�� H�D$ H�$1�L� H� H�K A��@ � �q����H�q�" H��L��E1�H� F H�5K L�1�A��@ H��(� []A\A]�f D H9��!���H��t L��H��H�D$L�D$�=���H�D$L�D$H��L��H�D$�C���H�D$H�����f D AUATI��USH��(dH�%( H�D$1��Gd�� H�7��H�-��" �GdH��t H�E H�hH��H �� I�|$hH���I�|$hH�5% 1�1��X��I��$� I�|$hH�5 1�1�L�h@�nX��H��H��A��H��t H�U H���p H�E I�|$H��I��� H��H��t<f D I�D$xH�{H�@HH��t��H�E H���p H�E L�� H��H��u�H���" I�|$p� L��H�? H� ��� H�E H�5 ���L��0 H�D$dH3%( u H��([]A\A]��rU��f��>t ��f � ���ff. � �GdH� t�Ð�k���ff. � S�_d��u�R�����[�f D H�)�" H�� H��H�5o 1�H� 1��@ ��[�fffff. � �>t �f. � AVH��H�=tD# AUATUS��D# H��I��thL�pL�%��" I�^`H��u�)f. � H��H�{H�k���I�$H��R0H��u�I�$L���P0[]I�$L��A\A]A^H��p �� � []A\A]A^�ffffff. � AWI��H�5� AVI��1�AUI��1�ATM��UH��SH��(H�?dH�%( H�D$1�� V��H�} H�5� 1�1�H�XH�V��H�T$L��H���I���D$��u@I�YM��t�D$A�$H�L$dH3 %( H���" H��([]A\A]A^A_�f � L�L$L��L��I�7H�} A�VPL�{�" H��H�����L����H��L��H�} I�L�$��� H�H�E L��H�ChI�L�sxH�Cp�=X��L�L$L�$H��H��� ǃ� � ǃ� ǃ� �C` �Cd Hǂ� Hǂ� H��(Hǂ� Hǂ� Hǂ� ��u�I�L� $H�{� ��� L� $I�Y����qR�����A# ��t�� @ H��H�m�" � H�=�A# ��A# H� ��� H�=��" ��R��H�={�" ��R��H�= �" ��R��H�=��" H����R��f�H��H��H���2���f�AWAVAUI��ATLc�USH��H��xdH�%( H�D$h1�A���o H�qI��H���pY��H��H�D$�� A���h A���� M�}� H�\$D�d$� H�D$ L��A��M���Mf�H�� � H�=� HN�L��H9���� A9�tIc�M�,�H�I�T�A����H��9l$�� L�k�L���yP��� H�� H�=- HN�L��H9��u�H���" L��H�3H�|$H� ��x H��I��u�� H�T$hdH3%( ��� H��x[]A\A]A^A_�f D H�L�l$H��L��H�D$�p���H���Q���H���" I��E1�H� � I�H�5 L�� L�1�A��@ � H�|$ H�\$M��uqH�l$@ D��?# H� d �( � H��A�@��?# 1��\Y��H�5� 1�1�H���R��H�5� 1�1�H��L�x@�R��H��H��A��H��u�H�l$I�H�L$H�t$0H�T$H�|$(E1�H�\$(L�t$0H�D$ �a���H��I�������H�@x1�I�UA�t$�L���PX����tBL��� ������ � L�b � L��D��H����R�����l��� � H��" L��H������ L��H� ��0 L�%�" H��I�$��� I� $1�H�t$H��1���@ ���� � H���" K�T�E1�H� � H�5� H�߽ L�1�A��@ �����N�� D AWI��AVI��AUATI��USH��H�� H�wH�=># dH�%( H��$ 1��?># H��tzH�@H�@`H��u�k H�@H��t_H;u�H�hH��tQM��t L��L���Q���L��H���f�H��$ dH3 %( H���� H�� []A\A]A^A_�f. � L�-��" H�T$0H��H��H�$I�E ��� I�E � H�5� H��H�,$��� I�GH�hXH����L��I�M H��H�,$��H��� I�E � H�5�� H��H�,$��� H�+H���L��I�M H���H�<$��� H�L$0I�wI�L�D$(H������T$(H�Ņ��� I�G� H�D$I�E �P(H�T$,I��H�H�hH�t$H�=�<# ��<# I�ËD$,��uXM�SI�2H��tH�ChH��tL�T$H���L�T$I�B`H�<$I�GI�E M�z`��� �d���1�1�1�H��SX�Md�g���I�E L�\$�h �P(H� H�@` H�i���H�D$H�5�" � H�|$H� H����0 L�T$L�\$M�S�p����L��ffffff. � AUATI��UH��H��H�=�;# SH��dH�%( H�D$1�H�T$��;# I�ŋD$���� I�EH�PH�X`H�H�U H��H�PH�UH�PH�UH�PH�UH�P H�U H�P(H�U(H�P0H�U0H�P8H�U8H�P@H�U@H�PHH�UHH�PPH�UPH�PXt H�H�@hH��t H�{H���H�[H��u�H�D$dH3%( �� H��[]A\A]� H�!�" �h H� �P(H�@` H��H�@L��H����� H�H�E L��H�CH�EH�CH�EH�CH�EH�C H�E H�C(H�E(H�C0H�E0H�C8H�E8H�C@H�E@H�CHH�EHH�CPH�EPH�CXH�s�" H� ��0 I�]�7����dJ�� @ ATI��H�~USH�� H�-b�" dH�%( H�D$1�H��H��H�E ��� H��t D H�xA�T$@H�E H��� H��u�H�D$dH3%( u H�� []A\���I�� � AWAVL��� AUATUH��SH��H�� L�%��" dH�%( H��$� 1��D$d I��H��� � H�}pL��H� H�D$H��� H� H�D$I�$�� H��� I��H��tH�UpI�$H�:��P H��� L��� � H�}pL��H� H�D$I�$�� H��� I��H��tH�UpI�$H�:��P L��� H��� H�}p�J��H��� I��H��tH�UpI�$H�:��P L��� H��(L9�����H��$� dH3%( uH�Ę []A\A]A^A_��H�� � H�� � � H��H�}�" �H H� �P(Hǀ@ ǀ< ǀ8 H���f D H�!�" SH��H�WpH��1�H�=E�" H� H���` H��" H��[H� H�@0�� D AWAVAUATUH��SH�� L��@ dH�%( H��$� 1���uEL�%��" H�hI��I��H���" � I�$� $��H�up��� ���P H��@ � @ L�%i�" L��I�$L��� L�l$H�� �D$t H�D$hH��� � @ H�}pL��H� H�D$(H��� H� H�D$ I�$�� H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��� �@ H�}pL��H� H�D$ I�$�� H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��� H�}p�SH��H��� H��tH�MpI�$H�D$H�9��P H�D$H��� H��(L9�� ���1�M��t H�}xH���M��H��$� dH3 %( ��uH�Ĩ []A\A]A^A_�� F��f � AWAVAUI��ATUH��SH�����tHH��@ L�=ϻ" H��t I���H I�I�}PH��� ��P H�upH�}hH���H��@ A�E ��t A�UH��� ��t A�UL��� L�5 I��1�A� tLI��$� L�=V�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� A�E H��I��(H��u�L�5� 0�I��A� tHI��$� L�=�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� H��I��(H��tA�E A� u�H��I��(H��u�H��H�� []A\A]A^A_1�1���� @ UH���P SH��H�s�" H� �P(H�5��" H��H�hH��1�H��H�0�A��H�C H�C0H���C �C �C �C$ �C( �C, �C@ H�C8 �CD �CH �CL����H��[]� SH�w0H��H��t�J��H���" H�SH��H�=Y�" 1�H� H���` H���" H��[H� H�@0�� � AWAVAUATUD��SH��H��xdH�%( H�D$h1�H�FE���T$<�L$8L�0(H�D$hdH3%( �� H��x[]A\A]A^A_� D E��E��~�D��$� H�T$HI��1�1�H��L�|$P�K����$� C E1�H�T$HE1�L��L��L��D�d$�l$�D$(��$� C�D$ �D$8�D$�D$<�$�jD����$� D�D$8A��L$<H��L��L��D�$$�D$��$� �D$��$� �D$�D��H�C0�T$8E��D�K�t$<�鋸� H�D$8H�D$H�D$<H�D$�C �$�QB��H�T$HH���� L�K8M��tnH�s0�{L��$� ��$� �� �� D$<L��@ �|$(��< L��L$8�D$<�t$ �D$�sD�C@�L$8�L$L���t$L��$��F��H�T$HL��L��L���nG���Q���f � 1����A�� � SH�w8H��H��ts�> H� HD�H�C0L�KHL�CD�C@�����������8 H��@ �>��H�C0�KH�SD��� ��� �C �C$ �r�A�S�C �S(�C,[� H�5� � � SH�0 H��t �`���H�CH�@H��t H��[�� D [�f D SH�5�" H��H�H��1��>��H��H�C0[�ffff. � ATI��A��USH��I��H��H�m�" H�GL�g0L�H�pH��" H�x� $D��A��� ����u8H�{0 tAM��H��tL9c0t�>���H����[]A\� ���H����[]A\�H��� [��]A\�H�{H�5M�" 1�H���[=��H�C0� D UH��SH���P H��H��" H� �P(H�(H�XH�@0 H�@ �@ �@ H�@8 H��[]�fffff. � H�G8H��tG��X ��\ H�G0��� ��� �G �G$ �V�A�W�G �W(�G,�f. � 1�1��f. � H�C� � � SH�0 H��t ���H�CH�@H��t H��[�� D [�f D AT�>USH��t4H�ߋkD�c �E���9kt0H�CH�@H��t)H��[]A\��f. � H�G8 ��f D D9c u�[]A\� D SH�����H�CH�@H��t H��[�� @ [�fffff. � ATUSH�8 H���� L�%/�" H��H��H�G8 H�B���� H��I�$��� I�$1�1�H��� H�CH�pH;u@t I�$H��� I�$H��� H���O���H�CH�@H��tH��[]A\��f � []A\�ff. � H���" �8 H� H�@(��ff. � H�q�" SH��H�WpH��1�H�=��" H� H���` H�j�" H��[H� H�@0�� D ATUSH��H������� D��� u5H��" H�hI��I��H���" H� � $��H�sp��� �¸ ��u H����C��9�� t H�{xH���RD��1�H��[]A\� � D9�� u�1��� AWAVAUI��ATUH��SH�����t �VH��� ��t A�UL��� L�5� I��1�A� tLI��$� L�=T�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� A�E H��I��(H��u�L�5Z� 0�I��A� tHI��$� L�=�" H��t I���0 I�I�|�L��� ��@ H�upH�}hH��A��I��$� H��I��(H��tA�E A� u�H��I��(H��u�H��H�� []A\A]A^A_1�1��2���f�SH�5p�" H��H�H��1���8��H��H�C0[�:���f. � AWA��I��H���" AVAUATUSH��I��H��L�%�" H�GL�w0L�o8M�$H�pH�x� $D��A��� �����) H�{0 �~ L�{8M9��� M��t>I�$H��H����� L��� I�$1�1�L��� I�$L��� L�{8M���� H�CI�O@H�PH9��� H� ��" L�JXL�� H�xI�WXH�5� 1�L�H�$ H� S� A��@ H�C8 � H����[]A\A]A^A_�f D I�$H��H�"���� L����0 I�$H��H�5��" L����� L�{8M��H��t!L9s0t���� @ � �f � �+����f � A�� t�H���" H�xE1�L�AXH�5>� H� !� 1�L�I�WXA��@ �-����H�{H�5]�" 1�H���6��H�C0�d���f�USH��H��H�8H�-$�" H��t9H�E H��H�9���� ��� H�E H�{81�1���� H�E H�{8��� H�s0H��tH��� @��H�E H�SH��H�=;�" 1�H���` H�Ѯ" H��H� H�@0H��[]�� � AWI��AVAUATUSH�� �T$LH�VdH�%( H�D$x1�H�~8 �L$HH�D��$� H�D$0�� D��D��$� H�T$XI��1�1�L��D��L�t$`��@����$� AW E1�H�|$0E1�L��L��l$�\$�T$(A�WD�T$ �T$H�T$�T$L�$H�T$X�9����$� D�D$HA�ًL$LD�l$L��L��L��,$�D$��$� �D$�Z9��I�W0E�OA��t$L�ً�� H�T$HH�T$H�T$LH�T$A�W �$�T$H�7��I�O0E�G��� ��� ��$� B�/��E�,xA� ��D� wA�| ��)�9�A�< DL��)�9��|$HDL΅ۋt$LmI�WI�8H� ��" H�rH;w@t H���� I�8H���� H�T$XH�|$0L��L���<��H�D$xdH3%( �� H�Ĉ []A\A]A^A_� ��~�E��~�E��~�� 2�,9I�WI�8H�rH;w@t"H�s�" E����H� ��� �f � H�Q�" D�L$DH� H�T$8��� H�T$8D�L$DD��I�8��L�E�ȉ�A�� �9����6��f. � USH��H��H��t:H�wH;s@H�-�" t H�E H���� H�E H��H��� H��[]��f D H��[]ÐAUA��ATI��USH��H��(H��H��dH�%( H�D$1���:��H�=S�" D�kHH��L���|7��H�D$H��u �@H�=1�" H��L����;��H�D$H��t$H9�u�H�D$dH3%( u%H��([]A\A]� @ H�=��" 1�H��L���\8�����5�� D ATA��UH��SH�� H��H��dH�%( H�D$1��7:��H�=��" H��H����6��H�D$H��tD D9`Ht H�p8H�x���H�=v�" H��H���7��H�=d�" H��H���;��H�D$H��u�H�D$dH3%( u H�� []A\��i4��f � ATI��UH��SH�� H��H��dH�%( H�D$1��9��H�=��" H��H���%6��H�D$H��u'�If � H�=��" H��H���n:��H�D$H��t$L9�u�H�p8H�x����H�=��" H��H���6��H�D$dH3%( u H�� []A\��3��f��Ҹ ~ H��8.������f � AWAVAUATU��SH��H������ Hc�1����� �� �C��~���� Lc�Lc���O�,$�CJ� +B�T1T���( �R ���� ��uGM�1ɉ�N�4� N�<3M�G L��L�$�i�����ttL�$M�A�FhA�GhA�FlBD�@A�Gl�C���� B���� ���C1�H��[]A\A]A^A_� D ���=���Hc�1����� �*�����f. � H��� []A\A]A^A_� @ M��N�<�A��1�A��D�L$ M�G L��L�$�����t�D�L$ L�$E��M�K��PhA�Wh�@lBD�@A�Gl�C�7��� @ M���J��J �JhB�L�@�Jl� ���B���� ���� D ���������A��A��Hc��|9T u E���� H���� H��D��\ DD�X Fl�XFl�\����������K�$E��I�J�D0 ��J���Jh�L�t ��u[DjlL��H��D�lt�C�X��� �RlI�D$H��D)�T �C�X��� D L��H��H��Bh �Bl �.��� �C�#��� � H��" H� H�@0��UH��SH��� H��H��" H� �P(H�; H� H�htH�SH�H�C�CH��[]� H�CH��CH��[]�f D USH��H��H�?H�6H;w@t+H�-\�" H�U ��� H�E H�;H��� H��[]�� @ H�1�" H�H��� H��[]�� � H�1�" �O0H��H�=[ H� H��� ��ffffff. � H��t H��G0t �� � �f D ATH��H��USH���� D H�8 tY�@h �@l �@p �@t ǀ� �@x �@| ǀ� ǀ� ǀ� �@ H�@H��u�H�; t ��� �Ѓ� �� u"��� �� �� uH�[H��u�1�[]A\� @ 1��A��t ��t8H��t�� � A���u�1�1҉�H���R�����t#���� ��u�1ɺ D��H���/�����u�� � ATUH��S��H���� # dH�%( H�D$1����� ��uAH��H�=� # �� # H��� H�@H�L$dH3 %( � H��[]A\� � H�T$H��H�=a # �� # I�ċD$��uxI�\$H� �" H��H�� � H��H� ��0 H��� @ L�%�" � H�=m # �� # I�$��� I�$� H�=� # ��� �)���f D H���" �8 H� �P(H�(H�@ H��H�@ �`0��@ �@$ �@(d �@,d I�D$�;���1�����J-��f. � AVAUA��H��ATI��UH��H��S� H�ĀH�1dH�%( H�D$x1�H���" H� ��x H��tKD�� H�ǃ��5�����I���� A���� L�-�" H�T$I�t$H��I�E ��8 ��t-H�L$xdH3 %( ��� H��[]A\A]A^�f. � I�E H�T$ I�t$H��8 ��u��D$���� �T$ ���� A�F0A�F(A�V,�� 1��f D H�\$D�H,D�@(H� �� �d � H��1��h5��H��" H��1�H��1�H�1���@ �:��� � H��" 1�H�@� H�5a� H�� L� 1�A��@ ����L��1�������I�M 1�H�5S� H��1���@ �����~+��fffff. � ATH�_�" H��I��UH��H��SH� � H�1��x H��tB1�H�����H��t:H�XH��t(L�%<�" @ H�H��H�pXI�$��8 H�[H��u�1ۉ�[]A\�H� �" E1�H� �� I�$H�5�� H��L�1�A��@ ��ffff. � UH��H��H��S� H��H���" H�1H� ��x H��t<� H������H�x�����H���" 1҅�H�t$1�H�5� H��1���@ H����[]� � H��1�H�5� ��@ H����[]�ffff. � AWAVI��AUATA��U��SH��XdH�%( H�D$H1����R Hc�E1���� � A�F��~��A� � Hc�A��ޠ ���5 A���� �& E���� E���1 I�FL�l$0M��H�D$H� H�D$0 H�D$8 �D$@ ��` �Hx����P|H��H���L$ H�D$�T$$A�D_U<t�� <�� < � u�L��L��D�L$�.���D�L$L�{ M��I��A�D]T<t�� <�� < @ u�M9��5 L�=�" D�L$� I��P(H�L$0L�hD�L$H��D$@H��H�D$0L�AA�|XT � L�\$8I�C�|XU I���� W�L��H��L�� (�(��H�pH�>�틗\ D�X J�<WXT�\�*ʋ�� ���X�~�*��X�H� H��u�A��ݤ ��~�*��X�H�D$�*l� �*T�(H��H��I� I�Dh�*x�Y��*Jh�Y��*rl�^��^��*P �X�(��X��\��\�.��( (�H���D�� L�$� ���E(�T�(�� �� U�(�V��j � �A*Ņ��D,��X��*�D��� I�8H� ��\ D�X H���X��*��X�� �,�A��ؔ ��� H��� L�@K�4�A*�ؤ H9���� �*�(����T�(����T��� E1�.�v��E1�� ���)���A���AY�I9�t�AY��Y��Y��^��^��,�A�K� D��� E���,�� ����A*Յ��X��*��D,�D��� M�(H� A��\ AD�X H���*��X��,��X�A��ؔ t��� ����f � �*�� � f.�v �,�A��ؔ A���� D��H����H��H� I��P0H��u�A�� @ H�L$HdH3 %( D���� H��X[]A\A]A^A_�f��������Hc�E1���� �����빐E��ޤ E��xA���� �����D���L���G A���f���� ���L��L��D�L$�X�H�D$D�L$M��� M������A�D_T<����<�������f���� ���M9� D t2H���" D�L$� H� �P(H�T$0L�hD�L$H��D$@H�D$0O�l= M��tA�|]U�����f D H�L$0H���.���L�=��" ���f D H��� L�@H� ADŽ�� H��u�H��� H��H� I��P0H��u�D���L���* A���j���f�E1��}��� � (����$�� AWAVAUATA��Hc�UHc�L�l- SH��H��(dH�%( H�D$1��G�H�OJ�</�D:T<� �� <t}<u;I�1�E��N�t� ��1�L���������� J��C���� B@��� �KE���� ���� ��1��KH�t$dH34%( �� H��([]A\A]A^A_�f�M�D E1�E��A��1�N�t� D��L�D$L��������1 L�D$K�D=$A��J��B@E�䉂� �K�u���f. � ���� �f��� ���J���E������Lc�B�|7T �� H�L�<�� H��D��\ DD�X EoXDl�\�b������� E���� A�����I�Dn$�KD,�D��� �m��� D H�sI�H���` D�@x���A�x|D�D$�|$J�<�D��Gh��|�(GlB���� ������H���DŽ� �j��� � � �q���f D I�Dn$��D)�A��� �K�A����!���AWAVAUATUSH��H��HdH�%( H�D$81�H��� u:�G0t-H�D$8dH3%( �+ H��H[]A\A]A^A_�f. � �w��u �c0��� H��g���G H�;L�C��` �M���D$ �D$$�D$ �{ I�H��� ��\ A�PXL�l$ AP\A@`L���X A@d1ɉT$�D$D�VhD�^pD�vl�ntE��A���� D��� ���� D����D (�A��A��E1Ʌ�~�T (A9�t����D)�A�љA��A��E9��� �� E���T E��tD�D�t (E9��C )�1���~ D��E)��A��A�T D9�}E�d D��A9�~E�L D��9�~A�D H��H��H���&���M�@M�������t$ �T$$�L$ � ΅�N�ʅ҉s N�9�X �S �� �C$�H��2�K$�, H���" H�=�� �� � H��'��H�;�� �C$ �$���D��` D�gxD�|D����A�E������A�E�������H�kH��H��ty H�8 t/ǀ� ǀ� ǀ� ǀ� �@ H�@H��u�f�H�} t&��� �Ѓ� �� �� ��� �� �� �� H�mH��u�H�kH���d��� D H�} H���� L�D$L�l$ H��1���� ��� H����A�tE A�LE)�+JP+JT��A� H��H��uʋD$��~0D�L$E��~&�L$$��x �T$,��x�L$ A9�| �T$(A9��� H�uH����H�mH���]������������� � ��� H�ٔ" H�=�� � � H��X%���c0��B��� � E1�� �����~ 1�E���s���1�E1�E1��f��� @ 1�A9�DM�DM��P���f D H�i�" �c0�H� ��� �C0����H�D$8dH3%( � H��HH��[]A\A]A^A_��9�\ �n������E1��E��t#��tFI���B������ A� E���u�1�1�D��H��D�l$ ���t&B���� D�D$ �1ɺ D��H�����u�H�Ò" H�=�� H�1��R ���� � �t$ �����MXU`L�-p�" F� 1H�MD�M�U H�1H;w@t'A����D��A��� I�E H�} ��� �,����9 ����E��D��A�� I�E H�} ��� ���� � A��I��H��H��H�= �" H�5��" ��!���H9~H��tWH� H�~t<H�WH�rH�ő" H�@ H�5�" �GH�GH�8H�H��� H��� @ H�w��f. � ��fffff. � ATL�gUSM�\$M��uC�� f � H��H��H����uKI9�� tnI��I��H��I��u M�[M��tcI9�t�M�C I��� I�kTE1�J�D H��L��� D�A��A��w�H99u�� � D�D�V��|��� @ Iǀ� � I�T$H��t H9�u�Z � H9�t#H��H�BH��u�A�D$��A�D$[]A\� D H9�t*H�GH��tH�BA�D$��A�D$[]A\�I�T$��H�WA�D$��u I�D$ I�T$�ffffff. � ATUSH����!��H�3H�=� # �� # H��H�-"�" t H�U H���p L�cH�E H��H� �P0A�D$0t[]A\�f � []L��A\�� @ USH��H��H��trH�-��" H��H��" � H�?H�E ��� H�E 1�1�H�;��� H�CH�;H�0H;w@t H�E ��� H�;H�E ��� H��H��[]�)��f � H��[]�f � UH��SH���G0tH��[]�f. � H��" H��H�� H�?� H� ��� H�}H��u� H��H�_����H��u�H�u H�=�# �. # H��H� ̎" t H�H���p �E0u H��M0H��H�5�" H��0 H��[]��H�H��H�=������ �e0��� � ���t��u �G��~�G0t�� D �{�� �� ���t��u H��G0t�� � H� t����� @ ���ff. � UH��� SH��H��H�-Ѝ" H�?H�>�" H�E ��� H�CH�;H�0H;w@t H�E ��� H�;H�E ��� H��H��[]�o��ffffff. � ATUH��S��H���}# dH�%( H�D$1���ti��u=H��H�=�# �# H���� H�@H�L$dH3 %( �� H��[]A\� H�T$H��H�=�# ��# I�ċD$��uPI�D$빐L�%�" � H�=m# ��# I�$��� I�$� H�=�# ��� �U���f D H���" �� H� �P(1�H��H�(H�@ H�@ H��I���D T H�B I��A�@8 A�@P H���BX �B\ Aǀ� ����Hǂ� �D U H�B A�@< A�@T �B` �Bd Aǀ� ����Hǂ� DŽK� DŽK� H��H���R���H���" I�\$H��H�$�" � H��H� ��0 H���c���1��\��� @ ���ff. � AVH��AUI��L��ATUSH��H��H�1dH�%( H�D$1�H�F�" H� ��x H���� 1�H������H��I���� L�57�" H�T$H�sL��I���8 ������ H�[H���d��� H��H�=3� HN�H��H9���� H��� H�=� HN�H��H9���� � � �k @ H���" E1�H� /� H�H�5�� L��L�1�A��@ f D � H�\$dH3 %( ���V H��[]A\A]A^� � 1�� H�HcL$M� H�4B�| TL�F(C� ��� I�|$�G0u����떐H��� H�=L� HN�H��H9���� H��� H�=0� HN�H��H9�� ����1�8��t���M�E1�H� � H��H�5�� L��@�A��@ ���� @ I��Hc�L�J H���A���� �L���H��� �>���I��L��� H��� I9�t H��tHDŽ� H��� B�� L��� ���f D 1�1��������f. � AWAVAUATUH��S��H����~ D�r�A��t?H��" H��1�H��� H�5M� L� 1�A��@ H��� []A\A]A^A_� D H���" L�)H��I��I��H��H� L��x H���' �� �� � H��H�D$���A��I��H�L$� I�G�8-� �xi�� �xn�� �x �� H���" I�wL��H��H� ��x H���� � H��D�s��%�I�_I��I�EL9��� H��tAH���" 1�1�I�} H� ��� I�EI�} H�0H;w@tH���" H� ��� L�����L��L���P���Yf D H�y�" E1�H� O� L��H�5�� H��L�1�A��@ H��� []A\A]A^A_�f. � I�} I�_tME��~I��D��H��L��L���L����t�I�}�G0t1�H��[]A\A]A^A_� @ ��1��� � H�y@H��t�� ��I������ffff. � UH��SH��H��H���" H� ��x H��t 1�H���%��H��tH��[]�f � 1���H�m�" E1�H� �� H��H�5]� H��L�1�A��@ 1��fffff. � ��~iAU��L�l�ATI��UH��SH��H��� � H��H������L9�t'H�3H��L�����H��u�H��� []A\A]� @ H��1�[]A\A]�1��AUHc�Hc�H�ATUH��SH��H��( dH�%( H��$ 1�H��DT<�H � <�� <ukL�, L�d$H� �� � 1�F�D�@L�� ���H�F�" L� V� M��H� �� H�5H� H��L�J�D� H� H�PXH�$ 1�A��@ H��$ dH3%( � H��( []A\A]�f D L�, L�d$H� &� � 1�F�D�@L�� ���H���" L� �� M��H� -� H�5�� H��L�J�D� H� H�PXH�$ 1�A��@ �e��� � ���U���H�Y�" H�5Z� H� ��8 �9��� @ H�L�d$� D�L�@D�D� H� /� L�� 1��[��H� �" 1�H��� L��H��L� 1�A��@ ����� ��ffffff. � AWAVMc�AUM��ATI��UH��H��SH��HH� ��" dH�%( H�D$81�H�t$�L$H�T$,H�H�L$0L���� ��A���� �D$,�P���vnL�H� �� H�5z� E1�L��H��1�A��@ H�|$0� H��tH��P0���� H�\$8dH3 %( D���9 H��H[]A\A]A^A_� � H�T$0H�2���&�� ~b��.�y ��n�� ���a���H�=�� � ��M���HcD$Ic�H��1�I�D�DT �d��� � A� �`��� D ��#t��%uFH�H��H�T$(H��8 ������LcL$Mc�K� I�J�D B�DT�T$(A��� �������H��" H��H�L$$H�t$H��H� ��P �������LcL$Mc�H�|$0K� I�J�TB�D T�D$$��A��x&�� H��8-�� �x0�� �x �� I�D$1�B�T�(K�DHA���Z��� Lcl$A� M�K�,A�DT K�D.A�� �A���f D H�A�" H�T$H��H� ��x H��������� �� � H������I�|$H��I������LcL$Mc�K� I� J�TB�DTM�,��n @ H�р" H��H�T$H��H� ��x H��������� ub� H���U��I�|$H��I���u��LcL$Mc�K� I� J�TB�DTM�,ԃ|$,t;K�DHH�|$01�A�� �-���f D L�E1�H� �� L��H�5�� ���H�%�" H�T$0H�L$$L�D$L�L$H��H�t$H� H�R��P ��L�L$L�D$������T$$K�DHH�|$01�A�����K�DH1�A�� ���� ��ATA��U��SH��H��L��H��dH�%( H�D$1�H��" H�T$H� ��8 ���� Ic�Hc͋t$H�L� H�< B�| TL�G(B�4�t H�\$dH3 %( �� H��[]A\� ��H� �A��M��L�I A����N�\(C�4�t�H��� u�E��L��� L�I��H��� H9�t H��tHDŽ�� H��� B�� H��� �j���f�� �^�������AWAVAUATA��H��UH��SH��H��H��8 H�1dH�%( H��$( 1��E��H��H�D$�� A��� H�D$H�-i~" H�D$ L�-|" L�=�{" E1�H�D$E1�L�E 1�K�t� 1�H��� H��A��@ H�t$D��D��H���R���L�E K�4�1�1�H��� H��A��@ H�D$H�|$H� B� � � F�D�X1�I�����L�E 1�1�H�Q� H�t$H��A��@ I���_���A��I��I��H�D$A���@���E1�H��$( dH3 %( D���4 H��8 []A\A]A^A_� � H�mL�-�z" L�%�z" E1�E1�K�4�H��D�|$�W ����tnK�t� H���F ����t~I��I��u�A��I��I��A��u�H��|" E1�H� =� H��H�54� H��L�1�A��@ A� �>����A� �2���H�t$D��D��H�߉D$����D�L$����Lc|$H�L$Mc��D$H�l$ � � H��K�DwD�D�H� �� 1����H�Z|" 1�H��H��H�1���@ D�L$���� ��AWAVAUATUSH��(dH�%( H�D$1����� �A�M�xL�t$H��I��H����H��M�l f. � I�W����-�8 H�=� � H����� f � H�=�� � H����C H�=�� � H����� ���� H�=�� � H���� H�=�� � H����y H�=�� � H����� H�=�� � H����� ���� H�=�� � H����S H�=m� � H���� H�=�� � H����� H�=G� � H����= H�=�� � H����f H�=%� � H����r ���5 H�=^� � H����Y H�=�� � H����C M�L��L�T$���� L�T$H��H��H�=$� HN�H9�L���� H��H�={� L��HN�H��H9���W � H��H�=�� H��L��HN�H9��� H��H�=�� L��HN�H��H9���� Dž� Dž� �jf D �J��i�� �zn�� H�=�� � H����} �zr������z �����M�A� 1�H��L��H���m������T I��M9��G���1�H�\$dH3 %( � H��([]A\A]A^A_�f���l�v����z �l���M�E1�� D �z �U���H��x" 1�H�5�� H��H�1���@ � 댐�z u M�E1�� �O���f. � �ztt�H�=�� � H���t�zb� ����z ����M�A� � �����zp�8 �z �. H� x" L��I�L��H��H� ��P ��u<�D$�EX����H�x" E1�H� � H�5�� H��L�1�A��@ f � � ���f D H��w" L��I�L��H��H� ��P ��uЋD$�EXH��w" L��I�L��H��H� ��P ��u��D$�E\�I��� D H�Yw" L��I�L��H��H� ��P ���t����D$�E`H�.w" L��I�L��H��H� ��P ���I����D$�Ed��� D �zl�����H�=�� � H����N����zru �zp�C H�=X� � H����� �zt�� H�=�� � H����b����zb�7 H�= � � H���� �zl�� H�=T� � H����3 �zr� H�=�� � H����5 �zt� H�= � � H���t �zb������zs������z �����M�� � H��H���)����������� ��� �zp�����z ����H��u" L��I�L��H��H� ��P �������D$�E`�p����z ����� D �zs�����z f������M�1�1��j����zp������z � ������ D �zs����z f�����M�� 1��'����zs�����z ����M�1�����Dž� Dž� �������H��t" E1�H� � L��H�5v� H��L�1�A��@ � ���Dž� Dž� �n���Dž� Dž� �U���f � H�GH��t'H�Xt" H�G H��H�H��� ��f � ��fffff. � H�!t" I��L�H�wH��E1�H��" L��H� H��� �� AVI��AUA��ATI��UH�-t" SH��H�E ��X H�5d�" H�=��" M��E��L��H�����A��H�E H���� []D��A\A]A^�AUH��ATUH��H��H��SH�� H�IdH�%( H�T$x1�H�L�L$ L�D$�������t+� H�T$xdH3%( ��uhH�Ĉ []A\A]�f D L�d$D�L$ D�D$H� �� �d � L��1��f��L�-s" H��I�E ��� I�M 1�L��H��1���@ ����� � AWLc�AVAUATUSH��H�� L�� dH�%( H��$ 1�L�������xt��� �� L�t$ L�%�r" L��H��` H�[p" H� �� M�� H��N� ��B,D�z0�D$�B$�D$�B(�D$�B H������$1����I�$H�{� �����H��( ��A��ufL9�t I�$H��P0H��$ dH3 %( D��uiH�� []A\A]A^A_� � L�%�q" L�t$ I�$�P(L�� H���-���f D I�$H�{H�5A� �� I�$H�{��p �r����s��� AWI��AVAUATI��UH��SL��H��(L�1dH�%( H�D$1��T$L�L$L��L�l$`���� H��H�=� HN�L��H9���� H��� H�=Y� HN�L��H9������1�8�t#H�\$dH3 %( �� H��([]A\A]A^A_�A�E I�WL�l$H� m� I��L��M��H���G ����u`�|$usI�WL�D$H� A� M��L��H��� ��������� @ A�E I�OL�l$H� � I��L��M��H�������t� �F���f � �|$t�H�\$��(��� I�OL�L$M��H��� �w������ff. � AVA��AUI��ATI��UH��SH�� H�dH�%( H��$ 1�H������� H��H�=�� HN�H��H9���� H��� H�= � HN�H��H9���� A��H� po" t$L� I�U�E1�H� տ H�5 � H��1�A��@ H�L�l$L��� H�H�5�� L��� I�T$H�L��H�rX��� H�H��H�t$��� ��H�L��� ��H��$ dH3 %( �U H�� []A\A]A^ÐA��t+H��n" I�U�E1�H� � H�5n� H��L�1�A��@ I�UI�ML�L$ L�D$L��H�������¸ ���{���H� dn" L�l$L��H���� H�L��H�5�� ��� I�T$H�L��$� L��H�rX��� D�D$H� m� � L�� 1��K��H�L��L��� D�D$ H� >� L�� � 1�� ��H�L��L��� ��� � H��m" E1�H� =� H��H�5,� H��L�1�A��@ � ����g��� � AWAVI��AUATE1�UH��S��H��xH�� dH�%( H�D$h1�H�D$P�T$dH�T$T�t$`H�L$(L�l$LH��H�D$�W���H��� L�t$0�D$8 H�D$H�D$HH�D$B��%0 ���| H�|$B�'��~oH��E1�L��L�t$`I��� @ H�L$D9<)~DI��$ L�L$D��L�D$�T$8L��L�,$A���l���)�+\$HA��,0 +\$LD9�A� .�L��I��H�����p H�|$B�'9��� H�D$0��� �P�@ I���D$8H�D$0 H�D$ I��t B�\$`� ����H�D$(�@ ���� H�|$(�W9�~�W H�D$(�@,���� H�|$(�W(9�~�W,H�D$hdH3%( �� H��x[]A\A]A^A_� � D�z�A��A9��� E���� L�t$`1��\$<L�t$ A���/f. � �m B��%0 A��A��D9��� A���t{H�� L�L$D��L�D$�T$8H��L�,$����)�+\$HH�D$ +\$L��B� u�D��A��B��%0 �\$<���3f � H�D$0� �� �@ �X���f�A�ڋ\$<D��H�T$A��B�"��E1�D)�)�H�|$0D9�G~U�\$ D��L�t$D�T$<f�H�� L�L$��L�D$�T$8H��L�,$���J���A�D|$HD|$LC9 &Nj\$ D�T$<E)��*��A*�H�D$0�^��@��� � H�D$(�@, 1��4��� D H�D$(�@ 1����E��A��D���\$<B��%0 � ���H�T$A�ƿ B�"����A�ƿ ������f. � AVAUATUH��SH��H��� dH�%( H��$� 1����G H�GL�%|i" L�l$�px�P|�C0�� L�t$@H��L�����t$�T$�����C0�� I�N�� L�D$ H�|$0f(��D� 1��1EL �Q�I���� �*�f(��\��Y��*��^��X��A@H�� � GH��H��u�H��$� �\$8�T$(H� d� �L$0�P �D$ � H�߸ ����I� $1�1�H��H��@ 1�H��$� dH3<%( �� H��� []A\A]A^�f D f(�fW��Y��� L�%9h" L�l$H�1H�L$H��L��I�$��8 ��H�L$t � � @ I�$I�UH�qH��8 ��u܋t$�T$�q������ D AT� I��UH��SH��H��H��H��0dH�%( H�D$(1�H�D$ L�L$ L�D$H�$� �����t(� H�L$(dH3 %( u_H��0[]A\�f. � H�ag" H�T$$H�uH��H� ��8 ��u�I��$ D�L$$L��D�D$ �L$�T$ �D$ �J��D$ ���ffffff. � SH��H��H��H��0dH�%( H�D$(1�H�D$$L�L$ L�D$ H�$�J�����t � H�\$(dH3 %( u/H��0[� H�� D�D$ H�ߋL$ �T$$�D$ �h�D$ ��m�ffff. � AWAVI��AUI��ATM�� USH��H��(H��H��dH�%( H�D$1���H��L�����H�D$H��� f D A�D�HE�VA9�DLʋP A9�| �����DE�E9��� A�V�x�H9�L�A�V 9�| �����E�9��� �H�rA��f � ���: @ ���� ��u!M��( Mc�Hc�H��M�[O�<�I�׀b ���9�t8E�ȉ�D++S��u�M��( Mc�Hc�H����M�[O�<�I�׀J 9�u�A��E9�u�H��L����H�D$H��� ���H�D$dH3%( uTH��([]A\A]A^A_�f � M��( Mc�Hc�L�<�M�[K��N� �A�S A�Ѓ�A��A��D �A�S �;�����ffffff. � AUATI��USH�����~eL�-�d" 1�1�f�I�T$I�E ��H�<*H���P0A; $|�I�E I�|$�P0I�E I�|$�P0I�E I�|$�P0I�E L��H�@0H��[]A\A]��L�-)d" �ffffff. � AUA� ATI��H��UH��L��SH��H��(H�IH�L�L$L�D$dH�%( H�D$1��k��t'H�T$dH3%( D���� H��([]A\A]� D H�� �T$�t$���H��t/H�uL�KH� ��" �$ L� H��L���c�A���f D H�Yc" L� � L�CH� � H�H�5�� L��L�H�$ 1�A��@ �R����� @ AWL��h AVE1�AUATUSH��H��� H�WdH�%( H��$� 1���� H�l$pD�jx�؍ �G0A�J|���A�D�$D��L��D���5���H�C�AOH�D$A�G���� �:� �A*W �\��Y��*��^��X�I�? tFH� ئ �< � H�� ���H�Eb" 1�H��I�7H�|$L�1�A��0 ���� I�F H��@t.N��3� I��A�G�AO���k���� �� fW��|���H�� H��tGH��a" H�{H� ��� ��t/H��a" H�{H�5η H� �� H��a" H�{H� ��p H��( H��t�����t D�l$`�( D�d$dL�|$LE1��D$<��0 D$<�D$<�D$P��� �D$8��4 D$8�D$8�D$TH�2a" H� �P(H��D�h � �@ D�`$H��� D�l$I��L��H�D$0H�D$H�D$HH�D$(B���0 D�t$ ���� �T$���� E1�E1�� D D;d$�� H�� L�L$(D��L�D$�T$ H��H�,$A���e�A�Dd$HDd$LC�D� F;��0 |�D;d$F�|�P}ZH��H��L��I��H�� L�L$(D��L�D$�T$ H��L�4$A����A�Dd$HDd$LA�D� D;d$|�L��I��H��H��H�D$ I��t�D$dA� �D$���H��_" A�} E1�M��H� ���P(I�EH��_" A�}H� ���P(I�EH�D$0H�D$H�D$HH�D$ H�D$LH�D$(C��D�t$���� O�l�E1�L��M��B���0 D��D9�BL�P)�H�D$(M��H�� L�L$ L�D$I���T$L�H��H�$� �EK�l��D$HN�T= A��D$LA�BA�D$I��C9D� �M��I��H�D$ I���W���H��^" L��A�?H� ���P(A�7I�G���� A�I��E1� � H��^" �<�N�4� ��M�H� �P(�}I�$��~3�G�L��HMH�t�1�H��f�H�H� H��d �H��(H9�u�E A�UI��9Љ��� L�e�L��1���~/H�T}��H��H�JH�� H���BBH9�B H��u�H��H��t�t= �H�CH��( ǃP ǃT �xx�@|���W���\ H��$� dH3%( ��X �^ H��� []A\A]A^A_Å��S���H�D$0 I�� D ��H�t$0�� H��E1�H��H�D$ H�EL�4�D$<�D$(L��I��H�É� � ��0 D�D$(E��A)�9苃4 DO�D9� �t$8F�,&A)�O� �H�� D��D��D�D$I��M�L�\$�$�H�L$ I�I�GL�\$D�D$L�4A�D$I��M�A9GE�CE�k �t���L��I�ߋE �\$0H�D$0�ƍS9��S����}� ���H��\" L�|$H�5a� H� L���� H�f\" L��H� ��p �1���E1����� D �+�ff. � AWAVI��AUI��ATUSH��H�� H�-\" L�dH�%( H��$� 1�H��H�1H��H�E I��8 ��t6A� H��$� dH3 %( D���x H�Ę []A\A]A^A_� @ H�E I�uH�T$H���8 ��A��u�A�� � I��( H��t A��< tL���O���A��< �I��( A�F0A+�� L�\$$E1�D$B�4�Ic���~NJ�L�C��+A ��C���� �4�A� E1�� D H�D�C� �B+L I����C� �~ A��D9��D�F�G��I��I��u�Hct$HcD$L�d$ H�JL��H��H��H� � � H�кd D�H D�@1����H�E H���� H�M 1�L��H��1���@ ��� H�E H���� �v���E1��m���f D �+�ff. � AWA��AVI��AUATUSH��H��� dH�%( H��$� 1�H�G��H�D$�� L�%�Y" H�l$ H�1H�L$H��H��I�$��8 ��H�L$t4A� H��$� dH3 %( D���V H��� []A\A]A^A_�f�I�$H�UH�qH�L$H���8 ��A��u�A��H�L$�� �D$P�����D$T����H�D$�� �. M��( M���N A��< �@ A�F0A+�� L�|$@D$ D$$H�D$0E1�H�D$G� H�D$C� E��B�����~JO�DSB�D A�x ��)����l I�@1�� �x ��I��H��)���� ��D9�u�B�t I��I��u�A��0 9D$@�T$4�� ���� �L$0� 1����9 ���! ���Q ���� H�l$`�D$` I�$H���� I� $1�H��H��1���@ �S����������H�Q�A�wL�Ѩ � H���{�A���%��� L�����A��< �M��( ��� @ A��4 9D$D�L$0}W��1���� �@����B�t B�DP���tI9�~ H�|$�B�B�C���� � )�9�|�H�D$B��� � 1�1���� � A� 9��)�A;py�� � �D$4 ���� �D$0 ��� I�$H���� �@���f D D�L$4D�D$0H�l$`H� ӧ �d � H��1�� ����I�$L�D$PH�qH�L$H��L��L�D$��8 ��L�D$H�L$����I�$I�PH�qH���8 ���'������H�l$`D�L$4D�D$0H� U� �u�����1�����9�f � ��t[��t��< �t ��f � ��< ��< �u��H����< H�V" H�=� H� H��� �� � ��< � � SH��H��@H�L�T$4D�L$H� $D�D$A��H��L�T$L�H� ܀" H�sdH�%( H�D$81�����uO�T$4�D$,��u+� H���V��D$,H�\$8dH3 %( u)H��@[� @ � H���+��D$,�� D � ����� @ AVA��AUI��H��ATA� UH��L��SH��H�� H�IH�L�L$L�D$dH�%( H�D$1��v���t*H�t$dH34%( D���� H�� []A\A]A^�f D H�� �T$�t$���H��toA��tYA��t#H�KA�V�E1�A� H��H�����A���f�L�KH�u�$ L� H� �" H��L���l��A���b��� @ H�uE1��$ ��H�!T" L� ؤ L�CH� ޤ H�H�5�� L��L�H�$ 1�A��@ ��������fff. � AWA��AVAUATA� UH��H��SH��H��(H�I�T$H�L�L$L�D$H�4$H��dH�%( H�D$1�� ���� H��H A��L�0~]A���- �D$L�{����H��L�l � M�'L������ H�� H�=-� HN�L��H9��uM�wI��M9�u�H�<$L����H���� H� ��" �T$�t$H���� H�� �a��H;��" I���� L��H���6��H��I��t<H�hI�<$H��t���T$H�KM�,$E1�L��A� H��������A��t2A� H�\$dH3 %( D���� H��([]A\A]A^A_�f D � H���#��ŐH�1R" Lc|$E1�H� � H�5 � H�<$A� L�1�J�T��A��@ �f D H���" � ���H��Q" �t$ � �$H� �P(�t$ H���" H��H� �$������� D H�H��t� �}� D ��f D AWAVAUI��ATUSH��I��H�� H�-GQ" L��� dH�%( H��$� 1�H�vH�E D�$I�ȉ�H� �" ��� ��A���\ L�=�Q" ��� H�ShC0I;��� tmH�^Q" H;taH��P" E1�H� (� H�5ڡ L��A�L�1�A��@ I�H�ChH��$� dH3 %( D��� H�� []A\A]A^A_� @ H��� L9��� ��< L��� L��� H�5� 1ɺ ������ ���� ��u�*�� �Y�� �,���� ��� ���m ��u�*�� �Y�� �,���� H�E H�s@L�l$pH�{�� H�CX� H�{L��H� DŽ$� H��$� H�E �� H�spI��H��t H�E H�;��P H�E L�spH��� �� H��$� H�C`H�{HH� H��$� H�E �PH� � @ DŽ$� H�{L��H��$� H�E �� H�sxI��H��t H�E H�;��P H�CPL�sx�,�! H�{L��H� H��$� H�CXH� DŽ$� DŽ$� Ƅ$� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H�C`L�� L��� H�{H� H��$� H��� H� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H��� H�{HL��� H�D$`��� �D$X��� �D$\H�CPH�D$ H�CXH�D$H�C`H�D$@H�E �PH�{H�t$H�D$8�D$U ���� H��������f D A� ��� D ��� ��� ���k�� ��� �b����x�� � AWAVI��AUATUH��SH�����T$ �� L�-@M" H�QH��1�H��I�E ��h I�ĸ M���� I�E H�5i� L�� L�= M" �@ I��P(H��L�`I�$H�kHǃ� H�CX H�CP H�H�7���Hǃ� H�C@ �C0 H�CH�CH �C4 H�C` H�Cp H�Cx Hǃ� ǃ� Hǃ� Hǃ� �C8 Hǃ� Hǃ� Hǃ� ǃ� ����ǃ� ����ǃ� ����ǃ� ����ǃ� ����ǃ� ����Hǃ� Hǃ Hǃ� Hǃ� Hǃ Hǃ ǃ Hǃ( ǃ0 ǃ4 ǃP ' ǃT ' ǃX ǃ\ ����H�� H��K" H��� �� ��< ��O� Hǃ` � D� H� ��� ǃ� ��� ǃ� ��� H�Ch��� ǃ� ǃ� ǃ� ǃ� ǃ@ ǃD �C( �C, ǃ8 Hǃh Hǃ� ǃp ǃx ǃt ǃ� ǃ� ǃ� �v��H�� �j��H�� �^��I�E H�{H��H�� � �" ��0 H�SI�L����H��H��H�rXH������� �T$ I�NE1�H�C H��H����O������7 H�SI�H��D$ H�rX� ��P �D$ H��[]A\A]A^A_� � I�E H�{��� H��� []A\A]A^A_�f D H�iI" I�H��E1�H� d� H�5r� L�1�A��@ H��� []A\A]A^A_�f. � ��H��t��tDH��A� H����� H��H" H�wH��E1�E1�H��H�L��� H��x" A�� D H��H" H�wE1�L�H��H��H�L��� H��x" A�� D S��< H�������< u[� @ H��H" H��H�= H� ��� ��< �[�ffff. � ��� �� �^ H�� ATHc�USH��H�� H�GLJP � LJT �Hx�@|�Q�����\ ��X H��[]A\���� � ��< AH�߾ []A\��� � ��< ���@��< �� �F(9�P ~��P �F,9�T ~ ��T �F,F4�V(V0����;�X ~��X ;�\ ~��\ ��< @�s��� @ H� taH�-BG" H�w H�G H�H�E L��H �� H�{H��A��H���W��H�E H��H�5� []A\H��0 �� @ []A\��f�H�-�F" �� � AWAVAUATUSH��L��G" dH�%( H�D$1�H��� D�d$XI; �� L��F" E1�I; A��D��Lc�4$�T$N�<�I��E1�A�����Ic��� E��t E���� B���0 9�M��I��B+�t 9�B�4��_ ��� H��( D��A9�E���> H��A�r�B�4���A� � H�\��V�H��L�TH��1� � P H��L9�A�u�Hc�H��T3 ��A�PI��I��tE�t$A� �,���f D 9��8���H��( I�UA� ����A�G�f. � �T$P� ��t#��� ��� Q��� Q��� Q H�L$dH3 %( uZH��[]A\A]A^A_ÐE��tAH��( H��B�� D��E�����A� H�\�1�1�� ���A� 1��H���1������AVA��AUI��ATI��UH��SH�� H�dH�%( H��$� 1�H������� H��H�= HN�H��H9��tyH��� H�=�� HN�H��H9���� A���� H�U�A�vL��� � L�������H��$� dH34%( ���� H�Ġ []A\A]A^�f D A��u�H�MH�UL�L$ L�D$L��L���m�������� � � @ H�MH�UL�L$ L�D$L��L���;������uҋT$ I�� �t$���H��H�C" � H� �� H�5� L��P �5��� @ H�QC" E1�H� �� H��H�5́ L��L�1�A��@ �^����I�E�� ��A��� A��� H�L$ E1�E1��D$ �$ L���o���������D�L$(�D$,H�l$0D�D$ H� � �d H�� D)ȃ��D$�D$$D)����$1�����H��B" 1�H��L��H�1���@ �T���H�5!� L��P �?����I��f � AWAVI��AUATUSH��� dH�%( H��$� 1���< �t����< �� �u/H��$� dH3%( �� H��� []A\A]A^A_�f D L������< A�� t���� �� �ڍ<A�V0�ڍ4A�W|����4 Ax����& ��� �� �� A��P A��� 9�} A��P ��A��T 9�~ A��T ��E�GxA��X D��)�9�| �J�A��X E�O|A��\ D��)�9�| �S�A��\ )�)�I�w(�A�D$L�B���D$T�C H��@" H�D$8A��� A�~8H�\$8I�V@��L��؉|$A�~0�A�D� $F� A�ȉ|$L��A��� A��< �@t3A��� ��~(��/ I��� H�D$8I�O(L��L� A��� AdžP ' AdžT ' AdžX Adž\ �(��� � ��H��$� L��$� ��< H�G1�H�� H�VM��H�D$@�1��I��� H�D$(H�D$xH�D$0H�D$|H�D$8E�l�(�\$HE��u ��$� D�h1�E��A�� ~IE1�f D H�D$8I�� D��L�L$0L�D$(L���T$HA��H�$�S���l$xl$|E9�A�,�u�A��� AG0H�D$( �DE A��H��H���h���H�D$@��$� M��9�X u;�\ t H��>" ��$� H�|$@H� ��� A��< p� L����������M��( E�E�AE��~KA�C�1�L�� A�@�H�t�H��f D E��~ H��II1�f�H��d �H��(H9�u�H��L9�u�A��0 A��4 D��1�D��)�H�)�H�A9�DO�A9�DO�E��E��� E��� A�C�L��$� L��$� L��D�D$(DŽ$� ��$� A�@�L��L��D�\$HDŽ$� ��$� DŽ$� DŽ$� �i��A��4 A��0 D�D$(D�L$H���� ���� ���� ���� A�A�A��4 L��$� L��$� L��DŽ$� ��$� A��� L��DŽ$� �$� ��$� �T*���$� L��������t`A��0 A��t L��L��щ�$� L��D���$� A��4 ��$� A��� ���$� ��$� �L)���$� �e��A��< ��S���L�����A��< ���A��< �+���D�T$LE�������E�G �L$T�T$LI�>�'��I;G(H�D$@�^ �D$TI�VpE1�D�L$LH�t$@1ɉ$I�>����I��( H��� I�FH�\$@A�n0H;X(A��� �+�; ��A+�T A+�P ��$� ��$� H�D$@D�A��8 H��$� H��$� E��I��` ~sD�IA�C�E1�L�� A�A�H�|�H�� E��~BL��Hq1�f. � H��HH��(�` �H9��@ �@ �@ �@ u�I��M9�u�I�� �Y A��0 �ID��A��4 1���)�H�)�H�A9�DO�9�Nȅ�E��A��~D��t@A�t @�L��DŽ$� �D���$� ��$� �A���$� ���A��0 ��~?��t;I��` A�T$�� L���P$A��� A�4 �@ �P(�T*��P,���E��~4E��~/I��` A��A��1�L���@ D�`$�@( D�h,�����tH��tDA��t A�0 � I��` L���P �T��P$A��� A�4 �P(�T*��P,�6��I��( A�n0A��� D�E��D�T �w H� �9" H�AE1�1�L�|$`E��I��H�\$8 L��C�<:H��A;�X �|$HH�\$(�D �A �D�A;�P �0 �y���% J� � H�AD�|$P1�L�\$XE��H�\$01� D I��E�,/I��E;�\ B�T �� A�D�A;�T �� H�|$0H�qH��H�4>H�4��~ @��u ���T H�QH�|$0H�:H��H��tkH�0H��x�� L��HQH�D$(HA��$� H�|$@D�J� �T$P�$� D�@�D$ �D$ �$ �J��I��( H�A�SH��Bl ;Q����E��L�\$XD�|$PH�AH�\$(A�s�I��D| 9��z�����L�|$`I�� ~E1�E1� @ �A��~a1�� D �EH��;A}LH�QH�D� J�4"H��H� H��t�H�0H��xu�A�� H���P��I��( �EH��;A|� D A��I��D;)|�A�� H���<���A��� A��� H��$� E1��D$ �$ A� L��������� Idž` 1�L������I�W(H9T$@� E�O|E�GxH�t$@�X���H�AH�|$(�T$HF�L H�AD��D�D8I�FH�x(�D$ �D$ �$ ���I��( �Z������9����������������L��$� L��$� ���H�D$hH�D$8H�I�~D�^D��$� L�H�D$()�A�D�L �L$PA��$� E)�D+N �D$ �D$ +VD�H�t$@�$I�VHI�~A�� I��( H�D$h�*������s���A��T I�NpE1�H�\$@E1��D$A��P H�މD$�D$T�D$�D$L�$I�>����H�D$8H��I�>H� ��h E�O|E�GxI�w(���A��t L��$� L��$� L��D�L$(DŽ$� L��DŽ$� ���$� �T���$� ��$� A�P���$� L�����A��0 D�L$(��������w���H�D$8I�v@� L��H� �P A��� H����H� 5" H�D$8����D$TA��P I�VpD�L$LH�t$@�$E��T I�>�_��������$� ��$� ������$� ��$� ��$� M�V��$� D��$� ��$� )���)�A��I��� �4$H�t$@I�:D�H�������H�]4" I�� H�D$8����O���ffffff. � AWAVAUATUSH��H��HdH�%( H�D$81�H��( �T$�� H�D$ L�vI��H��A� E1�H�D$H��D�L$H�L$L)�A� H��A��D$ �$ �u �\�����tT�D$ 9�P ~ ��P A� �D$$9�X } ��X A� �D$(9�T ~ ��T A� �D$,9�\ |DH��A���f���E��t � H���D��H�D$8dH3%( u"H��H[]A\A]A^A_� D ��\ A� �� ���ffff. � AWAVAUI��ATI��USH�� H�i�H�t$�T$ dH�%( H��$� 1�H���1���� H��H�=�y HN�H��H9��� H�� � H�= � HN�H��M��� H9�I��� �����8�LE�M�<$L���ͻ��A� H��H�=J� L��L��HN�H9������)��ۅ��B H��L��H�=F� HN�L��H9���� �|$ �� H�2" L� g� L�I�EH�PXH�$ I��H� z� H�5�� H�|$1�A��@ � H��$� dH3%( ���� H�ĸ []A\A]A^A_� � M��� ���� @ H��� H�=� HN�L��H9������)��ۅ��9 �|$ �� A�A�V����^ �D$0�����D$8�����D$4�T$<A�����A�F����H�t$0� L��1������4���f D H�l$@E�NE�H� @� �d � H��1��!��H��0" � H��H�|$H� ��P ��� � H��0" L� � L�I�EH�PXH�$ ���f�I�L$I�T$L�L$,H�|$L�D$(L��������������A��D$(9��~ �L$,A�v�D$0�L$8�T$4�t$<A�A�N� ���f�H�!0" E1�L��� H� �� L��H�5�� H�|$� L�1�A��@ ���� �������� � ���� A�v�L$,9��z������螹��fffff. � AWAVAUATUSH��xdH�%( H�D$h1����t$@�T$ u&H�D$hdH3%( �? H��x[]A\A]A^A_� H�t$`I��H�� H�V�x���HcD$ �L�`H�D$I��H�D$8��0 9�|��|$ I�W���� �rxA��� AW0�څ��V�T$D�� ���� H�D$H�\$\E1�H�l$XA��H��M��� H��L��E��I��� �H�|$D9|�`~AH�� �T$ D��L�4$I��M��H��A���`���A)�H�D$8D+l$XD+l$\��0 D9��D�l$DI�ߋt$D������H�|$�L$@H��H�� H����I�TH�T$H�� B A��H��H��I��� H�D$(H�D$XH�D$0 D H�D$D;l�`�� H�D$\�l$D1�H�D$A�E�D$$�%f D �� H�D$Dd$$A��H��D9d�`~AH�D$I�� A�L L�L$0L�D$(L���T$ A��A��H�$�`���)�+l$X+l$\u�A��E��l$@�b���H�D$8D+�0 H�D$HD�h ���� � ��u�A� �ċr|�(���H�T$HL�t$XM��L�t$�z H�T$�H���|$$I��� L�|$8H�|$f D �T$$D�r�A9��� L��l$DE��1�L�d$\I���"f � x~A��0 A����D9�� I�� L�L$D��L�D$�T$ L��L�$$�c���)�+l$X+l$\u�A��0 M����)\$$�D$@�k���D�l$$A)�H�D$HD�h ���� D ��M��A��0 uȻ � M�������fffff. � AWAVE1�AUA��ATI��UH��SH��H�� D��t D��� dH�%( H��$� 1�H�A��8xA�ƅ��� Ic��ip H�� H��f(�H�D�P�H�H �\х��) �*��Y��*��^��X�H�\$ H� �o �d � � H��袾��H�S+" 1�H��L��H�1���@ 1�H��$� dH3<%( �� H�Ę []A\A]A^A_� D Ic�D�L$H�T$H�� H�1H��L�\H��*" L��L� $H� ��8 ��L� $D�L$uw�D$A�SA�C ��xG9�~A�S D9�t t ��< 0� H��肽��1��U��� D9�� u�1��B��� � A�C 1�� @ f(�fW����� H�Q*" L�\$L��D� $H� ��� H�*" H�U�H�L$A�uL�D$L��H� ��p ����D� $L�\$tj~-���� ��� �����A�C A�S� ���f � ��u��AC� un f.�wj�L$A�S�B�*��Y��,�A�C �����t$D��H��L�\$D� $���L�\$D� $A�C A�S���A�CA�S�D$AC A�C ���f(��L$�\��^���$��� @ SH��H�?H��t����H� )" H��[H� H�@0��ff. � ATH��UH��H��H��SH��H�IdH�%( H�T$1�H�L�L$I���h�������t"� H�T$dH3%( ��uPH��[]A\�f�H�� �T$�4$���H��I��tȋ4$H�� �T$����L���z���� H���M�����F���f D ATI��USH��`H�� dH�%( H�D$X1�H��t`H��H��H�\$0�)�����u? D H��H��赺����u �H���8���H�|$0���H���ִ����t�H���z�����t�I��$ � ���I�t$pH� �'" H��t H�I�<$��P I�t$xH��t H�I�<$��P I��$� H��t H�I�<$��P I��$� H��t H�I�<$��P I��$( H��t���� L�����A��$ H�-:'" ��tH�U H�=�} 1��R H�1�I�$L��H�=�V" ��` H�E L��P0H�D$XdH3%( u H��`[]A\��Ͱ��f. � ATA���� UH�-�&" SH�E �P(H��D�`X�@` �@d H�@x H���@l �@p � �@h H�E ��� H��[]A\�f. � AULc�H��ATUS� H��(H�-L&" dH�%( H�D$1�H��I��H�E ��� H��t* � H�@L��H� B�D�9�L�H�E �� H��u�H�T$dH3%( ��u H��([]A\A]��ï�� U�� SH��H�-�%" H�E �P(H��H�E � H���� H�E H�{X� ��� ǃ� ����ǃ� ����H��H��[]ÐAWI��AVI��AUE1�ATUSH��(H�-Z%" dH�%( H�D$1�I��H�E L��L����� H��tbf. � H�X�C,��~$H��%" D�CXH�#| D�� H�81�葶��H�E H���x H�E H��P0H�E L�� H��u�A��I��XA���w���H�E L����x H�E I�X��x H�E L���P0H�D$dH3%( uH��([]A\A]A^A_��]���ffff. � AT��A��USH���S@H��tLH�hD��H�{X��� H��t6H�@�M,9H,|H��H��U@H��t H�@[]A\� H��H��P@H��u�f�1���fff. � AWI��AVI��AUATU��S1�H��XdH�%( H�D$H1�L�d$ L�l$0H�<$�t$ �T$$��L��L��A�WH�L$ ��ufH�@I�D] H��I��XH��t�l �ϐH�\$0H�l$8L��H��H��SH�T$ ��ubH�@H�L$HdH3 %( uoH��X[]A\A]A^A_� � ��H�D$�\���H�T$I�D] H�BH�$9�� �x������ �l����L�pL��I�FH��H��UHL�pI�FL����ʬ��f. � AVAUA��ATA��USH��H���S@H���� H�hD��H�{X��� H��twH�XH��H��U@H��I��H��S@H��tAH��ulH�u"" I��L��D��H�=�y 1�L� D��A�Q A� H��D��[]A\A]A^� E1�M��t�H��t��!f � H��E1�[]A\A]D��A^� D M��t�H� "" H�D$L��H���p H�D$H�H���p A� �f�AWAVAUATA��USH��HH�|$�ωT$ )�L�D$ ��dH�%( H�D$81����B L�=�!" ����I��P(�|$ H��H�D$A9��< Hcˉ�H��H�L$(H�AH�L$L�,�M���# H�P��H��H��H�U�I���p A9�|"��L��A�V@H��u҃�H�E H��A9�}�H�|$(�l$ H�\$ H����H�GH�D$ f � �C+D$ H�L$H�L�4�I�> t'H�D$H�L$ H�T$4��L��T�HI�H�PI���hX��H��A9�}�I��T$ A��H�|$�P0H�D$H�L$(H� ���� A9�|�T$ ��9�t��� � ��1�H�|$8dH3<%( u H��H[]A\A]A^A_�HcËT$ H�D$(�� ���fff. � AWM��AVM��AUI��ATA��USHc�H��H��H�CH�Ɖ�H��P@H���� H�h�E`���~ ��t1��teA���tvA�GA�W H�L$@A�A�W�H��[]A\A]A^A_Ð�A*��� �YEx�,��UlH�|$@A��Up�H��[]A\A]A^A_�f D �M,��u1A�G�� �Ed�� �E,������H��D�������s��� D H��D������ A�W A�GH�\$@A�A�W�H��[]A\A]A^A_�ff. � AUI��ATI��H��US1�H��8dH�%( H�D$(1�H�$H�L$L�D$L�L$H��Hc�th���m�� ��e�� �~n�� �~d�� �~ �� I��$ H��,H�l������E A���0 9��� ���� H��tH�t$� �{��� 1�H�|$(dH3<%( �� H��8[]A\A]� � �~auJ�~xuD�~ u>I��$ H��,H�l����E A���0 9�}�U �Ѕ�y��E �v���f D H�� " H�l�L��H� H��8 ��u�E �Ƹ �\����e��� D AWHc�AVE��AUI��D��ATUH��SH� � H��HdH�%( H�D$81�H� L��$� H�|$D�D$ L��$� H�AL��$� L�L$ H��H�T$4H��PHH���D$4D�D$ L�L$ ��uPH�AH�|$L�@`L�$$L��D��L���)���M��t�T$4A $H�\$8dH3 %( uZH��H[]A\A]A^A_� D D��L�L$(H�L$ D�D$ H����H�L$ D�D$ L�L$(H�AD;�� �z���D��� �n����=���ffff. � AWAVI��AUI��ATUSH��H�W,dH�%( H�D$81��D$ �D$ ��t ��� ��uCM��t�D$A�M��t�D$A�E H�D$8dH3%( �� H��H[]A\A]A^A_� � H�\$L�%�" H�l$ I��H�CH�D$I�$H��L����� H��t(f D H�@�@X;|���I�$H�� H��u�I��XH��H;\$u��O����5��� D H�A" SH��H�vH� ��� H��H�C tH�@H�1�[� @ H� � [�f�H�" SH��H�H� �� H��H�C tH�@H�1�[� @ H� � [�f�H��" SH��H�?H�vH� ��� H��H�C t H�@H�1�[ÐH� � [�f�H��" SH��H�H� �� H��H�C tH�@H�1�[� @ H� � [�f�USH��H�-;" H� H�E H�{��p H�E H�{H��p H��[]��ff. � AWAVAUATUSH��hdH�%( H�D$X1���H�|$8H�t$ H�E��AI�A��9��D$ ~ D�t$ �L$ Hc�1Ʌ�H����E1�H�PH�T$ H��Ic�H�$H�D$H�D$Hc�H�D$(H��H�D$0 � H�D$H�4$H�|$�P@H��I���� H�L$(H� O" L�d$@H�T$0H�hL��H�H�QH�L$ H�<��� H��tI H�@H��H��P@H��I��t H�xH��t A� ���H�L����p H�L�� H��u�H�L����p H�H��x H�H��P0H�$�$9D$ �/���E��tH�|$8� �{���H�D$XdH3%( uH��h[]A\A]A^A_��W��� � AWAVAULc�ATUSD��H��(dH�%( H�D$1�E���� E1҅�I��AH�E��I��EIЉ�D9�E��~D��A�ω���� ��E� � A�GD9�D��L��L��N�迣���E�������D$D;|$tlK�D� D�I�DE M�$�H�D$M��H�D$f D D��L��A�U@H��t-H��" L�pH��H�A�^X��p ��H�T$L��A�UHL�pA��D9|$u�H�D$dH3%( �� H��([]A\A]A^A_� D D����D��)�L��L����9�O����D�@��D$����D$A9�|��ۍ ��E� ����� D �E�D9�D��L��L��DN�踢��A�GA�� �D$��讠��f. � @ SH��` L�\$H�\$L�T$ A�1� A�E��@0��t'��t��t4[�f. � ��t A)��t )��� A)��� A)[� ��t A)��t )[� D AVE��AUATUSL�d$0H�l$8H�\$@L�\$Hx:L�wE1�1�M������Ej I��A9�|9�t~D9�u�H�H��El A��D�+E��x9L�G1�1�L��� ��z H��A9�|9�t:D9�u�H�H��A| ��A�;H��PA$�P�P U �@ A[]A\A]A^É} �E�,$�y��� D AWAVAUA��ATI��USH�� �L$,H��$� H�t$0H�T$8D�D$$D�L$(H�L$hD��$� dH� %( H��$� 1�E9�D��$� �� Ic�Mc�H��I��H�� H�D$`H��$� H�D$@H��$� H�D$HH�D$|H�D$PH�D$xH�D$X � �\$$D9��U H�l$`�Y @ I��$( H��H�@J0�B H��u)D;l$,�� D;l$(�� ;\$$�� D9��� ��H��(A9��� E��t�H�D$@I��$( I��$` A�ى�E��D��D�T$ H�D$H�D$HH�D$H�D$PH�D$H�D$XH�$���I��$( D�D$|D��$� �L$xI��$` H�T$8H�@I�|$J�0�D( H��" HDT$0E)���A��L���$� D� $�D$ �D$ H�6)�D�HA�� I��$( D�T$ H�@J�0�L( H��(A9�� ���A��I��D9l$(�������$� ���� H��$� �\$(D�t$,I��$( �L$$I��$` H�T$H��$� E��A��H�T$H�T$|H�T$H�T$xH�$D�����A9��� H��" ��$� D�D$|��$� �L$xI��$` L���$� �\$��$� D)�I�|$)ȉ$H�T$0�\$D�HH�6A��� H��$� dH3%( �� H�Ę []A\A]A^A_�D9|$$�j���I��$( HcL$,Lc|$$H�PK��H�4�H��@ �>�����$� t!��$� � E�$� ��$� ����DŽ$� ����H�L$h�9P�M����P�E���f D H�L$h�Q 9P�L����P�D��� � H�L$h�Q9P�#����P���� � H�L$h�Q9P ������P ���:���f. � AWI��AVAUATUS��H��(��H�t$L�t$`~vL�% " L��I�0L�D$I��L��L��I�$��8 ��� L�D$tH��(��[]A\A]A^A_�f. � I�$I�pH�UL����8 ��L�D$t:� � H��(L��I�P�[]A\A]A^A_�qL��g � ���� � I�$I�pH�UL�D$L����8 ��L�D$u�I�$I�pH�U L����8 ��L�D$u�H�" I�� L��K�I��L��H� �$ I�u ��� �����P����E �M9�~�E�M �ȋM�u 9�~�u�M H�L$H� �q$9�~ � ����D�E�y A9�|�D�]D�I,E9��D�U �I(A9�|�9�}�} D9�}�uA9�}�ME9������D�M ���f � AVI��AUI��H��ATUI��� SH�� dH�%( H�D$1�H�%" H��H� �PH��L� ���H��H��莟��H�D$H��u�2f�H��H�����H�D$H��tL;`u�A��8 �P� �> @ H��" �( H� �P(A��8 L�pH���@ L�`H��P1��8���1�H�L$dH3 %( u H�� []A\A]A^��t��� @ AVH��I�ȉ�H��AUATI��I��$` USH� �K" H�� L�t$PH� $�D$P dH�<%( H��$� 1�I�|$M���D$T �D$X �D$\ H�D$` �D$p H�D$h �D$t �D$x �D$| DŽ$� DŽ$� DŽ$� �x������� �T$x�L$X�t$P��u���D$| )��D$x��$� D�D$\�T$T��uD��DŽ$� )Ѓ���$� H�D$<L�L$0L��H�D$H�D$4H�D$H�D$8H�$����l$0�L$49��� �t$x�T$<L�l$@ � �\$89��� ��$� � �t$x�L$4D�L5��t��D$pA��L�l$ L��D9�DNɋ�$� 9�O�H�t$`�D$�$H�T$h�L$�L$t�D$@�D$D�D$H�D$L�L$���1�����$� ��$� �ӋT$<9��{����L$4�t$x�D$|��9��K���H�t$`L��������u H�D$` H�t$hL��������u H�D$h H� " 1�I�$L��H�=PI" H� ��` 1�H��$� dH3<%( uH�Ġ []A\A]A^Ã�t����ƕ��f D AWI��H� DE" AVAUATUH��SH�� dH�%( H��$� 1�H��$� H��` H�H� $��H��I��H��DŽ$� DŽ$� DŽ$� DŽ$� HDŽ$� HDŽ$� HDŽ$� DŽ$� DŽ$� DŽ$� DŽ$� DŽ$� DŽ$� DŽ$� H�D$8H�\$`������� ��t,H��$� dH3 %( �� H�� []A\A]A^A_�H�y " H�D$hH��$� H��� �����u HDŽ$� H��$� H�������u HDŽ$� H��$� H��������u HDŽ$� H�D$h1�H�U H�t$`H�=�C" H� ��` 1��A���H�� " H�}� H��$� H�D$hH� �P H�D$@H��$� ��$� D��$� ��$� L��$� H�D$H��$� ��$� H��H�D$H��$� H�$����$� DŽ$� DŽ$� DŽ$� DŽ$� ��w� H�ਃt��$� ��$� �A���� �A����� ������ ��$� ��$� 9��r���H�|$|��$� ��$� L��$� H�|$HH�|$tH�|$PH�|$xH�|$Xf. � D��$� A9��� H�|$p��$� A��H�|$0�Sf � �A����V ������ ��$� ��$� �AƋ�$� D9��� ��$� D��$� �t3�F�L1���$� L�d$ �D$ E��A9��D$ ��AN�D9ȉT$DN�A��H��$� D� $E��A��H��$� H�����$� ���^���H�D$HH��( D��H�t$8E��E����H�D$H�D$PH�D$H�D$XH�D$H�D$0H�$�c��$� ��w� H�ਃ�� �A�������H��` D�D$|�L$pD�L$tH�T$@D�$H�0H�} ������$� �A��������H��` �T$|�L$pD�D$x�$H�T$@H�0H�} A���ә����$� �����x���H��` �T$|�L$tD�D$x�$H�T$@H�0H�} A��蕙���H�����$� ��$� ��$� ��9���������f. � H��` D�D$x�L$pD�L$tH�T$@D�$H�0H�} �6�����$� �����$� ��$� �3�����$� ������$� �����ы�$� ��$� �A����������f. � H��` H��t#L�I�D�BH��H��H�5�>" H�=7?" 鲕��f�H��H��" H��1�1�H�5�] L�H��] A��@ � H���fff. � AVI��AUA��ATM��� USH�� H��H��dH�%( H�D$1��,���H��L�����H�\$H��u6�u D H�{�� H�7" H��H� �P0H��L�����H�\$H��tAE��u A��8 9C}�H��L��赕���{ H��" H� u�H�{ ��0 �f � H�D$dH3%( u H�� []A\A]A^�螎��f. � @ AWA��AVE1�AUATI��UH��H��SH��H�� L�-~" H�1dH�%( H��$x 1�H�A�H�T$8�8cI�E A���8 ���� H�;薍��I�U H�D$ H��� H�D$ H�� H�=1@ H��H��HN�H9���j L�\$@L�K�L�C�H� ]\ �, � L��1�L�\$(� ���Mc�L�\$(H�D$<M��H�KA�W�I��H�$L��O��,� M��H��L�T$ ����L�T$ �� M�A��� I��� ��� E��ADž� �O � _Z �A�$� �� L�K�L�C�L�l$@H� �[ �, � L��1�H���d���H�D$<I��$ D�D$8E�O�L�l$H� $H�D$D��L��H������T$<��u*H��$x dH34%( �� H�Ĉ []A\A]A^A_Ð� L��D$ 菕���D$ �f � M�M 1�E1�H� @[ H�5A H��A��@ � � � ��tC���p���f�I�RL��I��h�C*D�H��H���AYD�,�A�� � �<���f D �Q�Q�+��� D ��Z �A�$� ��ߋ��ffffff. � L�I�D�BH��H��H�5+B" H�=�B" 韑��f. � D 1��ffff. � AWI��AVAUA��ATI��USH��XdH�%( H�D$H1���H�|$� I�G�� <a�� <c�D$ A� t E1�<sA��A��H�->" � H�E �P(D�pH��L�pH�E I�7L��L��8 ��t8H�E H��P0A� H�L$HdH3 %( D���� H��X[]A\A]A^A_�f�H�E H�SI�wL��8 ��A��u�A��� �C�C �C�CH�D$H�Z" H��� H;�� �K�S 9��� H�� " H;�� �S�C9��� �t$���* H�D$�{�s �K�SH�� �|$ �t$$�L$(�T$,D�@D9�~D�D$ D�@ D9�}D�D$$D�@D9�~D�D$(D�@D9�}D�D$,�xH�|$�p H�t$ �H�P1�D�L$訒��H�E H��P0D�L$H�D$��< ��� � H�D$E1��D$ �� ���E���H���! 1�H�5bX L��H�1���@ A� �a���f � ������H�Q�A�uL��Q � L��軌��A���+��� �C�P���wh�K��u �S��u�{ ����p f. � ��t>H�|$1�L��D�L$跑��D�L$���� D �S�C�g��� D �K �S�9���H�D$1�H��D�L$H�� �"���D�L$렉D$H�E H�S I�wL��8 ��D�L$tDI�G�8m�T����xa�J����xx�@����x �6���H�E L��� D�L$�C ���H�E D�L$H�SI�wL��8 ��D�L$�`���I�G�8m����xa�����xx�����x ����H�E L��� �C���D�L$���� D �C �C ����)����C �C����4����{��������L�d$0D�L$L���;���H�D$L��L�� L���č��H�D$8D�L$H��t>L��L��D�L$H�D$��H�D$H�U H��R0L��L�����H�D$8D�L$H��uC�������f. � L�I�D�BH��H��H�5�=" H�=�>" 鯌��f. � D AUATUS1�H��(H�.�5�w" dH�%( H�D$1�H�?��� H����H���) ���q �Kx" ���# ���� ���Y L�%Z�! H��D�-Pw" H�=Aw" I�$��� I�$H��H�=)w" ��� I�$H�5w" H�=�w" �� ��v" I�$D��H�=�v" ��� � �v" ���� H�-�w" H�t$1�H�} 茈��H�T$H9U I��t�: tyI�$H��D��� I� $1�H�5TU H�=uw" 1���@ �cv" H�L$dH3 %( ���� H��([]A\A]� � ��uԸ � D H���p���� v" ���D�� � I�$H�5�T H�=�v" �� �f D ������L�%�! H��H�T$H�=�v" I�$�� ��uLI�$H�T$H��H�=�v" �� ��u/�D$��L$f.��g���1�f.������W��� � I�$H�5�S H�=^v" 1�� �Lu" ���L�%h�! H��H�T$H�=1v" I�$��8 ��u:I�$H�T$H��H�=v" ��8 ��u �T$9T$���������������I�$H�5 S H�=�u" 1�� ��t" �`����˃��ff. � H��H�� � ���H��tH�H��@��t ��t1�H��ÐH�B`H��� � H�B8H��� � AW1�AVAUATU��S��H��9�~vH�i�! I����)�A��E�ƃ�H� ���P(H�D$I���"f D ��D��L���I���t���I�G�9�|%E��A�_tۉ�D��L���I���O���I�G�9�}�H�D$H��[]A\A]A^A_� H��! H��H� H�@0��ffff. � AWAVAUATLc�USH��H��HdH�%( H�D$81�H�=tt" tJH���! 1�H�5jR H��H� ��P � H�\$8dH3 %( �, H��H[]A\A]A^A_�f D L�1H��I��L��藁��� H��H�=�K HN�L��H9��� H��� H�=SY HN�L��H9���c I�UL�D$$E1�1�H��H���z������� I�UL�D$(E1�1�H��H��A� �S������D$ �� H�t$0H�� H�V�΅���D$(�T$$9��� HcL$ 1�9T�0�����9T$(��A��� I��LA��H� *s" B�D� �s" �r" �r" �D$,�� A��H�D$,M�u A��H�D$ I��H�D$O�l%0L�%�Q � f. � H��� H�=�Q HN�L��H9���f H��� H�=�Q HN�L��H9���� H�� � H�=�Q HN�L��H9���) I��Er" H�D$ � I��M9��# M�~�L������ H��L��HN�L��H9���I���I�H�=�P � H����� ��q" � I�ML�L$$E1�1�H��H��臅����t� �h���f � I�ML�L$(E1�1�H��H���W�����u�E1��D$ � ��� �T$(�D$$�������H���! E1�H� P L��H�5+P H��L�1�A��@ � ��� @ I�H�=CP � H����� �p" ���� � H�=�O � H���ue��p" ���f D �T$ ���� L�L$I�E1�1�H��H���|������t�����o" � H��p" �D��� D H�=�O � H����� �gp" �*���f. � H�=yO � H����� �Co" ���f. � E1�L�D$1�I��W���H�D$ D �=p" �Q D�|$(D�l$$H��D�D$,�t$ D��D���B~��H��I���� E)�H� ,���� E��H��E1�E�uI��I��Ic��{��E��~& D C�T<H�5;^ 1�� I���t���M9�u�H�� �L$(M��T$$�t$ ������tj� H���c���D��L��H��赁���?n" ��t[�=,o" tg�,n" ���H�H�! K�T�E1�H� / H�5 / H��L�1�A��@ �3�����< � H�����H��! H��H� ��� �H���! H�=�m" H� ��� �L�%��! H�=�m" I�$��� I�$�����H�t$H�=�m" ��� �w���H���! H� �L H�5fM E1�L�H��1�A��@ ���H�o�! E1�H� �L H�5aM L���H�R�! E1�H� �L L��H�5�C L��� |��f. � f�AVAUI��ATI��UH��H��SH�� H�t$dH�%( H�D$1��nz��H�\$�D$H9��� ���u�!�H�KH�L$�CH�˄�t ����|����u�H�=�R � H���A����A)�E��E��u7H�CH�D$�{@��tzH��� @ H�\$H���{�@��t^�y|����u�H�V�! A� E1�H� �Z H��H�5[L L��L�1�A��@ H�T$dH3%( D��u,H�� []A\A]A^� D fW�f.D$w��L$�AM ���z���AWAVAUATI��USH�� H��$� L�D$H�D$ dH�%( H�D$x1����� ���W H�D$�ҋ�H�L$(�\$ �X�\$�X�\$4�X �\$0�X�\$� H�D$D��I����L�y� H�$H�D$HH��H�lH�D$8�NI�H�=jK � H����~ H�=0, � H����� �D$ �D$ I��I9��� M�w�L���6y��H��H�5FK L��HO�H��H9��t�H�54K L��H����% H�5%K L��H����� H�q�! I�uL��H� $I�H� ��P ���� �D$DI��I9�D$�s���H�|$ tTH�\$�|$� ;{��� H�T$�d$(f.bzt� H�\$� �K9L$0E�9L$E�H�T$ �H�D$�\$ �\$(��\$�X�X�\$4�X�\$0�X �\$�X1�H�\$xdH3 %( �� H�Ĉ []A\A]A^A_� � �D$ �D$ ��� H�a�! I�uL��H� $I�H� ��P ���� �D$D�D$0�^��� D H�)�! I�uL��H� $H� ��P ��u�D$D�D$ �D$�%��� @ H��! L��H� ��� H�T$8I�7L��� |�����f �T$H�D$ �T$(���� @ H� ��! 1�H�5�H H� ��@ H�D$� ���� �$ ���� ���{ H�D$H�l$PH� �H �( � H���@� 誀��H� 1�H��L��1���@ H� 1�H�5�H L��1���@ L�t$H� �= �( � H��1�E�F �\���H� 1�H��L��1���@ H� 1�H�5EH L��1���@ E�FH� 5= �( � H��1�����H� 1�1�H��L��@ 1����H���! E1�H� (H L��H�5�: L��L�1�A��@ � �����ueH� 1�H�5�G L��1�H�l$P��@ � ���1�;T$ ������H�C�! Hc�E1�H�T�H�5�G H� zU L�1�A��@ � �G���H� 1�H�5!( L��1�H�l$P��@ ���H�D$H�l$PH� 8< �( � H��D�@1�����c����u�� � H���! I��L�H�wH��E1�H��1" L��H� H��� �� H�GH��t'H�X�! H�G H��H�H��� ��f � ��fffff. � ��� +w8+�� H��P �� ��t+�� ���� 1�;r\}G H�R0H��u� D �J\�9�| ��H�R(H��t��� u�9�}�B\��f�BX9�}�H����H��H�A8H��t � ��� tH�@ H��u�1�H9�HE��H����H��t/H�B0H��t&��� u�f D ��� t�H�@(H��u����1�f � �ffffff. � ATI��UH��S��� t � ��� ��F@��t0H�^0�F@ H��t f � H��H��L�����H�[(H��u�[]A\� @ AVI��AUA��ATI��UH�-��! SH��H�E ��X H�5�+" H�=�9" M��E��L��H���|y��A��H�E H���� []D��A\A]A^�AWI��AVI��AUI��ATUH��SH��dH�%( H�D$1�M���� L����r��H��I���� H�:�! �� H� �P(M��H��tH�T$H��� L����@ H�XM��tA�ED��� �� H��H���v��M��H��� �( L����w��M��H�CH�$ L����w��H�CPH�,�! H��� � H�[H�kL�kH�H�C H�C( H�C0 H�C8 �C@ �CD L�`��� �M��Hǃ� �CX �C\ H�S`H�Ch �Cp �Ct �� I�D$H��H�L$dH3 %( �� H��[]A\A]A^A_�H��� M��ǃ� H��� Hǃ� H��� H��� ǃ� ����M��H�CH ����H�CP ����f D E1��G���H���e���1��^�����[q��ff. � AWAVAUI��ATI��USH����� �T$ u ��x � M��P A��$� �M9�� �D$ I��$� A�D$X A��$� H�FH���r H��z�� A�UDD�H ��E��� ��H�H0��� �:D��� D�A���E���� ��� ���� C�L�A�|8���E��X E��t M;T$�� ��A�L$tA�T$x��A�D$pA�|$|� ���� ���� A�m<���A�D$p1���O�A�L$tA�T$x�A�D$|A��� ��~`E1�1�� � A�m<J�>��L�pM��t L����v��A�NI��$� �An J�>A9l$X}A�l$X��I��(A;�� �H |��D$ F A�EDD$ I�l$0A�D$XH��A�D$\t~ ��� �ug�u A��x t�T$ H��L������A��� ��~7��M��$� L��� L�L�1�I��A�L A9L }A�L H��(L9�u�E\AD$\H�m(H��u�H��[]A\A]A^A_�A��� A�D$X ADŽ$� ���;���I��$� ��H� �H�B(H� �� f � H��(H9��B H��u�����A� I��A��D �� A�� � DE����A�ED���������� Љ������A�D$x 1�� ���A�D$t 1���A�D$p 1�����H�xP t^�PXD�H\D�@ ��� ��E9��@���D��D)ʉ�� у��AɃ�A��� ���A�I������P���A��;���AED�V���H�x8 ����P@D�HDD�@ ��� ��E9������ ��x �u H�W�� u��f D ��H����x H�u�! H�=�, H� H��� ��f. � �> uH��h t � � ��f D H�1�! ��x �H��H�=H, H� H��� ��fff. � ATH��I��UH��SH��u#�L @ H�S0H��t L��H������H�[(H��t+��� ��<u�H���! H�sHH��H� ��8 � @ []1�A\�f � H�F��� �p@��� �V�P@u3��.H�H9�u�& @ ��H9�tH�@�x@��� �W�P@t�����fff. � �F@����� �F@u��~ �� � H�H9�t�H�F�p@��� �V�P@u��H9�u�(f D ���H9�t�H�@�x@��� �W�P@t�����fff. � AVAUI��ATI��US��� �t��H��P ��� H�v�N���M9�X �Q M9�` �d M9�h �' A��� 1�1�M��� �� �W � �o����H��(A9�� ~;I��$� H�|H��t�H��zu�H��L����i��I��$� H�|�f D I��$� H��tH��x�� �)o��I��$� I��$� H� ��! H9�tH��P0I�t$HH��t I��� A��8 H��t H�H���p I�|$PH��tH��P0I�|$HH��tH��P0I�|$hH��tH��P0H�L��[]A\A]A^H�@0��f. � IDžh ����M9�` IDžX ����� � IDž` ���I��� H��H���h��I��$� �����9�|,��t(�*���*��^���*��^��A � � �P$ H� �A�ff. � AVAUI��ATUSH��H�� dH�%( H��$� 1����� H�GL�5L�! �px�P|�C8�� ����Ћ�� �t$�D$���� ��� ��� H�l$0L�d$ I��L���&������ ��� L�E�t$I�L$H�\$@�����\$8H� |/ �T$(�P �L$0� �D$ H�߸ ��q��I�1�1�H��L��@ 1�H��$� dH3<%( �~ H�Ġ []A\A]A^Ð+�� �D$�:����L�5Q�! H�l$H�1H�L$L��H��I���8 ��H�L$t � � D I�H�UH�qL��8 ��u܋t$�T$�����g��fffff. � ATI���UH����D��SH�ĀL�D$H��H�\$dH�%( H�D$x1������L$H� M9 �$�d � H�߸ ��p��H�} 1�1�H��L���o����t(H� j�! H�} H�5�; H��� H�H�} ��p H�D$xdH3%( u H��[]A\��g�� AWAVI��AUI��ATE��USH��x��� H��� H�t$0�L$(D�L$D�D$ ��H�D$Pt ��� �D$ I�}M9�P �GxD�W|�D$H�/ E9�� E�~XE�EftA��X �D$(AFp��D�d$X�� A�uDt$(�|$(9�NljD$@I�n8H��u� @ H�m H���� ��� u�I�^0H��tv�D$@E��D�|$`L�t$8M��I��E��ЉD$d�l$d @ ��� u+�k|�CxD�E9�~�S\D�9T$ �� L9��X Dc\H�[(H��u�E��L�t$8M��D�|$`A��X ��� I�^0H���� D�d$ M��� ��� �� �k\�K|D�E9��� A9��� H��� H���� M9�P D�FD�N �D$@�� D��� D��)�9D$H�� ��D��� D��D�A��� D��)�A9�|UB� A9�LH��z�� H�|$0�D$ ���D$ �$ A��L�\$(D�T$ �h��D�T$ L�\$( D H�[(H������ H��x[]A\A]A^A_ÐA�NXF�<!D9|$ ���E��� A��� E���* A��� A��� �D$h�& H�>�! I�UPE��D�T$@D�L$hH� �D$ A�u<� $�L$D�t$H�t$0�� A��� D�T$@��<��t$L�t$`�d$L��d$`��D$LP�D$`PM;�X �� �D$D�D$l�� f D I��P I9~�8����t$(A�UD�4V�t$(�,��� H�[(A��H���������� A��� �������H�D$8I9�P �����9l$ �}����|$d �r����D$H9D$@�d����D$XA� �L$@H�T$PH�t$0��A��DI�D9�AO�,$I�?��k���,��� @ �L$(D�L$DE��H�t$0H��L���D$L����A��� �D$L�����H�t$8I9�P ����9l$ ����D9������t$(�,$A��L$@H�T$PI�?D� 0H�t$0�dk����� � E���D$X �D$@ ���A�ED��� ��AE8A�� A+�� ���D$DA�U<�D$lI��� H�@�@�P�D$hA��� ��<��D$L�d$L��D$LUM;�X �� �D$` M;�h �� E��� I��� 1�E1�D�\$DH�D$XE��� D�d$8D�T$dE���` � A��� �t$Lщ $H�|$0�L$8�t$H��T$D��D$@�0e���D$@��uhI��� A��Dd H��(E;�� �� I��� H�lH��t�H�U 1��ztJI��� E��E�NXD�D A�U<�m����t$`���o���f�H���! H�}81Ҿ H� ��� �x���A��� H�|$XH���Ld��H�E8�� �����f. � D�T$dD�d$8M;�X �����A��x ���A��� ������A�E<E�FXI�}�\$h�L$lI��� ��D�T$@����A�D� 3H�t$0D�$H�?E��Xb��E�~XD�T$@E�����D$D�D$L �D$l����A��� L��D�T$`�D$L�L$DD�L$8D�D$(L�\$ �gc��H��� L�\$ D�D$(D�L$8�L$D�D$LH�V8D�T$`�� ����H�|$0���D$ �D$ �$ L�\$(D�T$ �Fc��H�w�! H��� � H� H�z81��� D�T$ L�\$(����D$L��"A��x txE��� E��ul�L$L" �D$` �:����D$D�L$L �L$` �D$l�#���A�vXI�EE��I��� D�T$@�N��t$h� $�L$lD�N�H�8H�t$0�\��D�T$@���D$L���� AVI��AUI��ATI��USH� H��u �, D H��H�S8H�s0L������H�k(H��L�����H��u�[]A\I�E I� A]A^ÐUSH��H��H�~ tPH�V8H�v0H�����H�CH9X0tVH�K(H�S H�J(H9X8H�S t0H�C(H�P H��H��H��[]�g� � H��[]�f � H�P8��f. � H�S(H�P0�f D ATUSH��P H��H��t H�V8H��0��H��P H����H�sxH�-��! H��t H�E H�;��P H��� H��t H�E H�;��P H��� H��t H�E H�;��P H��� H��t H�E H�;��P H��� H��t H�E H�;��P H��� H��t H�E H�;��P H��� L�%�! H��tI�$�P0H��� H��tI�$�P0H��p H��tI�$�P0Hǃp H�{H���d����� ��uVH��h t Hǃh I�$H��� ��x H�E H�H��H�=�" 1��` I�$H��[]A\H�@0��f D I�$H�=�0 1��R �fffff. � U��SH��H���G8L�OD��� ��� ��A�Ix�4 ��� �؍< �E��x9��� E1�Aq|D��� ���� ��t+�� ��� ��� ��x9��� 1�H��x ��� H��t H�{���H��p H��t:H�K�C8��� D��� �I|�؍ A��� �؍ A��� ��u*H�{��H��� H��t��uYH��[]�f. � +�� �� � D� 0A��A)�D9�AL��X���f. � F���)�D9�DL����� @ H�-��! H�{H�E ��� ��t�H�E H�{H�5�/ �� H�E H�{H��p H��[]�� USH��H����x ���x ��� ��t�@�� H��P ��� �/ ��x �" ��� ���^ ��L��� L��� L�D���� 1�1�1�I��� @ A�T H��(�H��L9�tDA�T ���u�L��� H��� ��M� �T E�[ t�D9�}�E�\ D��H��(�H��L9�u��C0��x �N\����~ ��\ �ƋC4�ʅ�~ ��` �C8�� ���� 퉻� ��� t�� H�Z�! H�{H� ��� H�߾ ����H��H��[]��f. � ��X ��t �SDH�����H��P ��� � 1�H����H��P ���f��`���s������ 1�����f � S��x H���t�t H��[�� @ [�f D ��H����x H���! H�=��! H� ��� ��x �fff. � AWAVAUI��ATUSH��I��H�� H�-G�! L�vpdH�%( H��$� 1�D��� H�vH�E D�$I�ȉ�H��" ��� ��A���� ��x ��� �] ���� H��� H��t�? u H���! H� �P0H�=Y ��\��H��� H�{pL9�t!L��` L��\ H�5c! 1ɺ ��T��H�E H�sHL�l$pH�{�� H�C`� H�{L��H� DŽ$� H��$� H�E �� H�sxI��H��t H�E H�;��P H�E L�sxH�{p�� H��$� H�CX� @ H�{L��H� H��$� H�C`H� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H�E L��� H�{p�� H��$� H�ChH�{PH� H��$� H�E �PH� � @ DŽ$� H�{L��H��$� H�E �� H��� I��H��t H�E H�;��P H�E L��� H�{P�PH�{H����W��H��� I��H��t H�E H�;��P H�CXL��� � � H�{L��H� H��$� H�C`H� DŽ$� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H�ChL�� L��� H�{H� H��$� H��� H� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H�CpH�{PL��� H�D$`��� �D$X��� �D$\H�CXH�D$ H�C`H�D$H�ChH�D$@H�E �PH�{H�t$H�D$8�D$U �T��H���uS��H��$� dH3 %( D��unH�� []A\A]A^A_� D D9������H���! 1�H�5�) L��A�H�1���@ D��� � D A� � � ǃ� �T����<T��fff. � AWAVAUI��ATUSH��H��(���T$�/ H�- �! H�QH��1�H��A� H�E ��h H���� H�E, H��H��H�D$�LT��H��H�D$H�L$H�E �% H��H�L$H�5�% �� H�E H�5�% H�|$�� L�5��! �� I��P(I��I�1�I��� ��� H�L$H�5G4 I��� H�I�OI�wI�_I�Gp I�G` I�A��x I�GX I�GH A�G8 I�GP A�G< I�Gh ��I�Gx ILJ� ILJ� ILJ� ILJ� ALJ� ILJ� ILJ� A�G@ ILJ� A�GD ALJ� ALJ� ILJ� ILJ� ILJX ILJ` ILJh I�G( A��x H�D$ILJ� ILJ� ILJ� ILJ� ILJ� I��h ILJx ILJp ALJ\ ALJ` ALJ� ALJ� ALJ� ALJ� ILJ� ILJ� ILJ� ILJP ALJ� ALJ� ALJX ILJ� ILJ� ALJ� ALJ� ILJp �Y��H�E I�L��H�A � �" ��0 H�E I��h L��H���� � ��0 I�WI�L�H��L��H��H�rXH������� �T$I�ME1�I�G L��H�߃��������� L��H���Y����A���� 1�L���S��1�L��I��� �{S��1�1�L��I��� E1�1�����I�WI��P H��I�A��x H�rX1��P H��(D��[]A\A]A^A_� @ H�E I���� �� � H���! E1�H� � I�U H�5�! H��A� L�1�A��@ � D H�E I�A� ��� �f�H���� �t���f���H��t��tDH��A� H���� H�Q�! H�wH��E1�E1�H��H�L��� H�� " A�� D H�!�! H�wE1�L�H��H��H�L��� H�x " A�� D S��x H���u [� � ��H����x H���! H�= �! H� ��� H��[�,O��fff. � ��x �u�� ��H����x H���! H�=��! H� H��� ��f. � AUATI��USH��L��H��L�-n�! H�1dH�%( H�D$1�H�T$I�E ��8 ����unH��P ��� u ��x tH���O��H���uN���t$H������H��tI�M H�pH1�L��1���@ H�\$dH3 %( ��uH��[]A\A]�f�� ���M�� @ ��� �� �� H�s$ ATHc�USH��H�� ��x �H��[]A\���� D ����H�߾ []A\�*�f. � ��x H��[]A\��� D H� tqH�-B�! H�w H�G H�H�E L��H �� H�{H��A��H���wN����x tH������H�E H��H�5�[]A\H��0 �� []A\��f�H�-��! � � UH��SH��H��H��t'H��H��� H���8 H��t H�@H��[]� @ H��P H��[]�H�{�! E1�H� V H��H�5J H��L�1�A��@ 1��fff. � ATI��UH��SH��H��H��H��H��M��H��t<H��� L�BM��t<L�MI�t$H� \" �$ H��H����M��H��[]A\ÐH��� []A\�f�H��! H� � H�U H�5� H��L�1�A��@ � 뷐AWAVAUI��ATI��UH��SH��H�Y��T$ H����J��� H��H�=� HN�H��H9���� H�� � H�=� HN�H��L��` H9�H��h �����8�LE�M�<$L���uJ��� H��H�= HN�L��H9��t_H��� H�=[ HN�L��H9���� I�> � I� H��� ��H��1�[]A\A]A^A_� L��X �{��� @ �|$ tYH���! L� } I��H� H�5B L��L�H�EH�PX1�H�$ A��@ � H��[]A\A]A^A_� � I�T$H��L���K��H��tcI;tVI��R���f D H��! L��L��E1�L� H� � H�5� L�1�A��@ H��� []A\A]A^A_� 1��s����� �h���f D 1�H9�P SH��t;H�v�J��H�SBXH�R0H��u � f D ��� uB\H�R(H��tH9�u�[� @ AWAVAUATA��UH��SH��H��8D��� dH�%( H�D$(1���t~H�H��H��I���J��H���� H��H���J��L�= �! �$A9�tH�߉�� 1���H���B��I�H��� 1�H�L$(dH3 %( �c H��8[]A\A]A^A_ÐH�\$H� E�� � H����Q��H���! 1�H��H��H�1���@ 1�띐L�=q�! H��I�6H��I���8 ��u �$�L��� I�H��� H� �! I�V�H�L$A�t$L�D$H��H� ��p ����t6~��tn��� �&���륃�u��*�� �YD$�,��$����H�C�S8�L$�@|�ڍP��� �ڍP��� ��t+�� ���� �$���1�H��D�d$�K��H��t�@XA���� �$�r���H��P H�@0H��u�1����HG�� � AWAVA��AUI��ATUH��SH��H���AH��L��A��H���3H��A9�~ H��L��I��E1�L��P �*f � E���� � L9�t[L�C0M��tjL��D��� A��u�E��A��A��D9�t�E��u�E��A� t�H�sA��L��D��� �j��L9�u� D H��D��[]A\A]A^A_�f D L�C(M��u�H��P �f D H9�t�H��H�SL�B(M��t�H9��`����H��L������@���AVI��AUI��ATA��UH��SH��H�dH�%( H�D$1�H���]E��� H��H�=a HN��D$ H��H9���� H�� � H�=� HN�H��H9���1 � H��H�=� H��H��HN�H9���� A���� I�V�A�t$L�� � L�� ��H���D$��tTH������Jf D A��tbI�VH��L���F��H��H��� A���� ��� �� �D$1ۅ�u���H�\$dH3 %( � H��[]A\A]A^ÐH��P H�T$H��1�����D$� @ H��H�=� H��HN�H��H9��ulA�D$����6 I�V�A�t$L�H �����I�VH��L����E��H��t^��� H�f�! � H�tTH�5� L��1���@ �/��� D H�9�! E1�H� O H��H�5�� L��L�1�A��@ �D$� ���H�5� � � H�s��H��P ��� 1�����D$ �p��� � H��P H��L��H�P0����ËD$��� � I�VH��L��� E��1�H���p���H��H��H��� ���1ۉD$�]��� D I�VH��L����D��H��H���7���A��t"��� ��"����t.�D$ 1�����I�VH��L���D��H�������� �H��P H���_�����B�� � H��P SH��H9�tH�v1�H9�t�F��CD[� 1�[� @ AWA��AVAUATUH��SH��H��D��� D��� �FF��H��H��A���C��H��� H�QH���l D�BH�S�K8�� �}X�rx����J|��� ��t+�� ��� ���� ��� ���� A9��� D��� 9���� ~(��)�9��� ��)�)�9��� 9��� �� @ A9��� E��D��� ��� � tzH��1��D$ �j�H������D$ H��[]A\A]A^A_� � ��� �j���D��� E9�|G�0B�A9��T���D)Ɖ�� ��A)�E���=��� � 1�H��[]A\A]A^A_� � 1�E9��N����� )���� ��)ȉ�A9��1�����f D D�A ��� � ��4��)�9�O���� D AWAVAUATUSH��H��(H��p H�o��x ���� L�gH��H��tOH��L���B��H���� 1�H��H������1�H���/�L�-p�! I�E H��p �P0H�CHǃp ��� ��� �ɋK8D�t �pxD��ߍ4~��� ��� 9��� �@|���E��E��D+�� D+�� �H�P��� ��� ��tD�� �M|�UxH�u(D�E H�;�g@��I�ċE|D�MxH�SxH�;E1�1�L��$�?��D�K8D�� E��D+�� H��P D��L��H���\���C8���9 ��� D�MxD�C@L�-D�! H�SHH�{���M�U D�D$��D$A��A�u|�4$L��A��� ��� ��~%��x �� H��� M�E L��H��A��� H�U(I9�tE�D$ �D$ L��E|H�;E1�H��� E1��D$�Ex�$�B��I�E L��H�;��h ��� ���@ �s8�� �ExD��� D��� H��h ��E��ڍ,PI�E ��� I�E H��h ��� H��h H�;D���H�p(D�@ ��>��H�SxH�;E1�1�A��H��D�$$I���=��H��� E1�1�D�|$D�$$A��L��H���F��H��h H�P(I9�t@H�;H��� L���D$ �D$ E1�D�d$�,$E1��A��I�E L��H�;��h H��� H��t H�-��! H�{H�E ��� ���� ��� H��(H��� []A\A]A^A_��:��I�E H��h ��� �� D ��� �(��� D L�-�! ���� @ I�E H�sH� H�{�P ��� H�����f D H�E H�{H�5I �� H�E H�{��p �X��� � L�-Ѳ! L��I�E ��� �O��� � UH��SH��H��H��H��H��>��H��ta��x t8H��p H��t H�}�! H� �P0H�} �vA��H��p H��1�[]�f D H�ߺ H�����H��1�[]� � H��� []� @ AWAVAUATA��UH��SH��H��8D��� dH�%( H�D$(1���t~H�H��H��I���]=��H���� H��H���?��L�=ʱ! �$A9�tH�߉�� 1��j��H�����I�H��� 1�H�L$(dH3 %( � H��8[]A\A]A^A_ÐH�\$H� � E�� � H���D��H�P�! 1�H��H��H�1���@ 1�띐L�=1�! H��I�6H��I���8 ��u �$�L��� I�H��� H�ݰ! I�V�H�L$A�t$L�D$H��H� ��p ����t6~��tI��� �&���륃�u��*�� �YD$�,��$����H�S�D$�Bx�� �$����D$��\ �� �$����Q:���AW��AVAUATUH��SH��H��XdH� %( H�L$H1Ƀ�tEH�U�pL�� ��=����H�\$HdH3 %( ���� H��X[]A\A]A^A_�f � L�%�! I��H�T$(H�u I�$��8 ��t� � � I�$H�uH�T$,H���8 ����u�I��P ��� �X A��x �J D�l$,L��D���2��H��I��� �D$(E�^8A��� A��� �D$A��� E)�A)�E�� �҉D$� L��L���L$D�\$ ��<��L��L���D$ �:��E��A)��� E;WXD�\$ �L$�� �D$D)�)�D$A��D+L$ �D$ xA��X ���� I��P I9GtA�VDA)�A��� ��~QM��� A�C 9D$ �f ��A�( 1�E1�� D C�T+ I�u(�9D$ �E I��A���A9�u� D I�$H���� � ���f D L���9��L���8����� E+�� ���A�VDA9��X���I��� H��t�I�GI��P H9��� H;p�@p�� �yA�w|�I ���� ��)�A)�E���i���D9��`������ ��)�A)�E���I���D9��@���I�$I�wHH���8 I�$H��H�5p ��8 I��� I�$H��H�H�2��8 I��� I�$D��D��L��8 �8��H��H��A������E1�1�E1�D�t$ � � D�T$A)�H� [� EM�L�t$01�D�L$ L���5@��I�$I�wHH���8 I�$L��H���8 I��� D�L$ D�T$J�D(H�������I�$H� H��D�T$D�L$ H�0��8 I�$D�T$D�L$ L��8 I��� D��D��J�|(�,7��H��H��A���0����96���о ����`���)��Y��� AWAVI��AUI��ATI��USH�� L�9�T$ dH�%( H��$� 1�L���T5��� H��H�=� H��L��H��HN�H9������)��ۅ��? � H��H�=�� H��L��HN�H9������)��ۅ��m A� H�� H�=� L��L��HN�H9���� H��H��H�=� HN�L��H9������)��ۅ��� H�� L��H�=�� HN�L��H9������)��ۅ��M H�� L��H�=� HN�L��H9������)��ۅ��7 H��H��H�=5� HN�L��H9������)��ۅ��! H��H�=� L��HN�H��H9������)��ۅ��: H��H��H�=� HN�L��H9���� H��H�= L��HN�H��H9������)��ۅ��< H��� H�=�� HN�L��H9������)��ۅ��b H��� H�5� HN�L���1�������� H�� � H�5& HN�L���x1����� H���! E1�L�7 H� h L��H�55� L��L�1�A��@ � � �,�I��X H���� H�q�! H� H�pH1�L��1���@ H��$� dH3%( ���� H�Ę []A\A]A^A_�f. � �|$ t)�t$ I�V�L�. � L����6�����f D I�VL��L���a4��H��H���M���I�E�� �� @ 1��d���f � �|$ u�I�VL��L���4��H��� ���H���! H�phL��1�H� 1��@ � �����D$ ����wl�|$ �� I�V�: �| L��L���3��H�������H�X0H���k���H�-,�! @ H�E H�sHL��8 H�[(H��u�1���� � �t$ I�V�L�� � L����i5�����}���f�I��P ��� u A��x tL��� 3��L���2��H��L���2��E�M8A��� � I�MA+�� E�9D�QxD����A�Q|�MXE��DNօ�Nօ�N�9�������4�������D��D9ǍL9�AL�DB�9�A��M�9�����C�D�H�l$ �L$H� ^� �d � �$H��1��B:��H��! � H��L��H� ��P �}���f�I��P ��� @ I��` H���@���1��T���I��h H���)���1��=����|$ �n���I�VL��L���1��H���2 H�p�! 1�H�5�� L��H�1���@ ����|$ �(���I�VL��L���1��H���������� H�#�! H� �� H�5�� L��8 ����|$ ����I�VL��L���c1��H���R���H�P0H���+ H�Υ! H�rHL��1�H�1���@ �X����/���|$ �����I�VL��L��� 1��H�������H���! H�@H� � ����T$ I�NL��L����Y/�������H�5 � L��8 ���H�->�! L��H�E ��� H�M 1�H�5� L��1���@ ����|$ ���I�VL��L���r0��H���a���H�PH�@ H��u�kf. � H��H�P8H��u��O���I��P L��L��H�P0������M���H�P(H������I��P �H�@H�P(H�������H9�u�1�����I;�P �����H�������H������H��u�"f � ��� H�vH��t ��� t��� D UH��H��H��SH��H�Q�/��H�ø H��t H�sH����.����� �H���,��1�H��[]� � UH��H��H��SH��H�Q�8/��H�ø H��t H�sH���.����� H���0,��1�H��[]� � UH��SH��H��HdH�%( H�D$81�H��� L�T$4H�wH�H�@H� $H� ��! D�L$D�D$A��L�T$H��I���$0����uP�T$4�D$,��u$H���l����D$,H�\$8dH3 %( u/H��H[]ÐH��H����-��H���}+���D$,�� � � ��,�� @ AUI��H��ATI��UH��L��S��H��H�� .��H��tx��� ��t*H���S�H��[]I�L$E1�A� A\A]H����� @ H��� H�uH� ��! M�L$L��L�B�$ H���c,��H��[]A\A]� � H��� []A\A]�H��� H�uH� ^�! E1�L��L�B�$ H���,��� AWA��AVI��AUI��ATI��USH��H��;au �{l�� H��� +��A��H���7 H��� H�=� HN�H��H9���} H�� � H�=�� HN�H��H9��t_H�� � H�=�� HN�H��H9��tAH�B�! H��L��E1�H� b H�5�� L�1�A��@ H��� []A\A]A^A_� H��H���! E1�H� � H�5� L��L�1�A��@ � H��[]A\A]A^A_�f��{l�����{ �����H��P �+��I��$P L��H�V8H��0���L��� )��H��1�[]A\A]A^A_� � I�UL��L����+��H��I���� I�U H��� HN�H�=h� H9�H����� H�� � H�=P� HN�H��H9��tiH�� � H�==� HN�H��H9�����H��L����*��I�GH�X0H��t � I9�t H��L���H��H�[(H��u�L���G(��1�����H��L���*��I�W8I�w0L������� H�pL���t*��L��L������ � � ���f D AWAVAUATUSH��� H��� H��$ H�|$H�t$ L�D$0� L�L$PH�\$X�D$l����dH� %( H��$� 1ۅ҈D$G�- ��H���e L�a��H�D$l���D$@ H�D$8 D�lH�D$( H�D$ 1�E1�H�D$HM��� f � H��� H�=� HN�L��H9���� H��� H�=�� HN�L��H9���� H��� H�=�� HN�L��H9���� D9�tHc�L�d� I�H�T�A����I��E9�toM�g�L���Y'��� H�� H�=�� HN�L��H9���G���I�H�D$� D I�H�t$ H�|$�6)��H��H�D$(� A���D$@I��E9�u��|$@H�D$X��� H�|$ �� H�t$H�|$�/��H���� H�|$0 �D �t$GH�\$0H����'��H���X L�pH)�H���� ���x H�D$0�T$G8�� �D$GL�%�! H�\$p�D$q �D$pH�t$ H�|$H���`(��H��H���W E1�H�T$0H�t$ H�|$�=(��H���t H�D$(H��t H9h�� H�D$8H��t H9h�� I�$H�|$��� L�D$H�T$0L��H�|$ H�����H��I���� H�E0�T$lH���T ���8 H��u� � H��t ��H�I(���H��� H�|$( �� H�D$(H;E8�� H�D$(H�@(L�p H�T$(I�F(I�V L�r(L�|$ L��L����&��L���f$��E��t6I�$H�|$0�P0�( I�H�t$ H�|$� '��H��H�D$8���1�E1�H��t!H�D$pH9�tH;\$PtH�v�! H��H� �P0H��$� dH3%( L���? H��� []A\A]A^A_�f � H�1�! H�T$HI�7H�|$H� ��8 ���c����v���H�|$( ���H�|$8 �+ H;D$8� H�D$8H�@ L�p(I�F H�D$8I�F(L�p ���H�D$XH�D$8 H�D$( � H�D$ H��� H� H�D$����L�%��! �}Hc�I�$�P(H�t$0H��H��H���"��H���+ �d���H�D$ E1�1�H��P �o���M� $E1�H� �� H�T$0H�5�� H�|$1�E1�A��@ �J���H�|$P �� H�T$PH�t$ H�|$�p%��H��H���� D�@DL��$� H� /� �( � 1�L��� -��H�|$P�#��L��1H����������!� ��t��L�%��! ���� D�H�qHD� �I�$H��L)�|�R(D�L$GL�D$PH� � H�D$0H��L�4$H������ 1��,��H�\$PA� �U����x ����L�% �! ���M� $H�PHE1�H� V H�5�� H�|$1�E1�A��@ ����L�t$0�H�ۘ! 1�H�*� H�5+� H�|$1�L� 1�A��@ � ���M� $H�PHE1�H� � H�58� H�|$1�E1�A��@ ���H�}�! Hc�E1�H�T�H�5Y� H� H� L�1�A��@ ���H�D$ L��$� H� �� �( � L��H��P 1�D�ED�h+��L��� '��L�%�! H�D$0����L�u8H�@(����L�u0L�u8I�F I�F( ���H�D$8L�u0H�@ ���H�E8L�p(I�F I�F( L�u8����H�\$pH�t$0Hc�H��H���. ���D,p L�%��! ���L�t$I�$L����� M� $H� &� E1�H��H�5�� L��1�A��@ ���H�L$8�J���H� 9�! L�t$H�L����� L� E1�H� �� H�\$P�� �� � AUATI��UH��SH��L� �T$ M��t A�9 � LDȋD$ L�iE1�H��L��L��P�H�D$ H�$�T$ �^���H��H���� �T$ ��~JE1�A� L��H��H�����uIH���! H�sHL��1�H�1���@ H��1�[]A\A]� � H��� 1�1�1�H�x�"����t�H��H�����H��� []A\A]� H��� []A\A]� � AUL�i��E1�ATI��H��UH��L��SH��L�L��H�D$ �T$ H�$�x���H��H���� �T$ ��~DE1�A� L��H��H��� ��uCH���! H�sHL��1�H�1���@ H��1�[]A\A]ÐH��� 1�1�1�H�x�!����t�H��H������H��� []A\A]� H��� []A\A]� � SH�_H��t���t?��t��t [ @ � � H�[H��t�H�{H���� ��H�{[�y ��f � H�{��� ��x @��u�[�f � AWAVI��AUE��ATI��UH��SH��H��H�dH�%( H�D$1�� ��H��I���� H�p�! H�T$I�t$H��H� ��8 ���� D�L$D9�� �� E��� E��u*E�L��H�L$dH3 %( �� H��[]A\A]A^A_ÐIc�I��� H��H��H�x u�H��! E1�M�D$H� )� I�$H�5s� H��L�1�A��@ 1�� H���! I�T$E1�H� `� H�5�� H��L�1�A��@ 1��Y����h �� � ATA� I��UH��H��SH��H��H��H��H�L$dH�%( H�D$1����H�¸ H��t>HcD$I�t$E1�H��L��H��� N��H��! I�HL�EH� H�H�Rp��� H�|$dH3<%( u H��[]A\�� ��ffff. � ATH��I��A� H��UH��L��SH��H�L$dH�%( H�D$1�����H��H���� HcD$��ttH��� H��H��H�xH��x�� � ��HcD$H��� H��H��H��H��H�@ �( ��H�����1�H�t$dH34%( umH��[]A\� D H��! 1�H�5p� L��H�1���@ � � � 볐H��� H��H�����HcD$H��� H��H��H�x�M������fff. � AWE1�AVAUATUSH��H��H��8�T$ H�L$H��H�L$$H�|$H��dH�%( H�D$(1����H��I���m �D$ ��+ ���� �D$ H�T$E1� ��L�r��H��L�d � I�.H���U��H�� H�=�� H��HO�H��H9��uM�nI��M9�u�M��� H�|$L���6��H��H���� HcD$$�t$ 1�H�߃�H��I��� H��H�T$H�CH���� �������� HcD$$H��I��� H��H�xH��t&H��x�� � ��HcD$$H��I��� H��H�XH�\$L��H�����H������@ D H� �! H�T$E1�H� �� H�5�� H��L�HcD$ H�T�1�A��@ � H�\$(dH3 %( ��uZH��8[]A\A]A^A_� @ H�D$H��� L�(����H�D$H��H� H���N��HcD$$I��� H��H��H�x� ����L��fff. � AVI��A� H��AUI��ATA��L��USH��L��H��H�L$dH�%( H�D$1��_���H��H���� A���� A��tcH��H������H�����HcD$H��� I�UA�t$�H��H��� H�x���H�\$dH3 %( �� H��[]A\A]A^� @ HcD$H��� E1�M�EL��H��H��H�sH�HH�K�! H�H� H�Rp��� 뜐� �f � HcD$H��� E1�H�sE1�H��H��L��H�HH���! H�H� H�Rp��� �J�������f. � AWA��AVAUI��ATI��L��UH��SH�� L�5э! H�1dH�%( H��$� 1�H�T$I���8 ������ HcD$A9�$� �� ���� A��� A���| A���� H�uH�=`� � ��� H�u�> �� �D$ ���������H��H��H��I�$� 9Q tQ�Q I��$� 9T t@A��$x L������- @ M�E1�H� �� H�U H�5�� L��1�A��@ � H��$� dH3 %( ���Y H�Ĩ []A\A]A^A_� @ H�U�A�wL��� � L��� ����� � I��$P ��� u A��$x tL�����L�����HcD$I��$� H��H�l$H� �� � H��H�º� D�@ 1��[ ��I�1�H��L��1���@ �,��� H�U�: �����H�ċ! H�L$ I�t$L��H� ��P �������L$ ��xMHcD$���x��� � I�H�T$ L��8 ��������T$ HcD$��N�A��$\ �T$ �7����D$ HcD$�%����@��SH��H��E1�H��H��H��H�L$dH�%( H�D$1��r���H��t]HcT$H��� H��! H��H��H�H�z � tC1�H�5�� H���@ 1�H�t$dH34%( u5H��[�f � � ��f � 1�H�5\� H���@ 1����� D UH��SH��H��H���! H���� �<����R(��� ��~7��H��H� �H�L�(f�� H�ZH�B �B ����H�RH��(H9�u�H��[]� L�I�D�BH��H��H�5��! H�=t�! ����ffffff. � L�I�D�BH��H��H�5��! H�=$�! ���f. � D AWAVAUATUSH��H��H��(�T$H�H�|$H��H�L$���H��H�D$�K �D$�� ���h �D$H�T$H�-h� E1� ��L�z��H��L�df D M�7L�����H�� L��H��HO�H��H9��uM�oI��M9�u�M���� H�|$L���z��H��H���� H� �x�� L�t$H�T$1ɋt$H��H��L�s��� ������u~I��� H��tH��x�� ���H�D$H��� H�\$H��H���~��H������? @ H�q�! H�T$E1�H� F� H�5I� H��L�HcD$H�T�1�A��@ � H��(��[]A\A]A^A_� @ H�D$��x ��.��� � H�D$H��� L�(���H�D$H��H� H�����H�D$H��� �.���ffff. � AVI��H��AUI��ATA��UH��L��SH�� ��H��H���� H��� H��tvA���� A��t6H��H���k��H�����H��� A�t$�I�U[]A\A]A^� ����H�!�! H�E1�H�uM�EH� H�RpH��� []A\A]L��A^��H��! E1�H� �� I�U H�5�� L��L�1�A��@ []A\A]� A^� � H���! H�E1�H�uE1�H� H�RpH��� �fff. � UH��SH��H��H��H��xH�dH�%( H�D$h1����H��tiH��� H��teD�H D�@H� �� �d � H��1����H�C�! 1�H��H��H�1���@ 1�H�T$hdH3%( uHH��x[]� � � �ېH��! E1�H� �� H�U H�5�� H��L�1�A��@ � ����f � SH�H��H��H���.��H��t9H��� H���! � H�t0H��1�H�5$� ��@ 1�[�f. � � [�f � H��1�H�5 � ��@ 1�[�f. � ATI��UH��SH�H��H��H�����H��tkH��� H��t4H���! H��L�E[]H� H�E1�I�t$A\L��� H�RpH��A�� H��! E1�H� �� H�U H�5q� H��L�1�A��@ []� A\�ff. � AUI��ATI��H��UH��L��SH��H����H��H��tgH��� H��tkH��zt2���H��H��Hǃ� �G��H���� ��1�H��[]A\A]�f�H��� H��H���� ��H��� � D H��� []A\A]�H��! E1�H� �� I�U H�5�� L��L�1�A��@ � �fffff. � L�I�D�BH��H��H�5K�! H�=d�! ���f. � D AWE��AVI��AUI��H��ATUH��SH��H��L�%q�! dH�%( H�D$1�H�T$I�$��8 ��uVHcD$A9E ~S��xOI�E��H��u#H�L$dH3 %( u[H��[]A\A]A^A_� @ H�x u�M� $E1�H� :� ��1�� @ M� $H� �� E1�1�H��H�5�� H��A��@ 1��� ��ff. � UA� SH��H��H��� H��� H��H� ���H��H��tPH�xH��xt+����H�E ��x @H��� ��H��1�[]�f D H��� H��H��� ��H�}�H��� []� @ AWE1�AVAUI��ATUSH��H��� H��HH�L$0H� �T$,H��� H���W���H��H�D$8� �D$,��} ���� �D$,H�T$0E1�� ��H�j��H��L�d�L�} L���� ��H�� H�=�� L��HO�H��H9��uL�uH��L9�u�M���R L��L���� ��H��H���� H� �x�� H�D$8H�CH�xH��tH��x�� �z��H�D$0H�T$8H� )�! I�uI�}I��H��H�ZH�D$ H�$�D$,�D$ �D$ D�H��� ����tH��H� []A\A]A^A_� @ A��x @L��D$,�< ���D$,H��H[]A\A]A^A_�f � A��x ��5��� I��� H��H���. ��H�D$8H�x�1���H�Q�! H�T$0E1�H� &� H�5)� H��L�HcD$,H�T�1�A��@ �M��� D I��� L�0����AUI��A� ATI��H��� U��H��� SH��L��H��HH� dH�%( H�D$81��,���H��t^���� ���� L�@H�T$4H�sI��D�M�H� ��! H�T$�D$ H���D$ L�,$L���D$4 �] ����t)� H�L$8dH3 %( �� H��H[]A\A]� D �T$4��tԀ�x @H�߉D$,����D$,� � M�ML�@H� �! H�s�$ H��L��� ��덐L�@H�sH� ��! �$ E1�H��L�������c������f�ATI��H��� A� UH��H��� SH��H��H��H� ��H�¸ H��t#L�BM�L$H� ��! H�s�$ H���P ��H��[]A\� � SH� H��H��� H��� E1�H�����H��t3H�x H�~! � H�t%H��1�H�5�� ��@ 1�[� � � [ÐH��1�H�5�� ��@ 1�[�f. � UH��H��� A� SH��H��� H��H�� H� dH�%( H��$� 1����H��tjH�@H��tqD�H D�@H� �� �� � H��1����H�O}! 1�H��H��H�1���@ 1�H��$� dH3 %( uQH�Ę []� D � ��f � H�}! E1�H� 6� H�U H�5�� H��L�1�A��@ � ����f � AWAVAUATUH��SH��L�-�|! ��� H�|$I�E �<� �P(��� H��� ���� ��H� � 1�� H��� H� H��H9�u�E1�L�5.|! � @ A�GI��9�� I� $�� H��� �8 N�$�I�E �P(H��� H�uH�CH�hE1�H�@ �@ 1�H�@( �@0 I���@4 I�H���! �$ H�|$��� ���k���I�$ H��� []A\A]A^A_� � ��x @H��1�[]A\A]A^A_�AWAVAUI��ATUSH��H��� H���� ��� ���� L�5B{! L��� E1�1�f D J� 'H��tGH�{H��tH��xt]�h ��H��z! 1�I�U H��H�=�! H� ��` I�H��P0I��� ��I��A9�� �I�H�@0H��[]A\A]A^A_��H��L���u��H�{� � H��[]A\A]A^A_�L�5�z! �AWAVAUATA��USH��H��H�G8D+�$� H�t$ D�D$(D�L$0�D$4��� D$4��x �� ��� ���� 1��D$, �� f. � Dl$,A�O0H��y! E��I�W(H�t$ L��L$A�O4H�{D�D$(�L$��� � $D��A�� I�wH��ttH�>E�G4�D$(�C� B� �� H��� D��� A��E�E�FD7 H�|$ �D$ �D$ �$ �����x yI�GH��z�� ��� �EE�H��9��� L�T� H��� H��� ��N�4� 9�L�<�F�l1 ������D$,B�(;T$0}'�D$0A��D+l$,�D$,����f��D$4���0��� �T$,��� � H�x8H�w(H��t3H�?�� ���Z���f D ��x H��H[]A\A]A^A_�f. � H�D$8H�\x! H���� H�D$8H�x8H�w(� @ H��h H�p(H�8� ��� ���D��� LJ� E��~ZL��� 1�E1��3 @ D�I�q �J4��D�D9ƉJ ~��� H��A9�~ D��� I��H�JH��u�E1�1��� D ��x �� � L�I�D�BH��H��H�5��! H�=��! ���f. � D H�H��t H�iw! H� H��H�H��� �� ��f D USH��H��H�GH9�� �� H9�� �� H�{H�-6w! H��tH�E �P0H�{HH��tH��v! H� ��X H�CH� H��t H��v! 1�H��H�=j�! L�H�A��` H�E H��H�@0H��[]��f. � H9�� Hǀ� �o��� � Hǀ� �W���UH��SH��H��� H��u�f � H��H� ����H��u�H�uPH� =v! H��t H�H�}��P H��� H��t H�H�}��P H��� H��t H�H�}��P H��� H��t H�H�}��P H��� H��uLH��� H��t H�H�}��P H�H�UH��H�=B�! 1��` H��u! H��H� H�@0H��[]��H�H�}��( 륐H��� H��ttD�O,D�G\1�LJ� LJ� 1�E�E�f D �H4D�P09�~��� ��H� H��u�G`��� �W$A�A�D��� B�H�G(�f � �G,LJ� LJ� ��G$�G(�AWAVAUATUH��SH��xdH�%( H�D$h1�H��� �9 H�H��H|�PxH�p(D�@ �G���I��H�E H�UPH�}E1�1�L��D�Hx�@|�$��H�bt! H�} 1�D��� H�U0L��L��EXD�Ox�D$�E,�D$�G|D)��$A�� H��� D�M,H���� H�D$P�M\�D$4 E1�H�D$H� H�U0D�F�C�D�c0f�t$RfD�L$ZfD�L$^f�D$Pf�D$TC� f�t$fF� 0f�D$Vf�D$bfD�\$XE� LE�fD�\$\E˅�fD�\$`fD�\$duA�q��f�D$Vf�D$bf�t$Zf�t$^G�$D+C4A� �D$0�E`E)�F�$��A�@��~1�s �N���w&� H��@��QH���� D��DE� � A�D$��H�L$HA� L��DD�H� s! H� �$ H�} �� H�K(H��� H�D$8H�UhA�����H�}D�L$0L��H�D$ �C@�D$�C8�D$�C<D�$$�D$�9���E��t-�s4�C0E�D$��L$0H�}�VD�HL�����$H�T$@���D�M,�M\A� E�4FDs0H�H��� 1�H9�� �D$4AD�@�ljD$41�H9�� �� H��r! ��� H�H9S�� H��� E1�H�D$@ H�D$8�����H�U@D�F���f � H�{HH���� H��q! �t$0M��D�C4�K01�H� �4$1�D�d$��� ��� @ �A��n���f D H��� ��H�T$8�� H��� H��H�T$@A��A!��a������� ���� ����D$4 � H�1q! H�} L��D��� H�U0L��EX�OxD�L$�D$�G|A��1�D)��$A��� H��� H��tQ�U\�@0�],D�d$4D��� H�u0D�4PH��p! � H�} A�H� �P H�}E�� $E��D��H��L���#���H�E H�P(I9�tMH�}H��� E1��D$ �D$ E1��p|�t$�@xL���$�`���H�Qp! H�}L��H� ��h ��� �H�D$hdH3%( � H��x[]A\A]A^A_� � H�{X �d���H�}�T$0D��H�t$8�X���D$0H�sXL��H�}H�D$ E1�D�d$H�L$8E1��D$�C4�D$�C0�$���H�}H�t$81�1������� H��� D�F�H��H�T$@H�U@A��A!���� D H�W0H���"����GX������H�?H� No! E1�L�D�Ox1�H�w(�D$�E,�D$�G|�$A�� ����$��� @ ��� �u H��� u �� � ��H����� H�o! H�=���H� H��� ��f. � ��� �� �� H��� ATHc�USH��H�� �~,�� ��� �H��[]A\�k��� �~,�� ��� H��� u�H��� H��� �� D H�? �� H�-_n! H�wH� H�H�E L��H �� H�{H��A����� �t ��H��H�=%������ H�E ��� H�E H��H�5g���[]A\H��0 ��f. � []A\��f. � H�-�m! � � SH���'����Cd��u(�s ��~)H��m! �S(H�;[H� H��� �� � [�f D �s$��ff. � SH��H����H�{[�)���f � ATH��I��UH��SH��u�, @ H�H��t H�{H���T�����u�H��[]A\� � H�m! H��L��E1�H� Q� H�5� L�1�A��@ []1�A\�ffffff. � AUI��I��H�A�! ATUH��SH��H��L�-�l! H�I�E �$ H�u ��� ��A���� H�{HH��tI�E ��X H�CH H�SPH��t%I�E H�}I��H� ��H�u �� H��H�CHtGH�s(H��tV�K<H�}hL�K4L�C0������]�H���U���H������H��D��[]A\A]� � H��A� []D��A\A]� @ H�{HH��tI�E H�S4H�s0��x � H�sXH��u�C0 �C4 � � I�E H�K4H�S0H�}��p �h��� D AWI��AVI��AUATUSH��H�� H�-Gk! dH�%( H��$� 1�H�E D�$I��H�6��H���! ��� ��A���T �{\�C\ �{`�C` �{,~�C, H�E H�s0L�l$H�;�� H�CH� L��H�;H� �D$t H�D$ H�E �� H�sPI��H��tH�E H�{��P H�CpL�{PH�{0H� H�D$ H�E �PH� H�{hH�D$(H�E �� H�D$hH�E � @ �D$t L��H�;�� H��� I��H��tH�E H�{��P H�CxL��� H���` H� H�{0A� @ H�D$ H�E �PH� H�D$(H�E H�{h�� H�D$hH�E L��L��H�;�� H��� I��H��tH�E H�{��P H�E L��� H�{0�PH�;H���_���H��� I��H��tH�E H�{��P H�E L��� H�{@�PH�;H���%���H��� I��H��tH�E H�{��P H��L��� �y���H������H��$� dH3 %( D���� H�Ĩ []A\A]A^A_� D H�E H�=� L��� ��� H�3H��L��A��H��H��� u/A� � � H�E H�{0�PH� H�D$ H��� H��t��D$@ H�D$XA�I ����t� @ AWA��AVI��AUATUSH��HdH�%( H�D$81���H�t$�. L�-Oh! H��I�E ��X I�^D�#H����A��attA��f�� A��c�` A��d�� ��� H�==� H��H��HO�H9���� A��L�U� �� H�|$� L��D���L����� � ��� H�=2� H�� H��HN�H9��� H��� H�=ˢ HN�H��H9���J A���P M�fI�E �` �P(L��H��H� H�h�J���H�CH��g! A�O�I�VH�C( �C0 �C4 �C8 H��H� �C< H���C@����H�CH H�CP H�CX H�C�C ������� H��� �( H��� H�H��� H������H��1��b����- D A���6 M�U L� �� H�$ I��H� �� I�H�5W� H�|$1�A��@ �` � ��� H�=M� H��H��HO�H9��t�M�U L� � H�$ L��� H� � H��H�5 � H�|$1�A��@ I�E H��� � H�T$8dH3%( �Y H��H[]A\A]A^A_�f���� H�=�� H��H��HN�H9���� A���z H�|$L��� � L��D����� @ I�E H��� ���w��� @ I�^�; �� A��a�� HDž� ����H�!e! E1�H� 4� I�H�5� H�|$L�1�A��@ � ����f. � H�� � H�=�� HN�H��H9�������A���V A���G H�|$I�NA�W�A� H���������(��� � L��� M��u< @ M�M E1�H� �� I�H�5�� H�|$1�A��@ �^��� D M�?M��t�I�wH���\��u�A��a�k L��� �v���f�M�M E1�H� S� I�H�5]� H�|$1�A��@ ��� D L��� M�fM���A M��L��� @ H�H���) I��H��H�{L�������u�L9��� H9�� �� H�I�H��1���H�����H���8�����H�Dc! M�FE1�H� H��H�Ȼ! H�u H�|$��� ������HDž� HDž� �{���A��guq��� H�=� H�� H��HO�H9������H��H�\$ �P�D�M(D�E$H� ,� H�ߺ � 1�� ���I�M H��1�H�|$1�1��@ �@���A��iuY��� H�=� H�� H��HN�H9���� A��� M�M E1�H� �� I�H�5T� H�|$1�A��@ �Z���A��m�� A��p � ������ H�=� H�� H��HN�H9��uA���� L� � �#��� @ H��� H�=�� HN�H��H9�������A���� H�|$L��� � L�� �6�����H��� H�=�� HN�H��H9���^���I�E H�|$��� A���� M�E 1�H�� H�5 � H�|$1�A��@ �W���f D ��� H�=]� H��H��HO�H9����1���� D H��`! E1�M�FH��H�p�! H�u H�|$H� ��� ���w���I�VH��� H�|$�r�H������A���5 A���� A�O�I�VH��H�������+���M�M H�}E1�H� �� L��H�5� 1�A��@ �z���I�E H�T$I�vH�|$��8 ���Z���I�E H�T$ I�vH�|$��8 ���:����D$ 9�� ~OH��� H��tC�},}\1�H�z`! �t$�L� � � ���B09�|9� L9B�� H�H��u�I�E H�|$1��� �P���I�FH�=@� � H���uPH��� H���u���f � I�E H�sH�|$��8 H�H��u�1����H�?_! E1�E1�H� ���H�=�� � H����� H��� H������I�M H�p1�H�|$1�1��@ ���H�\$I�VH��� H����H�������H��^! H��E1�M�FH��H�u L�H�A�! A��� ���S���L��� L��� ����H�=�� � H���uH��� H���[���1�����H�=� � H���u+H��� H���?���H� H���%���H��� ���� H�=� � H��������H��� H��� H9��� H��u ���H9�t H��H�H��u�I�M H�r����H��]! M�FE1�L�H��H�H�! H�u H�|$A��� ���Q���L;�� t\H�H��� ����L��� ����H��� H��� ����H�[]! E1�E1�L���S�H��� H���c���1����HDž� HDž� ����AWAVI��AUATUH��SH�����T$ � L�-�\! H�QH��1�H��I�E ��h I�ĸ M���� I�E H�5�� L�� L�=�\! �� I��P(H��L� I�$��� �H��H���� �" L��H�kH�CI�E �Cd �C �C$ �C, H�C0 H�CP H�CH H�Cx Hǃ� Hǃ� H�C@ H�C8 H�Ch H�Cp Hǃ� Hǃ� Hǃ� �CX Hǃ� Hǃ� Hǃ� �C\ �C` Hǃ� Hǃ� Hǃ� ��0 H�I�L���H��H��H�rXH����� �T$ I�NE1�H�CH��H���������3 H�I�H��D$ H�rX1��P �D$ H��[]A\A]A^A_� � I�E H�;��� H��� []A\A]A^A_� � H��Z! I�H��E1�H� � H�5� L�1�A��@ H��� []A\A]A^A_�f. � H�GH��t'H��Z! H�G H��H�H��� ��f � ��fffff. � H�QZ! I��L�H�wH��E1�H�R�! L��H� H��� �� AVI��AUA��ATI��UH�-1Z! SH��H�E ��X H�5�! H�=m�! M��E��L��H�����A��H�E H���� []D��A\A]A^�AVAUATI��USH��H��pdH�%( H�D$h1����� H�GL�5�Y! �Px�H|�C0�� L�l$0H�l$ H��p H������BL��L$�D$�.���� C0H��� I�UH�uH�\$@�)D$���\$8H� � �T$(�( �L$0� �D$ H�߸ �`�I�1�1�H��L��@ 1�H�t$hdH34%( upH��p[]A\A]A^�f D L�5�X! H�l$H�1H�L$L��H��I���8 ��H�L$t � � D I�H�UH�qL��8 ��u܋T$�L$�����f�f D AVI��AUATI��USH�� dH�%( H��$� 1�H���� I��H��H���q�I��� H�=�! H��L����H�D$H��t21�I9�u �e D I9�t[H�=�! H��L����F�H�D$H��u�H��W! H�= � H�1��R 1�H��$� dH3 %( ufH�Đ []A\A]A^ÐH�l$ H� � A�غd � 1�H�����H�~W! 1�H��L��H�1���@ 뛐H�aW! H��H� ��� ��6�f D UH��SH��H��H��� H9��� H9�� �� H9� �� H9� �� H9� �� H�{H��t�B�H��V! H�U H��H�=M�! 1�H� ��` H��V! H��H� H�@0H��[]��f � H�H���� H9�� H��� �i���H9� HDž� �^��� � H9� HDž �K��� � H9� HDž �8��� � HDž � ���H��� HLJ� H������H�H9�u� H� H9��H���H��H��u����H���3��� � AWI��AVI��AUI��ATE1�UI��� SH��8H�\$H�|$dH�%( H�D$(1�H����H�=n�! H��H���[�L�|$M��u/�_ � E��u&M9�tNH�=?�! H��H����L�|$M��t2M9�u�H�= �! H��H��A� ���H�|$L������M9�u� H�L$(dH3 %( D��uH��8[]A\A]A^A_�����f � ��� �u H�W�� u��f D ��H����� H��T! H�=� H� H��� ��f. � H��T! ��� �H��H�=� H� H��� ��fff. � H����� H���tH�t$���H�t$��� �t H��� � H�T! ��� H�=# H� H��� H���� H�H��t� D ��fffff. � AWAVAUI��ATUSH��I��H�� H�-�S! L��� dH�%( H��$� 1�H�vH�E D�$I�ȉ�H�}�! ��� ��A���� L��0 L�����L� �� H�� � HN�L��H9�L����� ��� L�=�S! H��� I;�� H�{S! H;�� H� S! E1�H� A� H�5� L��A� L�1�A��@ I�H��� H��$� dH3%( D���# H�� []A\A]A^A_� � H�� � H�=� HN�L��H9���� ��� ��A���f�A� � � H��� L9�t!L��� L��� H�5� 1ɺ �s��H�E H�s@L�l$pH�{�� H�CX� H�{L��H� DŽ$� H��$� H�E �� H�shI��H��t H�E H�;��P H�E L�shH��� �� H��$� H�C`H�{HH� H��$� H�E �PH� � @ DŽ$� H�{L��H��$� H�E �� H�spI��H��t H�E H�;��P H�E L�spH�{H�PH�{H�����H�sxI��H��t H�E H�;��P H�sXH�{L�sx����H��� I��H��t H�E H�;��P H�C`L�� L��� H�{H� H��$� H��� H� DŽ$� H��$� H�E �� H��� I��H��t H�E H�;��P H��� H�{HL��� H�D$`��� �D$X��� �D$\H�CPH�D$ H�CXH�D$H�C`H�D$@H�E �PH�{H�t$H�D$8�D$U � ���S,�s(H�E H�{��� ��� ��� H������'���f. � H��O! L�L$E1�H� ڵ L��H�5O� L��A� L�1�A��@ L�L$H�E L���� ��� H��0 ����������� �� �� H�w� ATHc�USH��H�� ��� �H��[]A\��� D []A\��� � ��� H��[]A\�]��� D H� tqH�-"O! H�w H�G H�H�E L��H �� H�{H��A����� �uD�tH���X���H�E H��H�5Z []A\H��0 �� D []A\��f�H�-�N! � � ��H��H�=� ��� H�E ��� ��� �f. � U��H��p SH��H��H�����H�{H��� ����H��( H��t��u H��[]�f D H�-)N! H�{H�U �� ��t�H�E H�{H�5(� �� H�E H�{H��p H��[]�� UH��SH��H�� dH�%( H�D$x1�H�A��8x������t`H��E1�H��p H��������t%� H�\$xdH3 %( �� H�Ĉ []�f�1�H�߉D$ ��H������D$ �� @ H��H�T$H�t$H��p H�\$ �����L$H� � �D$�P � H�߸ �V�H�M! 1�H��H��H�1���@ 1��U�������AWAVAUATUSH��H��HH�O��� dH�%( H�D$81��qx�I|�������� ��� ��D� �C0B���D� A� D�D�@��E�D��� E1�A��@��A�ǃ��Dփ��D�E���T$0�D$4�� H��� I�G Mc䋳� F�T�0� H��� H� �A �A �A ǃ� � I�D$ H��� ��J�D�L��H�RH��M��H�M)�I�WL�L� L��H��Hً�� B��9�� }��� H��L9�u�L��B�T�0I��H��I�H؉�� E��$� ��� ���� A��$� ���� ��� ���� A��$� ���� 9�~0���� �tm ��H�K! H��� H� �P8��� H��� � H���|���� H���o���H�D$8dH3%( �� H��HH��[]A\A]A^A_��� D L��� M���` L��A� � Mc� � H�PH� B�t�B�T�9�L�A9�DL�H��u�F�T�0A� F���P ��� B���P ǃ� D�Й����DO�M���� 1�L��D�T$,I��M����1�1�M��E��H��� D I�H��tI��I�F��|�D9�A��u�9��� �� ��N�9��� H��I! �4RL�T$ H�L$D�\$(�T$��I��� H� L�D$�P8L�D$�T$L�T$ H�L$D�\$(I��� A��� ��HcӃ�H�RH��L� F�|�D�l��hA��� M�&�PM��A��� t$L��1�1��0��� � I��� � � M��L��I��I�G D�T$,�,H��A� H�A H����A� �J���I��� ��� ǀ� A��$� ���c���ADŽ$� ��� ���W���ǀ� A��$� ���M���ADŽ$� �<���f � ���^���� � �.��� � A� � Mc�����I�G 1�H��� I�D$ H��� �z�������f�UH��SH��H����� �� ��� ��� �C0�� �U H�s)E�U �K0�� )ȉE�K0�� �~x����N|9��� �q�9�L��� M�1Ʌ�Hх�H��U �E��� ��@��@���� �U �� �E@�ǃ��D� H��TA�H��<���@�ƃ��D� H��T��<���� �V��9�M�H��[]� D �W��U �g��� D H��F! H��H�=���H� ��� H�������� ����f. � ������f � AVI��AUATI��USH��H��H�ĀH�-�F! H�1dH�%( H�D$x1�H��H�E ��8 ��t-A� H�L$xdH3 %( D���� H��[]A\A]A^� H�E I�t$H�T$H���8 ��A��u�H��L������A��H�E H���� A���t�L�t$H� S� E��d � 1�L���.��H�M 1�L��H��1���@ �^������AWAVAUATUH��SH��hL���� �dH�%( H�D$X1���� ��` A�O|A�Wx�ÉD$,�G0I�w(E�G H�?A�ƉD$@H�EE! H� ��X H��H�D$ A�G|E�OxH�Uh1�E1��$H�} �����E�OxD������A��D$DAG|� ���� �M8H�=�D! H�U@�\$,H�t$ L�H�}�L$�L$@A�؉$�L$��A��� ��~1��� �� H��� H��D! H�L$ L���T$,L� A��� H�MhI�W(E1��D$ �D$ E1�A�G|H�t$ �D$A�Gx�$H�} �O��H�D$XdH3%( �z H�,D! H�} H�t$ H� H��h H��h[]A\A]A^A_��Dʅ�� ������ ���������� H�E�� �@xA� 1ҋ�� ]0Hc�L��� H�|$0�ډ\�P��D�P� E��DN�M���� L�t$0H��� I��I�H��E��� �� I9��� H��� H�t$0E1�1�1�L� �� D H� H���2 I9�t\Hc���H�4vH��;L2uۃ�FL 1��� � H�C! H�u@� H�}H� �P H���W����@|E1� ����E1�H�|$0H�W�|�Dω�C� D��9�} ��D)�A��� A9�} E��� D��A9�t1�H���D�A��� HDž� ����� �� �D$( 9|$(�� HcD$(H��� L�|$HL�4@J�� I��I�E H��H�H�D$8f�H�|$8D��� J�2DU0E1�H�D�HD�GF�T�PE���� E��~SH�KI�u�L�A9��V �� E1��! H�sI�}D�\�A�E9��7 t]D��A��H�E9�u�f D H�|$0�D$(I���L�PL��D$(;�� �L�P�N���L�|$HD�L$DA�G|D�EOx�|��� @ A��H�E9�}�L��F�|�PE��I���e @ H;�� H�sD�@D�N t�T$�L$TA���T$PH�|$ �D$ �$ ����H��� I�D$TH�D|� J�2D;hF�|�P}G�S ��� ����҃⼃�U��u�H;�� H�sD�H D�Fu��Ѐ���E��q��� @ M�����E1�1� D)�A�F�T�P� ����������H��� H�L$0�t�9��� �� H�L$0E1�H�L� � H��9�tU��A��A9��������9�~�D�D$()�H�D$0�\�P���D���9���A� ���H��H�� H���D�a���D�D$(�D$(�h���1�E1�����1��D$( ��D$( �E������fff. � AVI��AUATUH��SH��H��0dH�%( H�D$(1��<e�� <@uDL�jL�d$ 1�D�D$ H� $L��L���-���D$H�D$ H� $D�D$ I9�t�8,�� D L�-I?! D�D$ H��H� $H��L��A� I�E ��8 ��H� $D�D$ u2D� E��yzM�M E1�H� T� H��H�5J� L��1�A��@ f D H�T$(dH3%( D���� H��0[]A\A]A^� @ �zn�f����zd�\����z �R���D��� D� E����� t A9�~�A��E1�E��y�� � A9�|�D�H�D� ��L�h1�L��L��� ���D$H�D$ H� $D�D$ I9�����8 ����H�t$H������H� $A��D�D$ ��u�������AWI��AVI��AUM��ATM��E1�UH��H��H��SH��(�T$ I�H�L$dH�%( H�D$1��������us�|$ �� �t$�t$����� 1�9�H��� 9�H��H��� H��thH��tCM��I�$tI�M ��H�\$dH3 %( �� H��([]A\A]A^A_Ð� ��f � �D$H�х�~� D ��H� u��f D ��H��� ~��� ��H�u�)��D$ �t$�m��� D I�WH�L$E1�L��H��� �����u��t$�|$9�}�t$�|$����������������fff. � AVA��AUI��ATI��UH��SH�� H�dH�%( H�D$1�H������ H��H�=�� HN�H��H9��tH�� � H�=>� HN�H��H9��� H��� H�='� HN�H��H9���+ A�F����� I�T$�A�vL��� � L���a��� �uf. � A���� I�L$A�V�L�L$L�D$H��L��������� H�D$H��t/H�T$�` �H9�t � H� �` �H9�u�H�T$H����1�H�\$dH3 %( �{ H�� []A\A]A^� @ H��� H��t� @ �` �H� H��u�H���<��f. � A��tbI�T$�A�vL��� � L���m��� �f D H��:! E1�H� ?� H��H�5Ly L��L�1�A��@ � �G��� @ I�L$L�L$L�D$� H��L���y�����u�H�D$� �@ H�h:! H�t|1�H�5� L��@ 1����f�I�L$A�V�L�L$L�D$H��L���"������t���H�D$H�������H�T$�H H9������f. � H� �H H9�u��{���1�H�5�� L��@ 1��q�������AWAVI��AUATI��UH��SH��8H�Y��T$ dH�%( H�D$(1�H������� H��H�=�� H��H��HN�H9��t0H��H�=�� H��HN�H��H9���@ M��$ �f D M��$� L�} L������ H��H�=.� HN�L��H9��tFH��� H�=j� HN�L��H9��� I�} �Q I�E L����1��P D �|$ tiH��8! L� <� I��H� 7� H�5j� L��L�I�D$H�PX1�H�$ A��@ � H�\$(dH3 %( �� H��8[]A\A]A^A_�f�H�ML�L$ L�D$� L��L���2����¸ ��u�H�D$I9E �� I�E �>��� � H�� � H�=b� HN�H��M��$ H9�I��$ �����8�LE���� H��7! E1�L��� H� D� L��H�5>� L��L�1�A��@ � ���� D 1�� ����l���fff. � ATUSH��H��0H�whH�-B7! dH�%( H�D$(1�H��t H�E H�?��P H�spH��t H�E H�;��P H�sxH��t H�E H�;��P H��� H��t H�E H�;��P H��� H��t H�E H�;��P ��� ���� H�z� H�{H�L$L�L$H��I��H�D$H�A� � H�$ H�D$ H�D$���L�%�6! H�{I�$��� H�4$H��tH�T$H��tH����H��� H��tI�$�P0H�E 1�H�H��H�=/�! ��` I�$H��P0H�D$(dH3%( uH��0[]A\�f D L�%6! ����f�AUA��ATI��UL��SH��H�� dH�%( H�D$x1���tI�P�qL�J� � L���7��H�U H�L$ E1�L��H������������ ��� ���� ��� H��� A� �JtA�ȹ A���� �� A���� A���� �T$ A�E��x D9��T$ A��H�\$H� m� �d � 1�H���K��H��4! 1�H��L��H�1���@ � � � H�|$xdH3<%( ��uqH�Ĉ []A\A]� H��4! L��H� ��� �� �T$ ��D)�A���[��� � A��u"�T$ A��A)��?��� �T$ D��/��� E1��)����;���ff. � AWI��AVI��AUATI��U��SH��xH�dH�%( H�D$h1�H���l���A� H��H�=%{ L��H��I��HN�H9���C H��L��H�=v� HN�H��H9���c � I��H�=S� H��H��IN�H9���� I��H��H�=݁ IN�H��H9���� I��� H�=�� IN�H��H9���� I�� � H�=�� IN�H��H9��A����A)�E��E���� I��� 1�I��H��uD� H� g� � � L��A��1��B��I�1�L��L��1���@ H���H��tI�C t��L�5�2! t�I�1�H�5M� L��1���@ �f. � I��� L��L��� ��A��H�t$hdH34%( D���� H��x[]A\A]A^A_� D I�� L��L������A���f � I��H�=�� H��IN�H��H9��A����A)�E��E���� I��� H�=�� IN�H��H9���� H��1! E1�H� �� H��H�5ip L��A� L�1�A��@ �-��� � �M�M�G� L��L�����A��������M�M�G� L��L�����A�������M�M�G� L��L���i���A��������M�M�G� L��L���I���A������E��� H� �� H��d � 1��^��H�1! 1�H��L��H�1���@ �d����ں��f. � ATH��E1�UH��SH�ĀdH�%( H�T$x1�H�H�L$ ������t$� H�T$xdH3%( ��uNH��[]A\� @ L�d$D�D$ H� Հ �d � 1�L�����H�d0! 1�L��H��H�1���@ ��2���f�SH��H��H��0dH�%( H�D$(1���tXH�!0! L�A�L� �� H� �� H�5Ѕ L�H�CH�PX1�H�$ A��@ 1�H�t$(dH34%( uQH��0[� @ L�L$ L�D$H�����u*H�T$H��t�H��� H�߉D$ �����D$ � � � ��l���fff. � UH��SH��H��HH�wH�dH�%( H�D$81�H�D$4D�L$H� $D�D$H� ��! A��H�D$L�CH��� �����uZ�T$4�D$,��u&H���6���D$,H�\$8dH3 %( u9H��H[]� H�SH��J�K�R �S ����D$,��f. � � �褸�� @ AWA� AVAULc�ATI��UH��SH��H��xH�U H�L$ dH�%( H�D$h1�����uNH��h A��H� H�D$�� A��u_H�P.! J�T�E1�H� %j H�5(j L��L�1�A��@ � H�\$hdH3 %( � H��x[]A\A]A^A_� � A�E�L�u��H��H�DH�$f � M�>L���%���� H�� H�=�v HN�L��H9��u I�FH�D$I��L;4$u�L�|$L��L���4���H���[���H�|-! �( H� �P(�` �H�@ L��H�@ H��I���Ƕ��H��I�F�� �PH�XD�|$ D;�� A�V�@ A�F }zH�D$ H��H�D$�H���H�T$H��� H�=�! H�4$�ܸ��H�|$( u%�af�H�T$H�4$H�=Ȋ! A���'���H�|$( t>E��u�H�L$H�4$H�=��! L������� H��� H�=��! 1�L��H��H�$豹��H�MA�U�E1�A� L��H�������t%H�4$H�=N�! 1�L���l���L��H������ ���H��H�\$@����D�D$ H� �| �( � H��1��_���H�,! 1�H��L��H�1���@ 1������ٵ��f � AVI��H��AUA�պ ATI��U� SH��L��H��0L�L$ L�D$dH�%( H�D$(1�����u6H�t$H���� A��tyA��tCI�L$A�U�E1�A� H������H�\$(dH3 %( ���� H��0[]A\A]A^� @ M�L$L�FH�C�$ H� ��! H��L��H���?������ L�FH�CE1��$ �� @ H��*! E1�H� �{ I�$H�5|� L��L�1�A��@ �a���諴��ff. � AU� A� ATI��UH��SH��H��H��H��8L�L$ L�D$dH�%( H�D$(1��m���u0H�T$H��tGL�ML�BH� Ћ! I�t$�$ H���<���A��H�L$(dH3 %( D��u;H��8[]A\A]� H�*! E1�H� �z H�U H�5�� H��L�1�A��@ ��ֳ��f D SH��H��H�� dH�%( H�D$1��B���v=H�A�rL�q{ � H���2���� H�\$dH3 %( uQH�� [� � L�L$L�D$H���n��¸ ��u�H�t$H��tH�T$H�������tH������1���'��� � ��H��t��tDH��A� H���C�� H��(! H�wH��E1�E1�H��H�L��� H��! A�� D H��(! H�wE1�L�H��H��H�L��� H���! A�� D AWI��AVA��AUATUH��SH�����h L�%q(! H�QH��1�H��I�$��h H�¸ H���� I�$H��H�5 � H�T$�� L�-J(! �� I�E �P(�H��H�Ǿ� H�T$�n @���4 @���B ��1���@���H��� @���l ���S H�H�S� H�kH�Ch H�Cp H�Cx H�H����Hǃ� Hǃ� �C8 H�CH� (! Hǃ� H� H��� I�E �P(H��� H��� ǃ� ǃ� �6���H��p � �5���H��� � �$���I�$H�{H��H����� �" ��0 H�SI�E L�H��H��H��H�rXH������� I�OA�V�E1�H�C H��H��������o H�SI�M H��D$H�rX1��P �D$H��[]A\A]A^A_Ð� ��� � 1�H��f�G���������� � H��@���h�����f�I�$H�{��� H��� []A\A]A^A_�f D H�)&! I�H��E1�H� $w H�52w L�1�A��@ H��� []A\A]A^A_�f. � 1�H����f�O����f D � ��H�����f D � H�x@������AVAUATUSH��H��H�F H9�uH��H��[]A\A]A^� � H�-q%! L�%J%! L�hXH�>H�U I�$L��@ ��X M��H��L� �� H� :� H�{H�5[� H�$ 1�A��H�E H�{H�5;� �� H�E H�;L�� I�$��X H�{H��A��H�E H�{H�5� �� H�E H�{1��p H��H��[]A\A]A^�fffff. � ��fffff. � SH�p$! H��H�H��1�H�=��! H� H�R H���` H�g$! H��[H� H�@0��f�USH��H���G<� �� <tq<uJH�w@H�- $! H��tH�H�E H�H�R H�:��P H�H�E 1�H��H�=3�! H�H�R H���` H��#! H��H� H�@0H��[]��f. � H�(H�-�#! H��t H�E ��X H�H�E 1�H��H�=��! H�H�R H���` 랐��u�H�wPH�-Y#! H��tH�H�E H�H�R H�:��P H�H�E 1�H��H�="�! H�H�R H���` �J��� D H�H�#! H��1�H�=r�! H�H� H�R H���` ����f. � AWAVAUATI��USH��H� �% L�5�"! I���X A��$� ��t I�L��H��� H��[]A\A]A^A_��L�=|"! ADŽ$� L��I�|$ H�i � I���� I�l$8H��t4�H�]L�mH��t H��H�[��H��u�H�����M��tL����A�D$|���� I�t$I�$ H��t(I�I�|$�� I�I�D$ H��I�|$��H I�t$pH��tI�I�|$��P I�I�T$1�L��H�=ڒ! ��` ���H��[]A\A]A^A_�I�L��H�=� ��� �h��� � SH�����H�x!! H��[H� H�@0�� USH��H��H�G H�?H��t/H�(!! H� H��� ��X H�{H��H��[H��]��f D H��[]Ð�>t ��f � � ���ff. � AUATI��USH��H�o8�G( �G, H���� L�-� ! �H�]�E, �E0 H��uN�n @ <�� ��f D tV�S �C�K$�P� S �C�S E,9U0�E,}�U0H�[H���� �C<u�I�E H�S H�sH�{(��x � H�{( t�H�{HH���� �K8H�s(L�K L�C�C0����������D����q��� � I�|$ I�E H�K H�SH�s(H�?��p �G��� D �M0�U �P�U$A;D$(�E,�Q�U0~A�D$(AT$,H�mH��A�T$,����A�L$(A�D$HA�t$0I�<$�AD$4� q1�A�L$(A��D�BI�E 1�E�D$,D�$��� A�D$| H��[]A\A]� @ I�|$`����1�1��`���1�1�L�- ! �AWAVI��AUATUSH��8H���L$,D��$� �\ �GxI��D�Å��� Ef4M�~8EfHA)�M���3 D��M�� A�N0�T$xA�v(A�D$$��+T$,D�NA�L$(AT$ �E+T$,��w&� H��� H��� ��� � DE�I�\$A�A�t$0H��uM� � �� � DE��S��tn��� ���� D�SH�[A)�E�H���` ��D�C �K�ڋ{ D� VE)Ã�F�<w�� H���D H��t�D��� A��SA���u�H�� ! �S$�ߋKA�1�M��H� �ڍ yE�PH�{(1�D�\$D�<$��� �{ A�t$0A�D$$�Y���H�K(H���L���H�SHH���� H�sPD�C0��I�F A�E��H�t$ �s<�t$�s4�t$�sD� $�4~�t$H�8L��覤���{ A�t$0A�D$$��� @ A�H�s(H�K@H�D$ D�\$��D�|$�S$E1�I�F ��A�PE1��T$�S�z�$H�8L��赤���{ A�t$0A�D$$��� M�d$)��M������H��8[]A\A]A^A_� � I�V`���� � D��� A�A����A�nXH�D ! �G4�O0�w(L�H�WPH� �l$F� A�nH��A��L$xA��A)�+L$,F� NL��l$A�n,�DE �$A�� � ��� � H� ! H���G| H�=����H� H��� ��fff. � H�H�8�G|��t�Ð�fffff. � AW��AVAUATUSH��H�� H�T$�t$dH�%( H��$� 1Ҩ�L$ �� ���� �D$H�T$L�%Vg � ��I����H��L�l�f�I��M9��� M�7L��舤��H��L��L��HO�H��H9��u�H��! H�{H� L��x ��� I�wH�{H��A��H��H�C u�� H��$� dH3 %( ���u H�ĸ []A\A]A^A_�f D H�s H���, H�L�%y! I�ًT$ H�{L�D$�L$H�CI�$�$H���! ��� ����u�I�$H��H�A���� H�{ ��0 H�ChH�{PH� H�D$0I�$�PH� H�{`H�D$8I�$�� H�D$xI�$� @ DŽ$� H�T$ H�{ �� H�spI��H��tH�S I�$H�:��P �C|L�kp�����H��������� @ H��! Lct$E1�H�H� � H�5�t � L�H�D$J�T�1�A��@ ���H�p! H�{1�H�5�� H�1���@ �m����6���f D AWAVAUI��ATA��USH�� H��$� H�|$H�t$L�L$H�D$(dH�%( H��$� 1��� �a H�\$0��L�=�! H�\$ ~/A�D$�E1�H�,� @ I�K�|5 ��� J�3I��I9�u�I��� �P(H��H�D$H�|$L�.���H��H� H�t$H�E I�H�}��� 1�D��H�EH�E H�E H���E( �E, H���E0 �E4 H�E8 H�E@ �EH H�EP �EX H�E` H�Eh H�Ep �Ex �E| Dž� �(�����A��uqH;\$ H�D$(H�(t I�H��P0H��$� dH3%( D��uZH�Ę []A\A]A^A_ÐL�=�! �<� I��P(H��H�D$0H�D$ ���f. � H��A� ����H;\$ u���4��� @ AUI��ATA��UH���8 SH��H�)! H� �P(H�(H�@ H��H�@ H�@ I���@ �@$ M���@, �@0 D���@( H��! H��! H�u H�}H� �$ ��� ��uGH�}8 t H�E@H�XH�]@H��H��[]A\A]�f D H�]@H�]8H��H��[]A\A]�f. � H�����1��� @ AVI��AUA��ATI��UH���H SH�� dH�%( H��$� 1�H� ! H� �P(L� L�%�! H���@H�@ I���@ �@ M���@$ �@ D���@ H�@( H���! H�@0 H�@8 H�@@ I�$H�u H�}�$ ��� ���� H�C8H��tzH� H�D$(H�C0H��tYH� H�T$�D$t H�} � H�D$ I�$�� H�C@H��H��$� dH3 %( uCH�Ġ []A\A]A^� � H�Eh�f. � I�$H�}P�P�v���H����1���Ϟ��ffffff. � AVI��AUI��ATA��UH���8 SH��H��! H� �P(L�(L�-�! H���@H�@ I���@ �@ M���@$ �@ D���@ H�@0 H�r�! H�@( I�E H�u H�}�$ ��� ��uEH�S0I��H��t%I�E H�u I��H�}H� ;����� H��H�C(tH��L��[]A\A]A^� @ H��E1�����ff. � AVI��AUI��ATA��UH���( SH��H��! H� �P(�@L�0H��H�@ �@ I���@ �@$ M���@ �@ D��H�I! H�}H��! H�u H� �$ ��� ��H��uH��H��[]A\A]A^� ���1���ffffff. � AVI��AUA��ATI��UH���X SH�� dH�%( H��$� 1�H��! H� �P(L� L�%�! H���@ H�@ I���@ �@ M���@$ �@ D���@ H�@( H�\|! �@0 �@4 �@<�����@8 H�@@ H�@H H�@P I�$H�u H�}�$ ��� ���� H�C@H��tnH�{HH� H��H�D$ I�$ti�� H�D$hI�$H�T$�D$t H�} �@ �� H�CPH��H��$� dH3 %( u@H�Ġ []A\A]A^� @ H�Eh�f. � H�}`�f. � H���8�1���o���ffffff. � AWA��AVAUATUH��SH��H�����@ L�iI��E�u L��蜚��A��a�� A��ct|A��i�� A��lu"H��� H�=�x HN�L��H9���� H��! E1�H� �x L��H�5�t H��L�1�A��@ A� H��D��[]A\A]A^A_� � H��� H�=�t HN�L��H9���� H��v�A��� H�! E1�H� �w H�H�5cU H��A�L�1�A��@ � � H��� H�=�K HN�L��H9��A����A)�E��E������A���# L�kE�E L��D�$�V���D�$I��A��l�� I�|$@ �\ A��b� A��i�� A��s�� A��t�! I��� H�=&Y IN�L��H9���� I�t$@H�KA�W�L���:���H�������I�T$@H�z �� H�JH�AH�BA�D$|���~���L���@��q��� H��� H�=�v HN�L��H9��� ���H�! 1�H�5�v H��A�H�1���@ �&���H�� � H�=�x HN�L��H9������H������A���� A��� A�G����D$�� A��E1�A� J�� H�$� @ I��L;4$�b N�|3L���ŗ��H��H�=VZ L��IO�H��H9��u�H�J! 1�H��u H�5�u H��A� L� 1�A��@ �N��� � H�! E1�H� $q H�H�5�R H��A� L�1�A��@ ���� I��� H�=�V IN�L��H9��u*I�t$@H�KA�W�L���U���H���+������� � H�� ! E1�L��t H� �u L��H�5L H��A� L�1�A��@ ��� @ H��� H�=�V HN�L��H9���I���H�SA�w�L���.���H��������@����t$H��H�S[]L�� A\A]A^A_�=� D H��H��H��[]A\A]A^A_L� t � � �N���f D I��� H�=�U IN�L��H9������I�t$@H�KA�W�L���q���H��������� H�Q ! H� L��� H�[H��� H�k}! H��E1�I��L��H��L��H��[]A\A]A^A_��f � I��� H�=gs IN�L��H9���n���I�t$@H�KA�W�L�����H���o���� ��� H�� ! H��H� H��� ��� E1�H��E1�L��H��|! H��H���g���H�� ! H� L��� �+���H�BH�B�(���1�1�L��L�L$D�$�x���H�������L�kL�L$D�$�t���f. � ATUH�-> ! SH�P H��tH�U H�=�s 1��R H�sH� H��t H�E H�{L��H �� H�{H��A�ԋCH��tH�{@H��tH�E �P0H�C@ H�� ! H��H�=�! 1�1�H� ��` H�E H��[]A\H�@0��fffff. � �+���ff. � ATI��US�/H��@��u�d @ H���+@��tT@���s�����u�@��mu)�C��t9���Y�����t-A�$ H�C�) � @��gug�k@��4t;@��u A�$ 1�[]A\�f � @��������t�A�$ H�C���C��t��������t�A�$ H�C�@��cu"�C��t���轔����t�A�$ H�C�@��s�y����{@���l���菔�����_���H�CA�$ []A\�f D AWAVAUI��ATI��USH��8H�T$dH�%( H�D$(1�� D I��A� $���/�����u�H�5+r � L����� L��1� � ��tI��u"��"�� ��/�X�� H����t'��t�1Ҁ�"�X��H���� @ ��{�_ I��A� $��u�I�l$E1��0 � ��"tK��蓓����u7��,t2��}�� ��] H����L�u��� E��t�E1���"A���� �E� ��f�A� �� � �X�H���)������*�=����X� H�H�@ ���U���H��� H����@� ���:�����*u�x/u�H��� H���A �Y����A� � H� �! H�L$ H�T$ L��L��H���� ��ud�T$ ��uLH�|$ 1�H��ukH�t$�H�L$(dH3 %( u\H��8[]A\A]A^A_�f. � A�\$I������H�D$ �H� *! f�H� 1�1�H�5@p L��@ 1��H��P0����� � AWAVAUI��ATUSH�� H�wL�dH�%( H��$� 1�H���� I�E1�L��H�臔��I�E(H���� E�G8E���^ H� �! 1�1�H�L$8I��H�|H��tH�Q! H� ��0 I�E(A�<tI�$H�|�R0I�E(��H��A9o8�H�L$8H��H��R0I�}H�( �� I�GH��$� H��$� L��HDŽ$� HDŽ$� �D$| H�D$P�G �D$`H�GL���x�����D$h莔��L�d$8A�G8I�$�<@���R(H��H�D$A�G8���F 1��� A�G8��H��9�}.H�C A�<��t�I�$��H���P(H�C�� A�G89�|҅��� H��$� H�D$L��$� L�|$@L�l$HH�L$(�L$hH�D$01����L$gH�T$@�HH��H�D$X�L$lH��H�B@Lcj<L,�L���E���L�|$8��I��R(L��H���-���I���R(M��H�D$ �{ A�} �D$ �� H�t$(L������H��I���� D�8��$� E��u�)f � I��E�} E��tA���y�����u�E�} I�� D E���' A�$ �; tD���1 �w �� �[ ���q �|$h���v �t$��� �D$ M��t A�} �=���H�D$@�@<���g H�D$@H�L$XH�@@H��H�L$0� ��L$���n H�|$ H�5�R ������� L�|$8H��I��P0I�H�|$ �P0H�D$@H�D$0�@8;D$l~ H�D$X�G���L�|$@L�l$H��A�W4�D$ H�H��H�D$0H�D$|��H�D$(�� L�l$ I�G@H�L$0E1�L�,A�G0���� Ic_<���5 A�G8��~gH�L$��H�@I��H�l��f D I��I9�tBI�vH��L���h�����u�H�D$(M�ND��D�D$H��$� H��$� H�|$ H�$腐��A�} t&A�W<�B���I�D � @ I9�t I��A�} u�A��E;g0�I����D$H�D$0�D$A;G4����L�l$ H�D$D�D$|L��H��$� H��$� L��I�E(���H��$� H��$� L��L��蘎��H��$� dH3%( �� H�Ĩ []A\A]A^A_�A�O8A�U ��~;H�D$:tLH�t$��H� IH��H�L�H��� � H��H��8P�t$H9�u�I��A��E;g0�a�������H�t$H�D$(L�ND��H��$� D�D$H��$� H�|$ H�$�)���A�U ��I��� A���/�����uE�<$I��I��E�} ��� D L��L���e���H��t"��� A�������t�I��I��E�|$�E�} E��u��p������ �|$g �������|$`�����H�|$ H��肈��H�D$@�D$ �@<�������Hc�H�D$@H�L$XH�@@H�4�H�D$0H�x����L$�������H� ! H� H��� H�=bi ��� H�L$HH��H�|$PH�q��H�L$0H�A�l����|$g ����|$`�V����t$�����H�|$ H���̇���D$ �����|$g ������|$`��������� @ ��������� @ ��� H�-i� H�|$ H�E L��� ��� H�L$HH��H�|$PH�qA��H�L$0H��H�A�����H�E � ����D$ �N���H� 0� H�L$8���H��� H� ��� I�}�����H�� H�D$8����H�� H�WH� H�:��h ���� AWAVA��AUI��ATU��SH��H��H dH�%( H��$8 1�H�G H�D$H�GH�D$H�G(H�H�D$H�c� H� L��� ��� ��H�{D�4$I��M��H��s! H��A�ԅ����\ L�c(M���� �1z! L�kH�D$X ���� H� � E1�E1�H� `g L��H�5Dg L��L�1�A��@ E1�M���# L�%� H�L$XH�T$HI�7L��I�$��� ��u �|$H�� E���� I�$L��� I� $L��A� 1�H�5�f 1���@ H�|$XH��tI�$�P0E���� L�cPM��t @ L���`���M�d$ M��u�H�{@ �� H� � D�C41ҋK01�H�;H� D�$A���� H��$8 dH34%( ���� H��H []A\A]A^A_� � ��H�� H�{1�H�5�e H�1���@ f�H�{ H��tH9|$t H��� H� �P0H�{H��tH9|$t H��� H� �P0H�D$� H�C H�D$H�CH�D$H�C(�K����H�C H�sH��� H��L�kH�D$X �� L�%:� H�T$`L��H�T$ I�$��� H��H�D$8�j H�5~M H���N���H��I���� 1�� H��������� L���C�����I��� 1�1�L��輊����I�$�� A�~�P(Icξ H��H��H�L$0L��H�D$(���A9��� L��蘄������ L�t$(H�L$0H�T$LL��A� L����I��I�$L���P0I�$H�|$ ��� A� �>���f. � H�L$XI�$H�t$`L��H�t$ H��H�1��8 ���C���H�T$ H�L$XL��I�$H��H�q��8 ��� ���H�L$XI�$H�T$TL��H�q��8 �������H�L$XI�$H�T$PL��H�q��8 ������E��t�D$dD$T��;D$L������{H tH�{@H��tI�$�P0�D$`D�sHE1�L�{@�C0�D$d�C4�D$P�C<�D$T�C8��� D L��H�=>v! �xv! H����L�x����f D I�$L���P0�G���I�$L��L��@ ��p E1�I��H� *c H�T$8H�5cc L��1�A��L���Ԃ��H�|$(H��tI�$�P0I�$H�|$ E1���� �W��� @ H�T$LH��L���(�I���;���H�Q� E1�E1�1�1�1�H�;H� �$ ��� �/���H���[���L�kH�D$X ��I�$L��@ L��p E1�I��H� cb H�T$8H�5pb L��1�A��H�D$( �+���I�$L��L��@ ��p E1�I��H� b H�T$8H�5qb L��1�A�����I�$L��L��@ ��p E1�I��H� �a H�T$8H�5 b L��1�A��H�D$( ���I�$L��L��@ ��p E1�I��H� �a H�T$8H�5�a L��1�A���������ff. � AWAVAUI��ATA��USH�� H��$� H�|$H�t$L�L$H�D$(dH�%( H��$� 1��� �A H�\$0��L�=� H�\$ ~/A�D$�E1�H�,� @ I�K�|5 ��� J�3I��I9�u�I��X �P(H��H�D$H�|$L�� H��H� H�t$H�E I�H�}��� 1�H�EH�E H�E H�E( H��H�E@ �EH D��H�EP H���;�����uGH;\$ tI��D$H��R0�D$H�L$(H�)H��$� dH34%( ujH�Ę []A\A]A^A_�f�H���x�H;\$ � t�I��D$H��R0�D$�f � L�=�� �<� I��P(H��H�D$0H�D$ ����U��� D AWI��AVA��AUATI��USH��8dH�%( H�D$(1����� H�YI���+H���~����c�� ��ru1H�� � H�=�_ HN�H��H9��@����)�@���� H�� � E1�H� �^ H��H�5�Y L��L�1�A��@ H�t$(dH34%( ���� H��8[]A\A]A^A_� H��� H�=eY HN�H��H9��uJH��v�A���2 H�[� E1�H� �\ I�H�5?: L��@�L�1�A��@ �x��� � H�� � H�=(_ HN�H��H9��� ���H������A��� A���� I�WA�v�� L����������� @ I�UPE1�H��t @ DH�R H��u�H� �D H�� � 1��ه��H��� � H��L��H� ��P ���f � H�a� E1�H� tW I�H�5E9 L�� L�1�A��@ �|��� @ H� � H� H��� I�_L��� E1�L��H�=i! I��H��L��Չ��;��� H��� H� H��� �H��� L��H� H��� ��� E1�E1�L��H��h! H��L��Ӊ�����}�� � USH��H��H�? H�G tIH�-Z� H�H�E ��� H��t/H�E H�;H��� ��X H�{H��H��[H��]��f � H��[]�f � AUATUSH��H��������~H��[]A\A]� D H��H�wH���� � H��軀��H�S(H���� H�C�H8���� L�-�� 1�E1� H�|*H��tH��� H� ��0 H�S(H�C�x<tI�E H�|*�P0H�CH�S(A��H��D;`8|�I�E H��P0H�CH�PPH9�u �W D H��H�B H9�u�H�C H�B I�E H��H�@0H��[]A\A]�� D H��� H��H�T$H� ��h H�T$����H�S H�PP� @ L�-�� �L�-�� �m��� ATI��USH��H��H�FPH��u�' � H�@ H��tH9Xu� H��[]A\� D H��� �8 H� �P(H��� L�`H�XH�@ H��I�D$PL��H�E( H�E I�l$P�T��H���L�H�} t H��H��[]A\�I�|$@ t+H�� E�D$41�A�L$01�I�<$H� D�$A���� �H��� E1�E1�1�1�1�I�<$H� �$ ��� �ffff. � ATI��UH��SH��H��� �l! dH�%( H�D$1���tEH�T$H��H�=�l! ��l! �T$��tXH�h1�H�L$dH3 %( uvH��[]A\�f � H�Q� � H�=]l! �3l! H� ��� � � H�!� E1�H� �Y H��H�5�Y L��L�1�A��@ � �z�����y�� � H��� SH��H��H�W1�H�=ef! H� ��` H��� H��[H� H�@0�� � H�H��t H�y� H� H��H�H��� �� ��f D UI��SH��H��H�-E� H�E D�$I��H�6��H��e! ��� ��t H��� []�H�M �D$ �S$�s H�;��� �D$ H��[]�fffff. � AWI��AVI��AUATU��SH�����q L�-�� I��I�E ��X I�^H���!x���;ctLM�M H��L��E1�H� �X H�5�R 1�A��@ I�E L��� H��� []A\A]A^A_� � H�� � H�=xX HN�H��H9��uR���I ��� I�N�U�A� L��L�������I�U L��� H����[]A\A]A^A_� � H��� H�=�Q HN�H��H9���"�����t)H����L��[]A\A]A^L��L��J � A_�B{��f�H��� M�FL��I�4$L��E1�H�1d! H� H��� H��[]A\A]A^A_�� � H�q� I�L��E1�H� ~P H�5R2 L�1�A��@ H��� []A\A]A^A_�f�H�� M�FE1�H� L��H��c! I�4$L����� �������H��� E1�E1�H� ��fffff. � �>u[ATUSH�? H��tVH�-�� H�wH� H�H�E L��H �� H�{H��A��H�E H��H�5����[]A\H��0 ��f���f D H�-y� ��ffffff. � AWAVI��AUATUH��SH��XdH�%( H�D$H1����T$<� L�%� H�QH��1�H��I�$��h I�Ÿ M���� L�=� �8 I��P(L�(H��I�E L��H�k�C �C$ H�C( H�5�U H�CI�$�C0 �� L�+A�� I�� H�b! �� I�}@H�w(H���L H��a! E�M|E�ExA�MtA�UpH�D$(H�D$ H H�D$ �D$ �D$ �$ I�} �z��I�MH�T$DH��I�E(H��� ��� L�hI�$H��H� ���� H�;IDž ADž� IDž( ��0 H�I�L�#���H��H��H�rXH�������� �T$<I�NE1�H�CH��H���� �����uCH�I�H��D$<H�rX1��P �D$<H�L$HdH3 %( �� H��X[]A\A]A^A_� I�$H�;��� � �� @ I�$��� I�E@H�p(���f � H�� E1�H� ; I�H�5 ; H��L�1�A��@ � �n��� @ A�uI�} ��|��H���G����s��f. � @ USH��H��H�-�� H�H�E ��� H�E H�{��� ��� �H��[]�f D UH��H��SH��H���r��� H��H�={S HN�H��I��H9ɸ �����8�t(I��� H�=RS IN�H�ްH9������8�uH��[]� � I�� � H�=$S IN�H�ްH9������8�t�I��� H�=S IN�H�ްH9������8�t�I��� H�=�R IN�H�ްH9������8��v���� I�� H�=�R H��H�ް IN�H9��@����@8��E���I�� H�=�R H��IN�H��H9��u �@ � ���H�&� E1�H� lQ H��H�5pR H��L�1�A��@ ����� SH�OH��E1�A� H��`�G H�W(dH�%( H�D$X1�H�GH�p(H�L$(H�L$PH�$H�L$ H�L$HH�L$H�L$<H�L$H�L$@H�L$H�81��y����u H�D$@H9C(t �C~ H�D$XdH3%( uH��`[Ð�|$< u�H�|$H u����*q��f. � H�1� ��� H��H�=h���H� H��� ��fff. � AWAVI��AUE1�ATUSH�� H�-�� �_\dH�%( H��$� 1�L�d$@H�E �<� H�\$ �P(H�D$H�E L��� H�E H�\$I�~0H���� H���� H��$ L�xA�G tI�H�|$Ic�A��H��H�E I�wL��A�W��� E�H� �P �d � H��1��wy��H�ڋ H����������!�%����t�H��L������ D�H�JHD� �H�E H��H)��� H�E H�|$�� H���O���H��� I�~H�5@P H�H�T$��� H�T$H��I�~H�5.P H���� A��� I���� I�~L�|$L��E1�A� � H�w(D�l$L�<$H�?��s���|$HI�FE1�A� H�ٍWH�p(�T$H�T$@H�$H�8H���s��H�E L��� H�E L���P0A��� ��A��� I�V�� t�t,H��$� dH3%( ucH�Ę []A\A]A^A_� � L���x�����f D H�D$I�FH� =O I�>H�5KO E1�H�PX1���v��A��� L�T$����Qn���H�a� ��� H��H�=H���H� H��� ��fff. � AWAVAUATUSH��(dH�%( H�D$1��>t-H�D$dH3%( �� H��([]A\A]A^A_�f. � H� �� L�0I��H��I��L��H���� H��H��tK � L�eH�I�|$�P0H�I�|$�P0H�L��P0H�H��p H�L�� H��H��u�H�L����x I�vH�=�_! �0`! H��t H�H���p A��� uH�L���P0���� � H�L��H�=������ A��� �����l��fffff. � UH��H�0SH��H��dH� %( H�L$1�H�T$�PxH�ŋD$��u H�EH�L$dH3 %( u4H��[]�f�H��� �( H� �P(H�H�@ H�@ H�E��`l��AWAVAUATI��U��SH��H��� dH�%( H��$� 1����{ I��H�yD�/�k��H�D$0H�� L��I�t$H��H� ��x H��I���� �� �� �=l^! ��� H��$� L��H�=r^! H�D$8H���^! ��$� ���5 L�xM��t~A��dI�T$�� A��i� A��p�� A��tu'H�D$0� H�= M H��H�� HN�H9���� H�]� E1�L��L H� LM H�5�L H��L�1�A��@ A� �0f D H�!� A� I�t$1�H��K H��L� 1�A��@ H��$� dH3 %( D���V H��� []A\A]A^A_�f. � H��� E1�H� �K I�$H�5�% H��A� L�1�A��@ � D H�D$0� H�=�K H��H�� HN�H9��A����A)�E��E����I�GH�D$x �pH�8�Hs��H��H�� I�H�5�K H� ��� H�T$xI��I�GL�$$E1�1�H�T$(H�T$pA� H��H�T$ H�T$hH�T$H�T$XH�T$H�T$`H�T$H�8L����q��L;d$`�) H�|$xH��t�i��H��� 1�H�H�5L3 H��1���@ ��� � H�D$HH�|� �� H�D$@H� �P(��� �I�~( I��H�L�pL��H�T$H� H�!� H�T$HH�56J H� ��� I�G(H�D$@I�0� H� ��� L������H��� H�T$HL��� L��H� L�zH�������0 �%����H��� � H�=][! H� ��� �*[! ��� D H�D$0� H�=�I H��H�� HN�H9��A����A)�E��E��� ����M�I�D$���L$0�� E1�D$0I��t*�J �A G���# A�GA��I��D9d$0�e I�6H������������H�� I�vH��H�T$8H� �� ��A���������$� ���u���A#G��u����f�H�D$0� H�=4I H��H�� HN�H9���=�����A���: I�l$H����f��� H��H�=� HN�H��H9��u A���> H�� � H�=�H HN�H��H9���2 A���� H��� H�=a( HN�H��H9��u A���� H�� E1�H� �H H��H�5� H��A� L�1�A��@ ���� � H��� D�m�I�H�5KH H� ��� E��H�������A���e���H�t� I�t$L��H��H� ��x H���A���I�H��(E1�A� �! H��H�w(�D$ H�$H�?��j��E1��@���f D H�� H� ��� I�H�T$H����f���~A�G����H�� � H�=�G HN�H��H9�������A������H��� I�t$ I�H� ��� L��H�������` �A��� �d���L��E0��7������f��|$X ����H�|$h�����H�D$xL�D$8H��$� H��$� L�L$\H��1�D�`I�GH�8�d����t>�T$\��t6H��$� D��H;�T H����H���H��H;H��9 H9�u�1�H�|$xH��t�De��H��$� H��t�2e�����0���H��� 1�H�H�5g$ H��1���@ ���I�GI�OI�W(A�G E1�A� H�p(H� $H���D$ H�8�i��I�G�� �x���A��� �j���L���(��]���H�T� I�0H�t$8H�D$@H� ��� H���6��� @ L�t$@H�@H��I�H�p��8 I�H�|$8�� H��u�����H��� Hcl$0E1�H� 9C H�5:5 H��A� L� H�T�1�A��@ ����L�����L$0��t4I�t$H���.����g���A�GH��� � H��������E�GH��$� H� �D �( � 1�H��A��A���l��L�%J� H��H��I�$��8 E�GH� WD �( H�� 1�A��A���[l��I�$H��H���8 E�GH� ,D �( H�� 1�A��A���$l��I�$H��H���8 E�GH� �C �( H�� 1�A��A����k��I�$H��H���8 E�GH� �C �( H�� 1�A��A���k��I�$H��H���8 E�GH� �C H��( � 1�A��A���k��I�$H��H���8 �$���H��� M�l$ I�I�l$(H� L��� L��H����H�xH��H��t H��� H� �P0H�{ � H����f��H��H�CH��1��K H��H��A��� H�K�X���L��E1��+�����qa��H�b� I�t$ I�H� ��� L��H���m�H A��� � ������H�'� I�t$ I�H� ��� I�0H��A�WpH��H��t6H� � L�`H�I�|$�P0H�I�|$�P0H�L��P0H�H��p A��� ������;���� ����L����e��H�C���f D AUATUSH��H���>!t1�H��[]A\A]ÐL�%q� H�v H�{I�$��� H��H��t�L�k(I�$H�5�@ H��� I9�u�H�� H��H��H� ��� � � D AWA��AVA��AUA��ATA��UL��SL��H�� dH�%( H��$� 1�A�� u H�[@�� t�H��� H�T$ H�t$H��H� ��h �D$�Sx�s|�L$ D9� �D9��� �uH�} �h��I��H�} H�L$ L�ֺ� L�T$H�D$0� DŽ$� �D$ ��d��L�T$D�<$E��H�} E��D��H��H��L���h��H�} H���rf��H��$� dH3%( u@H�ĸ []A\A]A^A_� D D9��W����D9��L���L�S(A)�A)�A)�A)��F�����^��f. � AWAVAUATUSH��(A��H�|$�L$� E1��|$`A� �k I��I��D��D��� D I��A��D9�~-E��t�D$H�|$A��L��L��A��B� 8I���]��D9�Ӊ؉�A� �ŋD$�l$ �D(�D��D�|$`�D$� � ��A��A9�~*E��t�L$H�|$D�D L��L���A���\��A9�D$`�l$ A� �D��D$�D$�D(��D$ ��D��E��A��� A����E9�~,��t�L$ D�D$L��H�|$L��D)�A���E\��E9�ԃ|$`A��tF�D$`L�|$�l�� � ��A��9�t%E��t�L$A��L��L��L����A����[��9�u�H��([]A\A]A^A_ÐUH��H��D��D��SD�T$(D;T$8D�D$�T$ D�\$0�\$@|A9�|�@ []� D fD� f�P���@ �h A� �HfD�PI��fD�X�D$ []��b�� � �F��u � � H��H�ЋN�V I���$ A� H���b��H���f D H��(D�VdH� %( H�L$1�E��tEA� N H��1�1�A� N fD�D$L�D$f�T$f�t$fD�L$�$ A� 1�H��� b��H�D$dH3%( uH��(���[�� @ H����c�� � SD�T$ L��D�\$(�\$0L��H�T$0�T$8D�D$D�L$�\$ D�\$�T$(D�T$H��[� Y��ffff. � D���D$E��D�L$�D$��Z�� � AUE��ATUH��S�w��L�L$(��D�T$0D���D$8��thD�E9�}D��D)��D��D)�E����wE�, E�$0E9�~E)�B� D�GD9�}��D)�A�D��)�D����wF�$A�<0A9�~A)�F� H�5�� H��E��H�6�D$0D�T$(H��� ��[]A\A]��f D AVH��L��E��S�L$ D�T$(D�\$0�\$8L�t$@D�L$�L$H��D�\$(D�T$ H��L�t$8�\$0[A^�CX�� D���D$E��D�L$�D$�Xb�� � H�1� SH�� H� �P(H� H�@ H�C0[� D AWI��I��AVI��AUATU� SH��H��8H�F�P L���1� @�ō,� H�p�C4L�l$E1�E1�� �D$ L�\$(�D$�C0L�T$ �$��a��L�-�� I�ċ{4A�|$,I�E �P(L�\$(I�D$E1�L�T$ E1�� � I�CL��H�p�C4�l$�D$ �D$�C0�$�a��H�ŋ{4I�E �},�P(H�EM�'I�.H��8[]A\A]A^A_�fff. � UH��SH��H��H��t H��� H�zH� �P0H�E H��U`H��t+H��� H�{H� �P0H�C H�C`H��H��[]�� H��[]�f � AUATE��U��SH��H��M��L�l$0t4H��I� ��D��H��PpH�CpH��H��[��D�� ]A\A]��f D ��H��1�D��SpA�E H��[]A\A]�AWE��AVAUATUH��SH��H��� L�%�� L�v0dH�%( H��$� 1�H�FH�T$ M� $�W0H�L$(�O4L�(D�@ H�p(L��A��X H�CI�$1�1�H�{�� I�E4H�L$ H�sE1�E1�L��L��L�T$ �D$�E0�D$ �$ �D$��]��L�T$ I�$L��L���P E��udI� � 1�H��$� I�$H�T$0DŽ$� H�{�� I�FH��$� dH3%( �� H��� []A\A]A^A_� H�sI�$A� �M4�U0L��H�v(��X 1�1�H��L��I��5\��I�NjE4H�L$(E1�E1�L��L��D$�E0�D$ �$ �D$I�6��\��L��L���]��I�H��H�H�� ��H�� �����/V��ffffff. � ATA��UH��SH��H�_0H�3H��uNH�sH��tH� �� H��H� ��P H�C E��tH��� H��H� �P0H�E0 H��[]A\� @ H� �� H��H�T$H� ��h H� H�T$�f�AWAVE��AUATI��UH��SH��HH�_0D��$� H�T$0D�L$8D��$� H�sD��$� D�\$,H���� A��D��D��D)�D)�H��D�D$<�\��D�D$<D�L$8H��D�\$,L�T$0H�KI�t$D�D$D�|$E��D� $D�\$E��L����X��H�sH��HH��[]A\A]A^A_1�1��&\��f D H��H[]A\A]A^A_Ð1��f. � AUATUH��SH��dH�%( H�D$1�H�GH�$ H��t�8Ϻ��tJH��6 H�E H�E H�h� H� 1�H�|$dH3<%( �v H��[]A\A]� � L�%1� 1�H��A��I��H��H�5�6 I�$�PH���� E��to����� D��H��E1�f. � A��0H��A�� A��E��E�D�E��u�A��uj8�� 1��f D H��: �� �L��u�f�H�$I�$H�RH��t_H�2H� �� H�1H�rH� �� H�1H�JH�� H� ����I�$E1�� H��H�5�5 H��PH��u�1����� � H�I� H� H��� H� H��� H� ����I�$E1�� H��H�5N5 H��P1��v����R�� � AWAVA��H��AUI��H�5m5 ATUSH��H��HH�-�� dH�%( H�D$81��L$,H�D$0 1�H�E L�D$0�PH��I��L�|$0�� M���� A�WD9�uJA�W;D$,f��� H�K� L�8L��H�T$8dH3%( �� H��H[]A\A]A^A_�f. � L�5�4 H�E H���� L�U H��4 H�D$ L�t$L�$$L� �4 H�D$M��1�H� �4 H�s4 H�5�4 H��A��@ 1��k��� � L�524 �1��S���L�5�3 �{����_Q��f. � D AV1�A��H��AUI��H�5T4 ATL�%I� UH��SH� � I�$I��PH���� E��tmA�U ���� D��L��E1�f D H��A��01�A�� D� @��A�E��u�A��u|8�� 1�f��f D H��: �� A�L��u�H�H���� H�RH� I� H�2H�1H�rH� X� H�1H�rH� r� H�1H�JH�|� H� []A\A]A^�I�$E1�� L��H�5T3 H��PH��u�1� D []A\A]A^� � I�$E1�� L��H�5 3 H��P1���I�$H�5 3 H��P 1��H��H��� tixClassTab " redefined Class " :: invalid instance name " className ClassName context missing argument for " Constructor option ... -flag subwidget w:%s unknown subwidget " name ?args ...? Unknown Tix internal error " not defined Superclass " config spec list " Wrong number of elements in tixSpecTab add widgetDefault * superClass options forceCall defaults methods staticOptions isWidget :AutoLoad {} {} proc tixClass className {...} invalid class name " " missing value for " -alias -configspec -classname -default -forcecall -method -readonly -static -superclass -virtual unknown parsePtr->option " :AutoLoad ": may not contain substring "::" bad subwidget default format " (idle event handler executed by tixWidgetDoWhenIdle) (idle event handler executed by tixDoWhenIdle) (event handler executed by tixDoWhenMapped) interpreter does not have a main window " must be a window pathname or ID tixTmpLine x1 y1 x2 y2 ?window? #%4x%4x%4x tixWidgetDoWhenIdle command window ?arg arg ...? command ?arg arg ...? pathname command colorName -nounknown w validOptions argList ". "; must be one of " unknown option " window parent optionName ACTIVE_BG #ececec CTL_FONT Helvetica -12 bold DISABLED #a3a3a3 HIGHLIGHT Black INDICATOR #b03060 MENU_BG #d9d9d9 MENU_FG NORMAL_BG NORMAL_FG SELECT_BG #c3c3c3 SELECT_FG TEXT_FG TROUGH TIX_EDITOR_BG TIX_BORDER_WIDTH 2 TIX_HIGHLIGHT_THICKNESS ffffff�?333333�?wrong # of arguments, should be " ": must be -lostslave -request pathname reqwidth reqheight pathname x y width height pathname tixGeometry (geometry request command executed by tixManageGeometry) 8.4 8.4.3 Tix normal cell row disabled tix_version tix_patchLevel tix_release -binding tix_priv -debug -fontset -scheme -schemepriority TixBinding TK tixDebug TixDebug tixFontSet TixFontSet WmDefault tixScheme TixScheme tixSchemePriority TixSchemePriority 20 tixCallMethod tixChainMethod tixDisplayStyle tixDoWhenIdle tixDoWhenMapped tixFlushX tixForm tixGeometryRequest tixGet3DBorder tixGetDefault tixGetMethod tixGrid tixHandleOptions tixHList tixInputOnly tixManageGeometry tixMapWindow tixMoveResizeWindow tixMwm tixNoteBookFrame tixTList tixTmpLine tixUnmapWindow tixWidgetClass interppreter. Modify tixInit.c at your own risks Tix has not been tested for use in a safe invalid object reference " "; invalid class " auto_load tixMethodTab w class method w method ... " for context " cannot call method " errorInfo cannot chain method " no superclass exists for context " { config%s config cannot assigned to readonly variable " cannot assigned to static variable " %f %f (scrolling command executed by tixTList) �? raised flat sunken groove ridge solid bad relief type " wrong # args: should be " Must be %s exit .tixsw: tcl_rcFileName ,��� ���̲��,���ܲ��,���,���,�����,���,���,���,���,���,���,�������,���,���,���,���,���,���,���,���,���,���,���,���,���,���,��� ���": must be flat, groove, raised, ridge, solid or sunken This command does not take any options. cannot find the "image" command pathname ?arg? ... invalid widget name " " already exists window name " errorCode ::%s ::%s:root w:root rootCmd CreateRootWidget InitWidgetRec ConstructWidget SetBindings unknown display type " body imagetext -anchor Anchor -bg -fg -font Font -gap Gap -justify Justyfy -padx padX Pad -pady padY -wraplength wrapLength WrapLength -background White -foreground -activebackground ActiveBackground -activeforeground activeForeground ActiveForeground -selectbackground selectBackground SelectBackground -selectforeground selectForeground SelectForeground -disabledbackground disabledBackground DisabledBackground -disabledforeground disabledForeground DisabledForeground -bitmap Bitmap -image -itemtype itemType ItemType -showimage showImage ShowImage -showtext showText ShowText -style imageTextStyle ImageTextStyle -text -underline Underline -1 @ � imageStyle ImageStyle @ � DItem is already associated with style DItem is not associated with style Cannot delete default item style ?option? ?value? ?option value ... ? tixStyleTab style but got Needed Style type mismatch style " not found Display style " itemtype ?option value ... -refwindow -stylename tixStyle%d delete ?option? arg ?arg ...? textStyle @ � can't use as a window item of can't manage toplevel window tixWindowItem windowStyle WindowStyle -widget -window in a window item of the master widget: must be a child @ � tixForm grid master ?x_grids y_grids? Wrong # of arguments, should be Grid sizes must be positive integers " is not a tixForm master window (TixForm) Error:Trying to use more than one geometry manager for the same master window. Giving up after 50 iterations. " is not managed by the tixForm manager tixForm configure slave ?-flag value ...? "in a form: it's a top-level window Window " circular dependency. circular dependency -top -bottom -left -right Unknown option " can't put " check master slave ?-flag value ...? forget slave ?slave ...? grid master ?x_grids y_grids? slave ?-flag? slaves slave side strength �? ? ����MbP?none {%%%d %d} } {& Malformed attachment value " ": it's a top-level window can't attach to " -padleft -padtop -leftspring -topspring -fill both bad fill style " Wrong option " -padright -padbottom -rightspring -bottomspring "-in " must be the first option given to tixForm ": must be none, x, y, or both %s %s %d %d %d %d edit set x y tixGrid:EditCell edit apply tixGrid:EditApply ", must be apply or set {%f %f} {%f %f} " does not exist , x y ?xbdWidth ybdWidth? x %d %d y %d %d bad state value " pathName ?options?" wrong # args: should be " TixGrid bbox ": must be bbox or exists dragsite clear must be clear, get or set ", wrong option " option ?x y? bdtype option from ?to? dropsite entrycget x y option edit option ?args ...? entryconfigure format geometryinfo ?width height? move option from to by nearest option x1 y1 ?x2 y2? x y ?option value ...? sort unset xview args yview s-margin x-margin y-margin main -bd borderWidth -borderwidth -cursor Cursor -editdonecmd editDoneCmd EditDoneCmd -editnotifycmd editNotifyCmd EditNotifyCmd -floatingcols floatingCols FloatingCols -floatingrows floatingRows FloatingRows -formatcmd formatCmd FormatCmd -height Height 10 -highlightbackground highlightBackground HighlightBackground -highlightcolor highlightColor HighlightColor -highlightthickness highlightThickness HighlightThickness -leftmargin leftMargin LeftMargin -relief -selectborderwidth selectBorderWidth -selectmode selectMode SelectMode single -selectunit selectUnit SelectUnit -sizecmd sizeCmd SizeCmd -state -takefocus takeFocus TakeFocus -topmargin topMargin TopMargin -width -xscrollcommand xScrollCommand -yscrollcommand yScrollCommand (format command executed by tixGrid) wrong # of arguments, must be: (scrolling command executed by tixGrid) (size command executed by tixGrid) ": must be normal or disabled tixGrid: mappedWindows not NULL x y ?option? ?value? ?option value ... ? dimension start end ?args ...? Ha��ha��@b���a��@b��@b��@b��@b���a��@b��@b��@b��@b�� a�� $@333333�?Grid hash entry leaked: %d : %d Inconsistent grid dataset: (%d,%d) : %x %x x1 y1 x2 y2 ... ?option? ?arg ...? -bordercolor borderColor BorderColor -filled Filled -xoff Xoff -xon Xon -yoff Yoff -yon Yon by the -formatcmd handler of the tixGrid widget the "format" command can only be called x1 y1 x2 y2 ?option value ...? %s %s ?option value ...? index ?option value ...? option index ?arg ...? "; must be an integer or "default" �������?selection list is empty adjust includes toggle (converting list element from string to integer) (converting list element from string to real) (user-defined comparison command) comparison command returned non-numeric result can't invoke the tixGrid sort command recursively ": must be ascii, integer or real ": must be increasing or decreasing ": must be -command, -key, -order or -type ", should be row or column wrong dimension " -type ascii integer real wrong type " -order increasing decreasing wrong order " -key -command bad screen distance " -size auto %fchar -pad0 -pad1 value missing for option " -size -pad0 -pad1 "; must be -pad0, -pad1 or -size %g %g wrong # args: should be " TixHList TixHListHeader Entry " Item " set entryPath must be clear or set children hidden item entry offsprings siblings -after -before -at and -at options can be used parent element " cannot add entry after " cannot add entry before " %s%c%s addchild parentEntryPath option ?entryPath? ?option? ?args ...? entryPath option hide option entryPath see option arg ?arg ...? show -data -browsecmd browseCmd BrowseCmd -columns Columns -dragcmd dragCmd DragCmd -drawbranch drawBranch DrawBranch true -dropcmd dropCmd DropCmd 5 -header -indent Indent -indicator Indicator -indicatorcmd indicatorCmd IndicatorCmd browse -separator Separator -wideselection wideSelection WideSelection (scrolling command executed by tixHList) tixHList: mappedWindows not NULL (size command executed by tixHList) Cannot change the number of columns ": must be anchor, clear, get, includes or set (size command executed by tixHList) exists, hidden, item, next, parent, prev or selection ": must be anchor, bbox, children, data, dragsite, dropsite, wrong # of arguments, should be pathName delete " must be all, entry, offsprings or siblings No more than one of the -after, -before entryPath ?option? ?value? ?option value ... ? ������`�����`��`��`��`�����`��`��`��`�����Column " -char column ?-char? ?size? entryPath column option create entryPath column " does not have an item at column Cannot delete item at column 0 entryPath column ?option? ?value ...? entryPath column ?option value ...? " does not have an indicator entryPath ?option value ...? entryPath ?option? ?value ...? " does not have a header column ?option? ?value ...? column ?option value ...? headerBorderWidth -headerbackground headerBackground headerRelief �.��p.��H/���.��H/��H/��H/��H/���.��H/��H/��H/��H/���.��Unknown tab " gray50 option ?arg arg ...?" name" unknown tab " add name ?options? wrong # args: should be page identify identify x y" pages active focusnext focusprev unknown option wrong number of arguments or pagecget pageconfigure page ?option value ...? bad option " TixNoteBookFrame center -label -backpagecolor backPageColor BackPageColor -focuscolor focusColor FocusColor -inactivebackground inactiveBackground -slave Slave -tabpadx tabPadX 6 -tabpady tabPadY geometryinfo, identify, move, pagecget or ": must be activate, add, configure, delete, TList list entry is invalid vertical horizontal bad orientation " set index end down up list entry " TixTList option ?index? insert where ?option value ... -orient Orient ": must be vertical or horizontal (size command executed by tixTList) expected non-negative integer but got " ": must be anchor, clear, includes or set ": must be anchor or selection index ?option? ?value? ?option value ... ? �I���I��LJ���I��LJ��LJ��LJ��LJ���I��LJ��LJ��LJ��LJ���I��Image " ") type ?option value? ... space space, text or widget cget option" be changed. The -window option cannot itemconfigure unimplemented lineconfigure ": must be cget or configure -showbackground compound " can only be assigned to window " (while configuring image " no value given for -window option. ", must be bitmap, image, line, tried to delete pixmap image when instances still exist must specify one of -data, -file or -id ": must be cget, configure or refcount /* XPM File format error black unknown pixmap ID " ": couldn't read file " couldn't fseek file " couldn't ftell file " error in reading file " error closing file " refcount " is already defined pixmap " pixmap -file -id ": must be cget or configure TixInputOnly -all -border -resizeh -title -menu -minimize -maximize unknown decoration " f.send_msg %d _MOTIF_WM_MENU _MOTIF_WM_MESSAGES _MOTIF_WM_MESSAGES {;} wm protocol option pathname ?arg ...?" is not a toplevel window. _MOTIF_WM_HINTS decorations -border %d -resizeh %d -title %d -menu %d -minimize %d -maximize %d ismwmrunning _MOTIF_WM_INFO protocol deactivate WM_TRANSIENT_FOR or transientfor unknown or ambiguous option " " should be add, activate, deactivate or delete ": must be decorations, ismwmrunning, protocol This interpreter does not support stubs-enabled extensions. Tcl missing stub table pointer epoch number mismatch requires a later revision tcl::tommath , actual version (requested version error loading ): Tk This implementation of Tk does not support stubs ;, ���H '��p H'��� �'��� X*�� �+��` �,��� (0�� h4��h �4��� 8G��� M��0 �M��h �N��� �O��� P�� �P�� �R��p XT��� �U��@ 8Y��� �Z��� \��( �\��� ]��� �]��� ^�� �^��H _��p �_��� X`��� �`�� hb��p hc��� �d��� e�� xe��( �e��H �i��� �i��� j��� Xj��� hj��� �j�� �j�� �k��0 (l��h 8m��� �m�� xn��H (o��� �o��� Hp�� �p��P �q��� �r��� hs�� (u��h �v��� Hx��P z��� {�� �{��P x|��x H}��� �}��� H��` ���� 8���� ȁ��! ��h! ���! 8����! ����" (���H" ���" �����" ����" (����" H����" h���# ���� # ����8# ȉ��P# ��h# ����# ����# �����# 8����# ،��($ x����$ H����$ 8��� % X���0% h���H% X����% (����% X��� & ���h& H����& �����& x����& ����' ����h' ؟���' �����' �����' Ƞ���' ����( ���(( ���@( (���X( 8���p( H����( ȡ���( H���() ئ��x) H����) �����) (���* h���(* H���@* ȫ��`* �����* X����* h����* ����+ ����(+ ��x+ x����+ ���+ ����@, ����h, (����, X����, x���- ����(- ���P- ����p- �����- غ���- ����- (����- h��� . ����8. 8����. h����. ����/ ����0/ ���/ ����/ ���/ x�� 0 ���0 ���H0 X���0 ����0 x���0 ���01 8��p1 X���1 x���1 ����1 x��2 8��h2 ����2 ����2 ���2 ���83 H��x3 ����3 (�� 4 8��4 x��04 ���P4 ����4 8���4 ���5 (��85 (���5 ����5 ����5 ���5 ���@6 (��h6 ����6 ����6 ����6 (���6 X��7 ��H7 (��`7 h���7 ����7 8�8 h�(8 h�x8 ��8 ���8 ��(9 ��h9 H��9 ���9 ��9 ��X: ��p: (��: ���: ���: ��; ��@; h�x; 8�; ���; ��(< ����x< �����< � ��0= � ��H= (��`= x���= ����= x��> H��H> x��`> ���x> (���> (���> � �� ? ���? � ���? � ��(@ ���h@ ����@ ����@ ���@A 8 ���A x ���A � ���A �� B � ��@B 8!���B �"���B H%��(C )��xC �*���C �+���C H,�� D .��pD �.���D �/���D �6��@E �8���E x<���E �<���E �=�� F �>��hF A���F 8A���F 8E�� G �I���G J���G hJ���G �K��@H �M���H hP���H h^��(I �_��xI c���I �f��J �i��hJ �i���J hj���J �k���J Xl��(K �l��hK Hm���K Xn���K �n��L �o��`L �p���L �r��M �s���M Hu���M xv��N xw��hN �w���N �w���N 8x���N xx���N �x��O Xz��`O |���O �|���O X}��P x���hP H����P 8���Q ��`Q �����Q (����Q ���R ؐ��`R ���xR ����R ȕ���R �����R ��8S 8���`S ؙ���S �����S ����T ء��XT ����T 8����T x����T x����T ب�� U 8���`U X����U ��� V h���V ����0V ����HV (���xV �����V ����V ���V 8��� W ش��HW �����W ���W H���X ؾ��HX x���xX ���X ����X 8��Y x��XY (���Y ����Y ����Y 8���Y ���8Z ����Z x���Z ��0[ ���[ X���[ h�� \ ���p\ ����\ ���\ ���@] ��] ���] X� ^ ��p^ h��^ ���^ �� _ 8�(_ ��X_ ��_ h�8` �����` �����` ����Ha ���pa H����a �����a (��0b h���b ����b h��c (��@c ���hc ����c ����c � ���c ��Pd � ���d x ���d ���d ���0e (��He ���e ����e ���8f ��xf x���f ����f ��� g H��hg 8���g x�� h ���8h (��Ph X��hh ( ���h ( ���h � ���h �#��0i �#��Hi �$���i H%���i h%���i �%�� j 8'��pj 8*���j �5��k 8���k H8���k x8���k �8�� l H:��Hl x;���l �<���l �=��m 8>��(m h>��@m �>��`m �>��xm (C���m HD��@n �D��xn �E���n �J���n L��(o �L��po �R���o �T��p (V��Xp �X���p H[���p �\��(q x^��hq �a���q xb���q Hc��r d��Hr �f���r h���r �h�� s �i��Hs j��`s m���s n��8t (n��Pt hn��pt �o���t 8q��u Xq��(u �q��`u �q��xu �s���u �v��v �v�� v w��8v xy���v x{���v h|��(w �}��pw �~���w ��� x H���Hx x����x (���y 8���(y h���`y ȋ���y �� z ����Pz X����z (����z ����({ ��x{ �����{ آ���{ ���| H���0| ����h| إ��} X���P} ����} H����} Ȫ���} ���� ~ ����8~ X����~ �����~ ȯ���~ H��� ���p ����� �� � ����P� ����� X����� ����� ��Ѐ 8���� X���� ��@� h��h� ����� ����� ���� 8�� � ���p� ����� ���� ���`� ��x� ����� X��� zR x � $ 8 ��� FJ w� ?;*3$" $ D ���3 A�A�G fAA , l ���\ B�J�K �w ABG L � ���� B�B�B �B(�A0�A8�D�� 8A0A(B BBBA D � 8��Q B�G�L �A(�K0�G@� 0A(A BBBC L 4 P�� B�B�B �B(�G0�D8�F`� 8A0A(B BBBA d � ��\ B�B�B �E(�A0�D8�D`b 8D0A(B BBBE I 8D0A(B QBBK L � ��= B�B�E �E(�A0�C8�J�� 8A0A(B BBBE $ < �!��� D\ A g A L d `"��; B�B�E �B(�A0�A8�J�� 8A0A(B BBBH L � P4��� B�D�E �B(�K0�D8�G�� 8A0A(B BBBF 4 �9��� A�A�G � AAD D AAJ < < h:��� B�B�A �A(�DPm (A ABBC < | �:��� R�T�A �A(�D0�(A� A�B�B� � �;��r D m � <��� Q0� A L � �<��� B�B�B �E(�D0�A8�GP\ 8A0A(B BBBC L D P>��� B�B�B �B(�A0�D8�I`D 8A0A(B BBBD | � �?��� B�B�B �B(�A0�D8�IPI 8G0A(B BBBQ ) 8C0A(B BBBK D8F0A(B BBB L �@��2 B�D�B �E(�A0�A8�G�� 8A0A(B BBBF L d �C��t B�B�B �B(�A0�D8�IPJ 8A0A(B BBBF D � �D��L B�B�B �D(�D0�FPL 0A(A BBBH \ � �E��� B�J�A �A(�D@_ (F ABBD D (K ABBL p(A ABB \ XF��' A�e D | hF��� B�D�L �E(�D0�F8�DPy8F0A(B BBB � �F��5 Dp < � �F��� B�X�E �K(�A0�� (A BBGA $ �G��. A�A�G aAA 4 D �G��{ Q�A�G J A�A�K GA�A�< | �G��� B�A�A �J ABG \ ABY 4 � hH��u A�A�G J AAK QAA L � �H��� B�B�B �B(�A0�F8�GPD 8A0A(B BBBD < D �I��� B�B�A �D(�IPD (A ABBD < � �J��8 B�B�A �D(�I`D (A ABBD � �K��] i�s� � �K��a lt � HL��] i�s� < �L��� B�K�A �A(�G`� (A ABBE \ P��1 Dl t @P�� � HP��L � �P�� � xP��= � �P��/ � �P��� 4 PQ��� A�D�G ~ AAD W AAG L < �Q�� B�E�E �E(�A0�D8�Gp� 8A0A(B BBBF L � xR��� B�E�D �D(�G0B (F ABBE D (C ABBD < � �R��� B�E�D �D(�GPW (A ABBE < (S��� B�E�A �A(�DP� (A ABBA < \ �S��v B�Q�A �D(�D0] (D ABBA L � �S��� B�Q�D �A(�G0e (A ABBF L (C ABBD 4 � (T��h B�E�A �D(�D0N(D ABB< $ `T��� B�B�A �J(�D�h (A ABBG D d �T��( B�B�B �G(�D0�JP� 0A(A BBBH < � �U��� B�I�A �Z ABO Q ADB L � HV��� B�B�E �B(�D0�A8�G�* 8A0A(B BBBE d < �W��� B�J�E �E(�N0�D8�D` 8A0A(B BBBE D 8F0A(B BBBA | � �X��� B�B�B �B(�D0�D8�GPR 8H0A(M BBBK D 8G0A(Q BBBM ~ 8F0A(B BBBC L $ �Y��� B�B�B �B(�D0�D8�G`� 8A0A(B BBBG \ t `[��� B�E�E �B(�D0�D8�GPq 8D0J(B BBBL s8F0A(B BBBL � \��� B�E�E �B(�A0�A8�G@Q 8D0A(B BBBK $ $ @\��� A�DP\ AF D L �\��� B�F�B �I(�D0�C8�F`�8C0A(B BBB4 � �]��] B�E�A �D(�D0C(D ABBd � �]��� B�B�E �E(�A0�A8�GPc 8A0A(B BBBD z 8A0A(B BBBD 4 4 �^��z B�G�A �G ADJ QAG , l (_��a B�G�D �PAB L � h_��� B�H�E �E(�A0�D8�G�� 8A0A(B BBBK L � �`�� B�B�E �E(�D0�D8�Gp� 8A0A(B BBBF l < xb��� J�B�B �D(�D0�D@q0F�(A� B�B�B�P@�����L0C�(A� B�B�B� � c��M � @c��q < � �c��a B�B�A �D(�J�� (A ABBF D �d��� B�E�B �D(�D0�GP� 0A(A BBBF d Pf�� | Hf�� � Pf�� � Hf�� � Pf�� � Xf�� � `f�� hf�� $ pf�� < xf�� T �f�� 4 l xf��� B�D�A �D@{ AABA � �f��� < � Hg��� B�J�E � AGG K ABJ d � �h��� B�H�B �E(�F0�A8�D�G 8F0A(B BBBA n 8D0A(B BBBB $ d �k��� B�B�A �C(�G0D � �l��� B�B�E �D(�D0�G�f 0A(A BBBJ , � 0m�� A�A�J�� AAD n�� L n��� B�E�B �E(�D0�A8�G�� 8D0A(B BBBA L l �n��� B�L�J �G(�A0�I8�G`� 8A0A(B BBBA 4 � 8o��' B�A�D �G� AABA D � 0p��� B�E�G �D(�D0�D@Y 0A(A BBBE < �p��" T �p��8 A�D pA L t �p��� B�B�H �B(�G0�J8�D`� 8A0A(B BBBA $ � �q��3 A�C�D eDA L � �q�� B�B�H �E(�D0�A8�J�� 8A0A(B BBBG < Hx�� T Px�� 4 l Xx��� B�D�D �u ABF uAB � �x��7 G�\ E N � �x��$ A�\ C C � �x�� � �x�� �x�� , �x�� D �x�� L \ �x��s B�B�D �A(�D0P (A ABBE D(A ABB L � �x��� B�E�B �E(�A0�A8�D�B 8A0A(B BBBA L � {��� B�B�E �E(�A0�A8�J�� 8A0A(B BBBH L X}��l DPb A l �}��l DPb A L � �}��i B�E�E �E(�A0�G8�G�� 8A0A(B BBBF � ��1 D � C � 8���� ���| D Q K L 4 `���� B�E�B �E(�G0�A8�G�� 8A0A(B BBBA $ � ��� A�D�L �AA � x��� � p���D D � ����; H�j L � ȃ��� B�B�B �B(�A0�D8�G�� 8A0A(B BBBA L L h���� B�B�B �E(�A0�D8�D@]8I0A(B BBB $ � ����j A�A�G ]AAL � �� B�B�B �B(�A0�D8�G�| 8A0A(B BBBF $ @���j A�� F A G < ����* A�` G A \ ����# A�` \ | ���� B�O�A �A(�J@� (C ABBI L (C ABBD D (F CBBG � h���" A�Y F A $ � x���h A�D�L TAA $ ����y A�i F D ��� \ ���* A�` G A | (���" A�Y F A � 8��� � @���; H�j 4 � `���� B�A�A �G0i AABH L ����> B�B�B �E(�A0�D8�D@8I0A(B BBB \ ����& A�` \ | ���� B�O�A �A(�J@� (C ABBI L (C ABBD D (F CBBG $ � x���j A�A�G ]AAL ����� B�B�B �B(�A0�D8�G�| 8A0A(B BBBF T `���. 4 l x���� B�A�D �� ABL QAB , � 0���m A�D�K0| AAB � p��� , � x���T B�E�D �| ABF < ����` B�E�E �D(�H0�}(A EBB \ Ȓ��� UV < t @���� B�A�A �H ABA O ABN L � ����Z B�E�E �D(�DPp (A ABBF � (F ABBG < ! ����^ B�B�D �A(�DPE (A ABBA D! ���� \! ȕ�� t! Е��B A�P G i T �! ���� R�L�B �A(�A0�X �(A� I�B�B�P A�(A� B�B�B� L �! X���� B�L�G �G(�D0�D8�D`t 8A0A(B BBBJ <" ȗ��n TU T" ��� L l" ���[ B�B�B �E(�D0�A8�G�0 8A0A(B BBBG L �" (���� B�E�E �B(�D0�A8�J�� 8A0A(B BBBK < # h���� B�B�D �N(�D@� (A ABBD 4 L# Ȟ��y B�H�A �D@` AABA L �# ���X B�B�I �B(�A0�D8�J�* 8A0A(B BBBA �# ��� �# ���: Du $ @���; H�j L $$ `���� B�B�B �B(�A0�D8�G�� 8A0A(B BBBA L t$ ���� B�B�B �E(�A0�D8�D@]8I0A(B BBB $ �$ @���� A�I�D �AA �$ ����I A� L % ��� B�B�B �B(�A0�D8�G�| 8A0A(B BBBF \% ����� A�{ D |% ���* A�` G A �% ���# A�` T �% (���� B�G�A �J0R CABD I CABA D FCBA $ & ����R A�D�L ~AA <& ����V T& ��� l& ����* A�` G A 4 �& ���[ B�D�A �j ABL WAB �& 0���" A�Y F A 4 �& @���� B�A�A �� ABK AAB ' ���� 4' ����; H�j 4 T' ��� B�A�A �G0i AABH L �' 8���> B�B�B �E(�A0�D8�D@8I0A(B BBB �' (���& A�` L �' 8���� B�O�B �B(�A0�A8�JP� 8C0A(B BBBG $ L( ��� A�A�G �AAL t( `���� B�E�B �B(�A0�A8�G�� 8A0A(B BBBD 4 �( ����O A�A�G u AAH DAA < �( ����� B�E�D �A(�GPr (A ABBE 4 <) (���� B�D�D �D@� AABA 4 t) ����� B�D�D �D@� AABA �) ��� d �) ���� B�B�B �B(�A0�C8�GP� 8A0A(B BBBF l 8F0A(B BBBE ,* X��� 4 D* P���Z A�D�L q AAD OAA 4 |* x���Y A�A�G o AAF UAA �* ����! �* ���� , �* ���� B�G�A �� ABE 4 + ����f B�A�D �F0W AABH D L+ ��� B�B�H �D(�G0�I�� 0A(A BBBK , �+ p���� B�N�G �[ ABA 4 �+ �� A�J�I X CAH VCA L �+ X��� B�B�E �B(�D0�C8�D�] 8A0A(B BBBC L L, ���_ B�B�B �B(�G0�I8�G`� 8A0A(B BBBC d �, (���� B�B�B �B(�A0�A8�G�z 8A0A(B BBBK 8D0A(B BBBE - `�� - h��b < 4- ���A B�E�A �� ABF ` ABA 4 t- ���l B�A�A �O ABJ AAE 4 �- ��� A�A�G d DAN DAA 4 �- `��� A�D�D J AAK � AAB . ���- 4. ��5 $ L. 8��a A�I�G FDA4 t. ���� B�A�D �F0S AABD D �. H��� B�E�H �A(�A0�G@ 0A(A BBBI | �. ���C B�B�B �B(�A0�D8�FPx 8F0A(B BBBF V 8F0A(B BBBK y 8A0A(B BBBE , t/ `��r A�D�G h AAJ T �/ ���p F�J�D �D(�G0q (F� A�B�B�E D(C� A�B�B� < �/ ���� B�K�A �D(�J�� (A ABBG L <0 x�� B�B�E �E(�D0�G8�D�� 8A0A(B BBBH 4 �0 (�� B�D�C �M0j AABD L �0 ��� B�B�B �B(�G0�D8�M�> 8A0A(B BBBH L 1 @��� B�B�B �B(�A0�A8�D` 8A0A(B BBBC d1 ���2 |1 ���- < �1 ���` B�E�E �D(�H0�}(A EBB < �1 ��� B�E�A �J(�G�J (A ABBG L 2 ���] B�E�B �B(�A0�A8�J�� 8A0A(B BBBH L d2 ���� B�E�B �B(�D0�D8�G`� 8A0A(B BBBA D �2 ���y B�E�E �D(�D0�G� 0A(A BBBB L �2 �� B�B�E �B(�D0�D8�F�� 8A0A(B BBBH D L3 ��� B�B�B �A(�D0�J�D 0A(A BBBG 4 �3 �� B�I�D �MPE AABK $ �3 ��� A�M@E AD L �3 �� B�B�E �E(�H0�A8�G`N 8A0A(B BBBJ < D4 ��� B�B�D �A(�D0c (A ABBB < �4 ��� B�H�G �G(�GPE (A ABBF L �4 ��� B�I�E �B(�A0�A8�J�V 8A0A(B BBBA L 5 @� B�B�E �E(�A0�A8�J�_ 8A0A(B BBBE L d5 ��� B�E�E �B(�A0�A8�J�y 8A0A(B BBBC �5 ����i $ �5 ��� A�GPz AE D �5 p���D B�E�H �G(�G0�GPE 0A(A BBBG L <6 x���+ B�E�B �B(�G0�G8�G`_ 8A0A(B BBBG �6 X��� L �6 `���� B�B�B �E(�A0�A8�M�� 8A0A(B BBBE | �6 ���V B�B�E �B(�A0�D8�DP� 8A0A(B BBBH R 8F0A(B BBBG n8F0A(B BBB t7 ���{ �7 X��C A�Z E b d �7 ���y W�E�A �D �A�B�L P �A�B�M � �A�B�M A�A�B�D ��� L 8 ��� B�B�B �B(�A0�A8�DP� 8A0A(B BBBB D d8 `��g B�E�E �D(�D0�G�� 0A(A BBBG L �8 ���� B�B�E �B(�A0�A8�G�S 8A0A(B BBBG L �8 8��3 B�B�B �B(�A0�A8�G�� 8A0A(B BBBF L L9 (��b B�B�B �E(�D0�A8�G�O 8A0A(B BBBH L �9 H��� B�B�B �B(�A0�A8�D�t 8A0A(B BBBD L �9 � ��� B�B�E �E(�D0�D8�J�� 8A0A(B BBBF <: ��% A�[ 4 \: ( ��� B�D�J �D0E AABC 4 �: � ��s B�D�A �D�^ AABA , �: � ��f B�I�H �OAB < �: (!��� B�H�A �A(�IPl (A ABBA $ <; x!��_ A�F�D NDAL d; �!�� B�E�E �E(�A0�A8�D`� 8A0A(B BBBA , �; p"��d B�F�A �@ ABD L �; �"�� B�E�E �B(�A0�C8�F�� 8A0A(B BBBH T 4< �#��� B�B�E �F(�A0�G@r 0D(A BBBD \ 0D(A BBEF L �< ($��� B�B�B �B(�D0�A8�D�� 8A0A(B BBBA | �< �%��% B�E�E �E(�D0�A8�K@S 8A0A(B BBBB g 8A0A(B BBBG b8A0A(B BBB < \= H&��k B�E�G �A(�F`� (A ABBH L �= x'��# B�E�E �H(�A0�D8�L�� 8A0A(B BBBF L �= X(��� B�B�E �E(�A0�A8�D�b 8A0A(B BBBH <> )��> H�c E M \> ()��> H�c E M |> H)��> H�f B M �> h)��> H�c E M $ �> �)��5 A�A�D kAA L �> �)��� B�B�B �B(�A0�A8�D�{ 8A0A(B BBBA L 4? �*��� B�B�B �E(�A0�A8�G` 8A0A(B BBBF $ �? P,��{ A�t K d D R < �? �,��� B�E�B �A(�A0�� (A BBBA L �? 8-�� B�B�B �E(�D0�A8�G� 8A0A(B BBBA d <@ 1��� B�E�B �B(�A0�A8�F`F 8C0A(B BBBK l 8H0A(B BBB[ D �@ p2��� B�E�H �A(�H0�DP� 0A(A BBBA D �@ 3��� B�M�B �L(�A0�N�i 0A(A BBBA L 4A �5��� B�L�B �B(�A0�D8�G� 8A0A(B BBBA �A ;��d to D �A X;��� B�E�E �H(�A0�DP� 0A(A BBBA L �A <��� B�E�E �B(�D0�G8�J�� 8A0A(B BBBB 4B p>��! LB �>�� L dB �>��� B�E�B �E(�D0�A8�D�� 8A0A(B BBBC �B �B��! < �B �B��� B�B�A �A(�FPN (A ABBH $ C �E��I Dj B H H H D 4C �E��� B�D�B �B(�A0�C8�FP~8A0A(B BBB |C (F�� L �C 0F��� B�B�B �B(�D0�A8�G�S 8A0A(B BBBG D �C �L��? B�B�E �D(�G0�DP� 0A(A BBBF L ,D xM��( B�B�B �B(�D0�A8�G�" 8A0A(B BBBH |D XR��- �D pR��2 �D �R��� , �D �S��\ B�D�D �NAB < �D �S��` B�E�E �D(�H0�}(A EBB L 4E �S�� B�E�E �E(�A0�D8�DPk 8A0A(B BBBA L �E �U��� B�B�B �E(�D0�A8�DP; 8A0A(B BBBA �E Y��F �E HY�� F PY��$ , F hY��g B�G�D �TAD LF �Y��T dF �Y��t < |F XZ��� B�B�E �D(�A0�[ (A BBBP �F �[��E D �F 0\��� B�B�E �A(�A0�J� 0A(A BBBB 4 G �]��� B�F�I �D�� AABA L TG ^��M B�B�E �E(�D0�A8�D�] 8A0A(B BBBB < �G f��_ B�E�E �D(�A0�w(A BQB 4 �G 0f��� A�A�G C GAL D AAJ , H �f��� B�A�A �m ABL 4 LH �g��� A�C�G � AAK �AA , �H Pi��� A�A�G S DAO $ �H �j��T A�V I A G L �H (k��4 B�B�B �E(�A0�A8�M�� 8A0A(B BBBF L ,I o��� B�B�B �E(�A0�A8�G` 8D0A(B BBBE |I xs��{ �I �s��D A�O H g �I t��6 < �I 8t��� B�B�D �A(�J@� (A ABBC t J �t��� W�E�A �V �A�B�J N �A�B�O K �A�B�J a �A�B�L A�A�B�D ��� 4 �J @u��t A�D�G e AAE K AAA D �J �u��� B�D�D �M0C AABB D FABC | K �u��� B�B�B �E(�D0�D8�DP� 8C0A(B BBBD ^ 8A0A(B BBBH ] 8F0A(B BBBD �K Pw��L J�A L �K �w�� B�B�B �B(�D0�D8�Gp� 8A0A(B BBBB L �K @y�� B�B�E �E(�A0�D8�G@� 8D0A(B BBBG D DL z��H B�E�E �D(�D0�D@. 0A(A BBBB �L }��, H�\ D C d �L (}��� B�E�B �B(�A0�D8�GP� 8A0A(B BBBH N 8A0A(B BBBH L M �~�� B�B�B �B(�A0�A8�G`I 8H0A(B BBBE < dM p���� A�D�M C CAG T CAH DFAL �M ����� B�B�B �B(�D0�D8�Gp� 8A0A(B BBBB L �M 0���- B�D�B �B(�A0�D8�G�F 8A0A(B BBBJ L DN ���� B�B�E �E(�D0�A8�G�� 8A0A(B BBBK �N ����+ $ �N ����I A�J�D wAA $ �N ��I A�J�D wAA , �N ���� A�D�G`� AAB \ ,O ����� B�H�D �G(�F@_ (G APBL q (A ABBI D (F ABBA | �O ���� B�E�E �E(�D0�A8�D@� 8F0A(B BBBD s 8A0A(B BBBC D 8C0A(B BBBH L P (���I B�B�B �B(�A0�A8�G�� 8A0A(B BBBJ \ \P (���� B�B�D �D(�D@� (C ABBH i (F ABBD D(F ABB \ �P ț��� B�L�G �G(�D@f (C ABBB i (F ABBD D(F ABB $ Q H���g A�[ L Z N V L DQ ����8 B�B�E �E(�D0�D8�GP� 8A0A(B BBBB 4 �Q ����� B�J�G �M0y AABA 4 �Q ����$ B�P�G �D0� AABF L R �4 B�E�B �B(�A0�A8�Jp� 8A0A(B BBBE D TR ��V B�N�E �G(�A0�J@� 0A(A BBBE L �R ����� B�E�B �E(�G0�D8�G�) 8A0A(B BBBE $ �R H���� A�S q AJ $ S ��m A�D�G ^AA <S (���! TS @���! L lS X���� B�B�B �B(�A0�A8�J`{ 8C0A(B BBBE d �S ��� B�H�E �D(�G0�T (A BBBK d (A BBEB l (A BBGH , $T ����� A�D�M�| AAH $ TT p���v A�D K F J U 4 |T Ȩ��� B�D�D �q APT lAG L �T 0���� B�E�G �G(�D0N (A ABBC d (F ABBA U ����! L U ة��� B�E�E �H(�A0�D8�GPY 8A0A(B BBBE 4 lU h���� A�G�X } CAG \FA d �U ���� B�E�B �E(�A0�A8�N�> 8F0A(B BBBE \ 8A0A(B BBBJ < V x���N B�K�K �J(�Jp� (A ABBF , LV ����i B�Q�K �J0| AAB $ |V ȭ��v A�O H F B U , �V ���� A�Q�T�� AAF d �V �P B�B�B �B(�A0�D8�DP 8F0A(B BBBH K8C0A(B BBB d <W د��� B�B�B �E(�A0�A8�D@� 8A0A(B BBBC \ 8A0A(B BBBA L �W `���@ B�B�B �B(�D0�A8�G�� 8A0A(B BBBK �W P���x X ����! $X в��* , <X ��� A�A�G � AAL , lX ����� A�D�D � AAC �X X���� L �X ��� B�B�B �B(�A0�D8�D�� 8A0A(B BBBH Y P���F T Y ���� W�E�A �` �A�B�H � �A�B�S A�A�B�L ��� $ tY P���E A�d S A G �Y x��� A�Q 4 �Y x���q B�G�D �g ABI kAD L �Y ����K B�O�A �D(�G@� (D ABBH D (G AEBE L DZ ����� B�E�E �B(�A0�A8�J�V 8A0A(B BBBF L �Z p���O B�E�E �B(�A0�A8�D�� 8A0A(B BBBC | �Z p��v B�B�E �B(�A0�D8�DP� 8A0A(B BBBH Q 8F0A(B BBBH n8F0A(B BBB d[ p��2 |[ ���- < �[ ���` B�E�E �D(�H0�}(A EBB D �[ ���j B�B�B �D(�A0�G�� 0A(A BBBG D \ ���* B�E�B �D(�A0�G�� 0A(A BBBB , d\ ���y A�D�G � AAK L �\ 0��� B�E�E �E(�D0�H8�Dp� 8A0A(B BBBA �\ ���F �\ ��$ ] ��] D l H c 4] `�� L L] h��? B�B�B �E(�A0�A8�M� 8A0A(B BBBH t �] X�� W�E�A �V �A�B�J A �A�B�L K �A�B�J _ �A�B�N A�A�B�D ��� 4 ^ ��� A�J�G m AAG AAA , L^ X�� A�D�J�\ AAC L |^ (��� B�B�B �B(�A0�A8�G� 8D0A(B BBBJ , �^ ���G A�D�G � AAF D �^ ���� B�E�B �D(�A0�J�L 0A(A BBBD L D_ ���� B�B�B �B(�A0�D8�D�� 8A0A(B BBBC D �_ 0�� B�E�B �A(�D0�G`� 0A(A BBBE L �_ ��d B�E�E �E(�G0�J8�D`� 8A0A(B BBBB D ,` ��� B�E�E �D(�D0�DP; 0A(A BBBE L t` P�D B�B�E �B(�D0�D8�DpL 8A0A(B BBBC 4 �` P�~ B�A�A �GPZ AABG < �` ��� B�E�D �D(�J� (A ABBD L <a �V B�E�E �B(�D0�C8�D�� 8A0A(B BBBF 4 �a � B�G�D �D�~ AABE $ �a ��� A�J@g AE , �a (� A�D�G`v AAD L b ��� B�H�B �E(�D0�D8�G�� 8A0A(B BBBI D lb 8�% B�H�J �D(�F0�J`s 0A(A BBBE < �b ���� B�M�D �D(�M`j (A ABBD $ �b ����� A�J0L AH c 8���{ | 4c ���� B�E�E �B(�A0�D8�DP� 8A0A(B BBBB R 8F0A(B BBBG n 8F0A(B BBBK T �c 0���� B�B�B �A(�A0�G@M 0D(A BBBI �0D(A BBB d ��� $d ���> A�t , Dd �V A�A�G y AAL d td ���h B�B�B �B(�D0�A8�D@x 8A0A(B BBBB � 8A0A(B BBBA �d (��� A�S 4 �d (���O A�A�G o DDH DAA 4e @��� < Le H���� B�B�D �A(�D@� (A ABBE L �e ��� B�B�E �B(�A0�A8�Dpu 8A0A(B BBBH �e � ��$ �e � �� L f � ��j B�D�B �B(�A0�A8�J�� 8A0A(B BBBG L \f ���� B�B�B �E(�D0�A8�G�� 8A0A(B BBBB L �f ���� B�E�D �I(�D@� (A ABBG L (D ABBK D �f 8��q B�E�E �D(�I0�G� 0A(A BBBH D Dg p��� B�E�E �D(�I0�D@� 0D(A BBBE D �g (��� B�E�E �D(�I0�D@| 0D(A BBBD D �g ���� B�E�E �D(�I0�G�3 0A(A BBBE � h ���# B�E�B �B(�A0�D8�GP� 8D0A(B BBBI � 8E0A(J BBBJ D 8G0A(B BBB\ � 8A0A(B BBBK , �h ���� B�A�H ��AB �h �� 4 �h ��* B�D�A �| ABJ �AB L 4i ��X B�B�B �E(�D0�A8�Dp� 8A0A(B BBBK L �i �� B�B�B �E(�A0�A8�G� 8A0A(B BBBA L �i ���� B�B�E �E(�A0�C8�J�� 8A0A(B BBBD L $j @ ��� B�B�B �E(�D0�A8�G�< 8A0A(B BBBC L tj �!��� B�E�E �B(�D0�A8�Dp� 8A0A(B BBBD 4 �j 0$��g A�A�G D DDK DAA L �j h$��M B�B�A �A(�G@O (A ABBF � (A ABBG D Lk h%�� B�D�A �G0h AABF _ DABA 4 �k 0&��� B�D�D �G0Q AABJ �k �&��8 H�g �k �&��* 4 l '��b A�D�G0l FAA _AA � <l H'�� B�E�E �B(�A0�C8�D@c 8F0A(B BBBH [ 8C0A(B BBBI k 8F0A(B BBQG m 8A0A(B BBBI n 8F0A(B BBBC 4 �l �(��q G�A�A �I�A�B�S ��� L $m )��� B�B�E �B(�A0�D8�D�� 8A0A(B BBBD $ tm `+��: A�A�G nAA , �m x+��} A�G�G _ AAH $ �m �,��� A�Tp� AB �m `-��$ L n x-��� B�B�E �E(�A0�A8�G�' 8A0A(B BBBH \n �/��$ L tn �/��2 B�B�B �B(�A0�A8�D`m 8A0A(B BBBK , �n �0��� A�H�G0{ AAC L �n 1��� B�B�B �B(�D0�C8�J�� 8A0A(B BBBK < Do �<��{ B�B�A �A(�G0K (A ABBB L �o �<��V B�E�E �E(�D0�D8�J�� 8A0A(B BBBF L �o �=��� B�B�B �B(�A0�A8�D`�8A0A(B BBB , $p @?��y A�M�k AF sA Tp �?��: T e lp �?��| D0r A �p @�� �p @��C A�} �p @@�� 4 �p H@��� B�E�A �D(�� ABB $ q �@��M B�J�zB <q �@�� Tq A��+ H�b D tq A�� B�H�E �B(�A0�F8�Gp�8A0A(B BBB4 �q �A��g A�D�G J DAE DAA L �q B��p B�B�D �C(�G0c (D KBBH Y(A ABB L Dr 0B��� B�E�B �B(�A0�D8�J� 8A0A(B BBBD 4 �r �C��� B�D�D �D0Q AABE d �r D��� B�B�E �B(�D0�D8�D�� 8D0A(B BBBO D8A0A(B BBB 4s �D�� < Ls �D��� B�B�A �D(�D@d (A ABBI L �s 8F��Q B�B�H �L(�A0�A8�G�� 8A0A(B BBBK L �s HG��p B�J�L �H(�D0�� (A BBBA i (A BBBH � �� ˭ ӭ ܭ � �� � � � � "� *� 2� � :� *� D� � N� X� `� � j� � r� X� y� *� �� �� �� �� o� ¾ x� ̾ L� R� ?� D� �� �� �� �� m$ � 2 T �� � �k$ �k$ ���o � �$ � � p$ � �� �: 0� ���o �: ���o �o @8 ���o � m$ � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� � � &� 6� F� V� f� v� �� �� �� �� � � � �� & 6 F V f v � � � � � � � � & 6 F V f v � � � � � � � � & 6 F V M� �< �; if {[info proc tixInit]==""} { proc tixInit {} { global tix_library tix_version tix_patchLevel rename tixInit {} tcl_findLibrary Tix $tix_patchLevel $tix_patchLevel Init.tcl TIX_LIBRARY tix_library } } tixInit � � &� 1� �� 4� =� �� � F� Q� \� � f� p� \� � z� �� �� �� �� �� �� ΰ ܰ � �� �� � � .� ;� C� T� ]� j� |� �� �� �� �� �� ɱ ر �� ���� �g �f �| | � � �� В �� 0� �� @� p� �� @� � 0� @�$ �{$ )� *� 1� �� � 8� �� <� �� @� A� F� ܭ @ K� L� P� �� H T� U� ]� M� < e� k� p� �� � t� z� p� �� � � �� �� �� 8 �� �� �� *� � �� �� �� �� � �� �� � � � �� �� � � � �� �� Ѷ *� � �� �� Ѷ � � � � � � � � � � �� � � (� 9� X� � � (� 9� � � J� \� m� � � J� \� m� �� � ~� �� �� *� ~� �� �� �� �� ̷ ߷ � �� ̷ ߷ � � � �� *� 8 � � =� *� H � � � � $� /� 9� �� � C� M� V� �� � _� f� u� *� 0 �� �� Z� *� ` �� �� �� �� � � � �� `� � @� К � �� P� �� p� @� ��$ �$ )� *� 1� �� � 8� �� <� �� e� k� p� �� � t� z� p� �� � �� �� �� *� � �� �� �� �� � �� �� � � � �� �� � � � �� �� Ѷ *� � �� �� Ѷ � � � � � � � � � � �� � � (� 9� X� � � (� 9� � � J� \� m� � � J� \� m� �� � ~� �� �� *� ~� �� �� �� �� ̷ ߷ � �� ̷ ߷ � � � =� *� 8 � � � � _� и ۸ *� 0 ���� �� 0� � ���� � ������ �� ���� E� �� *� ���� L� �� �� �� �� `� p� p� p� � � 0� �� � �� � ��$ �$ )� *� 1� �� � 8� �� <� �� @� A� F� ܭ @ T� U� ]� M� < e� k� p� �� � t� z� p� �� � � �� �� �� 8 �� �� �� *� � �� �� �� �� � �� �� � � � �� �� � � � �� �� Ѷ ˭ � �� �� Ѷ � � � � � � � � � � �� � � (� 9� X� � � (� 9� � � J� \� m� � � J� \� m� �� � ~� �� �� *� ~� �� �� �� �� ̷ ߷ � �� ̷ ߷ � � � � �� _� c� z� *� 0 �� �� Z� *� 8 �� �� �� �� L @ ����κ p� �� V� � �� p� й P� �� � �� P� �� p� @� `�$ ��$ )� *� 1� �� � 8� �� <� �� e� k� p� �� � t� z� p� �� � �� �� �� *� � �� �� �� �� � �� �� � � � �� �� � � � �� �� Ѷ ˭ � �� �� Ѷ � � � � � � � � � � �� � � (� 9� X� � � (� 9� � � J� \� m� � � J� \� m� �� � ~� �� �� �� ~� �� �� �� �� ̷ ߷ � �� ̷ ߷ � � � � V� _� ܺ � *� 0 � �� V� �� *� 8 ���� v� 0� |� ���� � ���� � �� ���� �� ������ �� ���� �� ������ �� ���� � ҽ ���� � �� |� ���� � p� � ���� � @� ���� L� �� � � ���� *� �; �� ���� �� � ٿ ���� �� �� � ���� � �����% �� ���� E� �� ���� j� �; �� ���� � �; �� ���� � � � ���� � � � ���� � ����� �� ���� � ���� � ���� � P $� ���� � ����@* � ���� �� P� k� ���� 3� 0 8� ���� J� � k� ���� R� R� ���� � ����0 g� ���� |� ���� � ���� ~� ���� �� ���� �� F k� ���� �� �B �� ���� �� �B �� �� �� �� *� X �� �� �� �� X �� �� 8� �� � �� �� �� 0 � � � *� � � � �� *� � � � (� *� � <� �� 6� D� Q� �� < ^� l� y� �� 8 @� A� F� ܭ � �� �� � � P �� �� � � P �� �� �� *� �� =� �� �� , �� �� �� *� @ �� �� �� �� @ �� � � � � �� � � � � "� 6� I� �� � \� h� s� �� 0 � � � �� H e� k� p� �� � t� z� p� �� � ~� � �� Գ 8 � (� � ˭ H � (� � � H �� �� �� �� 4 J� \� �� � ` J� \� �� �� ` �� �� �� �� � �� �� �� �� � �� �� � *� � �� h � !� +� �� 5� @� J� �� 4 T� U� �� �� ( [� k� l� *� h z� �� l� *� � ���� L� ���� 5� �����` X� ���� �� ����0c X� ���� �� )� *� 1� � @ �� �� �� *� �� �� �� *� �� �� �� � �� �� �� � �� �� 8� �� � �� �� �� ( �� �� �� �� D ~� � �� Գ , � (� � ˭ � (� � � �� �� �� �� 4 �� �� �� �� 0 �� �� �� �� < �� �� �� �� 8 �� �� �� *� �� �� �� �� �� �� 8� �� � �� �� �� �� �� �� �� 8 ~� � �� Գ $ � (� � ˭ � (� � � �� �� �� �� , �� �� �� �� ( �� �� �� �� 4 �� �� �� �� 0 ���� �� ����`j �� ���� N� ����`j �� ���� �� ���� � `m Y� ���� t� `m Y� ���� � Pm Y� ���� � `m Y� ���� � `m Y� ���� �� ���� O� ���� � $� ���� �� ���� � �� ���� *� `� �� ���� �� P� � ���� N� ���� �� ���� � ����p� �� ���� E� � �� ���� j� `� �� ���� � `� �� ���� � �� � ���� � ����@� �� ���� � �� $� ���� Y� ���� � ���� � 0� � ���� .� ���� �� ���� �� ���� � ���� � ������ � ���� J� �� m� ���� .� P� $� ���� R� в 2� ���� G� �� � ���� �� � �� ���� �� �� �� �� �� �� *� ` �� �� �� �� ` �� �� 8� �� � �� �� �� 8 R� ]� g� *� � q� r� z� �� � � L� r� *� ( � � � *� � �� �� �� *� � �� �� �� �� � �� �� �� *� � <� �� @� A� F� ܭ p �� �� � � X �� �� � � X K� L� P� �� � �� Y� �� �� � �� =� �� �� 4 �� �� �� *� H �� �� �� �� H �� � � � � �� � � � � "� 6� I� �� � �� �� �� �� D �� �� �� �� X � � $� *� � � � � �� � e� k� p� �� � t� z� p� �� � ~� � �� Գ @ � (� � X� P � (� � � P �� �� �� �� < J� \� �� � h J� \� �� �� h �� �� �� 1� � 8� 9� C� �� � �� �� � *� � � !� +� �� � M� \� j� �� � T� U� �� �� 0 [� k� l� *� x z� �� l� *� p ���� L� L� *� h � �� ` ���� U� � � ���� �� ���� �� �� %� ���� � ������ �� ���� =� ����p� �� ���� E� @� D� ���� c� �� D� ���� �� ���� �� �� � ���� � ����@� (� ���� =� ����@� � ���� E� `� $� ���� c� @� $� ���� |� `� $� ���� �� ���� �� P� /� ���� � ���� � `� ���� =� ������ |� ���� E� P� N� ���� ѿ �� N� ���� |� @� N� ���� �� �� �� � �� �� �� 4 �� �� �� *� ( �� �� �� �� ( ~� �� �� ȳ 0 )� � � *� X � *� P T� 6� 8 =� *� ( � �� �� �� @ � �� < �� �� �� *� 0 �� �� �� �� 0 D� S� a� *� H D� S� a� �� H �� �� 8� �� � �� �� �� , � � � *� � �� ̷ ߷ �� x �� ̷ ߷ *� x <� �� o� {� �� � 8 o� {� �� � 8 @� A� F� ܭ h �� �� � � p �� �� � � p �� �� �� *� @ �� �� �� �� @ ~� � �� ȳ X �� �� �� �� d �� �� p� �� \ �� �� p� �� ` � !� +� �� � T� U� �� �� �������� �� @5 �� ���� *� @5 �� ���� �� � � ���� � �����E �� ���� E� E � ���� j� @5 �� ���� � @5 �� ���� � PD � ���� � ���� C �� ���� � $� ���� �� > �� ���� � �����: � ���� �� ����P@ �� ���� J� P( k� ���� .� �> $� ���� R� p2 2� ���� �� ! �� ���� �� ! �� ���� L� � �� �� �� �� *� X �� �� �� �� X �� �� 8� �� �� �� �� *� @ �� �� �� �� @ � �� �� �� 0 R� ]� g� *� � L� r� *� � � � *� � <� �� @� A� F� ܭ � �� �� � � P �� �� � � P �� =� �� �� , �� � � � � �� � � � � "� 6� I� �� � � � � �� h �� �� �� k� 0 e� k� p� �� � t� z� p� �� � ~� � �� Գ 8 � (� � X� H � (� � � H �� �� �� �� 4 J� \� �� � ` J� \� �� �� ` �� �� �� 1� � � �� � �� �� � *� ( � !� +� �� X T� U� �� �� ( [� k� l� *� x z� �� l� *� � )� � <� �� @� *� H �� �� � *� @ T� M� 4 e� �� t� �� $ �� *� ( �� �� < � �� 8 �� �� T� �� )� � � 0 e� �� t� �� $ )� � �� �� �� *� 8 8� �� � *� ( <� �� �� �� � *� 0 e� �� t� �� $ )� � ( e� �� t� �� $ �� �� �� *� P �� �� �� �� P �� �� 8� �� � �� �� H <� �� @� A� F� ܭ ` �� �� � � h �� �� � � h e� �� 0 t� �� 4 ~� ϳ X �� �� x �� �� �U `I �O `J �M �� �v 0} pd �{ �c L� �� � ( ���� i � � � *� ( �� =� �� �� $ T� U� �� �� libTix.so.debug &��J�7zXZ �ִF ! t/��QZ�] ?�E�h=��ڊ�2N����D�� B� v�k�� �).��+�����; �o^|u;(F� OC �J�ڿ̉�#��)Z��Bt>^|�:*ۓb&e��ƞ�#MTDK�)7ܕ@���iV �� A�(��>A�xъ�� )��"�� ך�q�hm_�a�~��+uF�ӵ�����PZ�ă�,W�#!�5T��l���$�A��Y�(6���P�m�E �f�k̪�h�6+<NU�o:e��}�;��Ȫ^/䵈�D�H�Wi�k�&�)�+*8�-�E>�͟ 8c ��6IP��P$��س�c�J�j} Qˏ�'T��;���`��z{�]�����04e*� �^Co��b������ �Cj\6 �y�z�ި-#���o�K�;u���R����e�nlK�'����f�ntTq���j�:�엮�[J�r�E�8oQo�k�.���d�R�ۇ������`Ť��ec-A��~� ��2|zW6���H dfћ� �-X~�� �y�\�^B7� . � �q@H~kz���u�Zg��Lm<�y�� ���SGXK�R'�����Tȷ0��E QS �p�hf�������l�Xp��,By�E�\*�{@?R[����lS<�P0 �� �rĤ�l6�kO���G�jڧ'1h�/A��6��~>M�~66�R��0K�V�$���Mt�Y�� \�/X�}�p*��c v��U.[���OiH�T��.T-eY Y����j�s�� /�ɷ D\�6�-���j�sc�j �0̢�y��a1� �~��qLm_e��+M��VC�aE�&UAQQY���^�3�م���&R>����H3INր��f�;��@N7lIk�P@-�� IIΕ^��C�u�DŽ6P�c��J _�G�S���ӫHå���UZ~�Aw$�=qXx^>;C������?������6�F(ǚ����]!�%6��t��ɺ�+��� �QwU��q��Wr�dGx- ���T æ懸E:J��E �ީ�!�>��=AZ��ǚ$�-ݛ�\ﾣ��k~Rz��Zy��r�j j�վ-�Msd���]m=k�/� �Ye�:J�I.(�h�I1ΤD%}j 4�6}/(�������hh�5�'W� �V ْ���i/��V�w*8�:Σ�')͘}�"�4]�N�R���J2�g\��� ��t�������ऍ䫛��ʝ�X ��ŵ#F ��ŪW����k������;����$�����9y�&ԛ 7?�9\�` Q�7 c�kt�=G��>��E���|��r��@��^�=C�q>� 22w��3�<="N+�i�j�6����Rk���{l)Vx*u}O߹X� '��<�&�P'���{�b-�]��J%��#�J]�Mׅ�^��T��u�)���s0$�P�k�Dr�|�G��:M�� -h ��/�� 92���b#6G����#� �`/��۷W������>��� tu�łO� ��+��y2q�C��sD�T0�P�4���l4(Q�@, >+*� p�)�� #i$ /�|,�2b�m'_�ZF���i3�����Z����O#��gg+ &j>��7�t���*��#a,̂%�u)#reE�F��VB�ӜX0�yKq��kg�( �����6i�?��-(��k�W� IpZ� ���0[���a�ٿB��XWΣ��6K�2��Y��%�h l*ڌ2�HO�5һG������m98�ЖN)�o�ÛU f�ߠS���� ���7뀀l�]�t�ٶ��z�M��O�= ���VZ�q7tIr*�. >61��ٖ�Fކ�m���9;��Ʉ��� >Þ��Syz��|��� ��h��ۓ��<�[0Q K�7�LHӔy�2_�z�)J�y\�����ݓ�����D. �Yӑ=������%������ ���{��q_�F���֛ ���t��0Y\fN%���(<�ՠ�A� X As�7����"&3'DX+ ��߅��h6�rE�y(r< k�h, ����EE�����ū��=����u0��M��]|~�)���LCJ!�.��t|�0��$�Iv8���d*B ��X�@��ϫ�9��=; J�>�� � ��/����{��0)u2�Ǜ[%wϥ{9��Cq�ݿ����3�Y~ �{N� �6<?��L��lċ�2 �)�N��U�g�bt =�W{����E/L|狠>.���C��� ���� 05b�� � :�\\�� �����4�nB;�ιP7+Eסѿ�F4俘J1� �[��sN)~R0 -봑���;�ʨK� N煃��<��ʣSwk����n���� �- Y|���㵨�ĄJ�<���Ε�3� �b�>7B� �sT:�Ϋ�3��7�1� ?�� y��G� �qu��r�Q7G3�ec�� QIJ&瞡b� �2.7+���"��@�t��ꏿ��=� (ޅ�D,��p!;����mjnc����\Oe� �ȇ�/�梣� ��Լ� ��PS!a�+�ʴef.P�}�m���n�+����p��q�.|�cb�Ɛ:�[��$� a>^f� ח�O�6�:z;hHj�Ór0�.B��9��� �T ���`�H�.����"��ҁ �V�N+�q�1�`t����UB�VFa�Xd��l�:�5��� I~��B�f��O��HB�ȖKY�P�/������%�at����:�F�@���r���I�x!Do� ڲ�ץJ؏����FCˈ�͊+��:�� ���5����|3Q����!��O�7���� /���e]���(DJ� ��<���m��i]^uυe@�AJ��ל ��ᷬ:�h��:� O��� �.�7b�֕ �;��Ng_������Z-�<H��~03"�? @�QeB�V�3T����V ���e�I>l�j�o�*D ��p���X N_�i|�܁\�� �q�c��������9��ҥ%6�� @�e�f�*: 縲D'�zU߁����ts(�4 ͝ێ�C_���>D^�Q�����G`��ux��C�w�>��8�۰��ŷ:}�ǰ��X�PZ��o|ii`n���ً�tr ��t~{Gƛ��N� �26�#6^D`i�B�D�d��!�P�[�´o����}�n�E�żp��M�Vgû��s�ړ�p�9=�u"n�� ��*��A�#4�E�5,옻E��7�_��#%�����w�9Fpr��)�>��N����� �ޜj擯��/��J}���& %��L'1[���;�UtC���˅<�T@܇7�M�g6�*���c�u�8C�%�Z�`-�[��>-�A}�<T<��쯥W�� д#�j�� Uo�{��3 �'�f���yv�K�Hs!X� �+��/��s�hi��IsH�wF���i3S*n�˱����TF�\� ���%�X%�qL� ��u�q0K��d���c |a��,��^��!�0w�=rß���ߝ� Y�D�i�sQ3�W���UDY��Ka$`��\q�Q G�/���(EO�G ���ZO�d�G�iy{��5M������ ��&>����Ud�����8~�B�7յ����T���4wm�_04���{� � -���a]wK�� �S�TW�^��/��>L,Y�x[ �I7��9��X/��!��?m��JmZ�z�.j�eKT�xg���J��JFc>�PF��J5��4�$� �� ����}[�Վ�����6~��ۓ�g�-��R3��~�%�<��zxݚ:���bO~r L��Q� J*n�,�eɔ/:�w,�'ۢ�����::� ����� ��Q+�����%�ʄ2}�n mb�!� h���<�9h���ķ�0�5�d�$�̻JZL}`�� �VÈ;e/�D^ ��2%Ԍ1�eԦ�B��u���� ����U� 9�3"��IѳL�d% �^�x�hf��-���H��ށ��&q�$����,���Ȣ�����ǝ��*�O����t�9�؍�.� 7����V�����)QΆv0;JcI�.7ZѻF�:M��d0�Q���:����ֲ=�Dzg�ee �5�� f��Aڧ��?<?���ӐfoN��p֡U���|h��g��ur�d�"u���[e0�d��9N�������#����Q\�� ik��8�1�D��ʟQ�)���[K��P� =Z��%�a��9S�^ '�L��O;�m#���{�bVr�E���_�N��pl��� �o9�8q�� �NJȍ��c��rOQ�,y�%�~�O�e�k�t��=�wt J��_|i2�j�j?���,�o_9��mtZ��� �� �^ʵ�h�� ��i���@��5�wz�l�|���(��DW����/v}�յ�?j��R�w� h�[� ʋ� -��`�e�*0��� �� �qk;�c�,|�Kqr<�?<�Y*T�ة��Թg��x�[>����Fi��k'; qb� ^4[.��ή>�U#j����L�#�Ed��,9��@ �&�f1������7�/<�^t.� ��� �� 'C���W|��0t�d�Q|��u��8�O0AZ������f�JWc�&c�{qj��?��6���F���1�H�$��^,3��>��3 ���B%W����G�)H���)Mg�b8o:I&���W4 kI�_�K^I(�(*�ز�p�6?P�sf ��)�@�7�\J\� �Y�8 �ˑ ��4��Z�O)C�g-�� ����t����d.<H�"��8O� �4�HO�,;Ib�#�{��� ���!�#z��`[�ײ{�� n�s9�EW9qxHo�O��>.3[ �W���P�� rQN.�H,�)t�WiGq�;��;�*}(Zb#0�5�c�Ȯ�$�.C�+��2L���8� +`�/eah�>7,`���. ���LgZ �$ P6d.���[��8��Q3ć�>�p_����_�M~��R�y'k��#�2��d軯!e�WW��� � gI�;��^��[P�w�@^�� ���r�eb;���� �L��Y � �(ۢ 45 ��g� YZ .shstrtab .note.gnu.build-id .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .text .fini .rodata .eh_frame_hdr .eh_frame .init_array .fini_array .jcr .data.rel.ro .dynamic .got .got.plt .data .bss .gnu_debuglink .gnu_debugdata � � $ ���o � � � ( � � 0 �$ �$ � 8 ���o @8 @8 @ E ���o �: �: @ T �: �: 0� ^ �� �� � h �� �� c � � � n ` ` �� t � � z � � (3 � H� H� , � x� x� ,t � �k$ �k � �k$ �k � �k$ �k � �k$ �k h � m$ m � � �n$ �n � p$ p X � `v$ `v p � ��$ �� � � �� � �� < � Tix8.4.3/SGrid.tcl 0000644 00000013457 15231152137 0007431 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SGrid.tcl,v 1.6 2002/01/24 09:13:58 idiscovery Exp $ # # SGrid.tcl -- # # This file implements Scrolled Grid widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # x - # y - # X - # Y - #-------------------------------------------------------------------------- # tixWidgetClass tixScrolledGrid { -classname TixScrolledGrid -superclass tixScrolledWidget -method { } -flag { } -configspec { } -default { {.scrollbar auto} {*grid.borderWidth 1} {*grid.Background #c3c3c3} {*grid.highlightBackground #d9d9d9} {*grid.relief sunken} {*grid.takeFocus 1} {*Scrollbar.takeFocus 0} } } proc tixScrolledGrid:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:grid) [tixGrid $w.grid] set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal -takefocus 0] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical -takefocus 0] set data(pw:client) $data(w:grid) pack $data(w:grid) -expand yes -fill both -padx 0 -pady 0 } proc tixScrolledGrid:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:grid) config \ -xscrollcommand "$data(w:hsb) set"\ -yscrollcommand "$data(w:vsb) set"\ -sizecmd [list tixScrolledWidget:Configure $w] \ -formatcmd "tixCallMethod $w FormatCmd" $data(w:hsb) config -command "$data(w:grid) xview" $data(w:vsb) config -command "$data(w:grid) yview" bindtags $data(w:grid) \ "$data(w:grid) TixSGrid TixGrid [winfo toplevel $data(w:grid)] all" tixSetMegaWidget $data(w:grid) $w } #---------------------------------------------------------------------- # RAW event bindings #---------------------------------------------------------------------- proc tixScrolledGridBind {} { tixBind TixScrolledGrid <ButtonPress-1> { tixScrolledGrid:Button-1 [tixGetMegaWidget %W] %x %y } tixBind TixScrolledGrid <Shift-ButtonPress-1> { tixScrolledGrid:Shift-Button-1 %W %x %y } tixBind TixScrolledGrid <Control-ButtonPress-1> { tixScrolledGrid:Control-Button-1 %W %x %y } tixBind TixScrolledGrid <ButtonRelease-1> { tixScrolledGrid:ButtonRelease-1 %W %x %y } tixBind TixScrolledGrid <Double-ButtonPress-1> { tixScrolledGrid:Double-1 %W %x %y } tixBind TixScrolledGrid <B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixScrolledGrid:B1-Motion %W %x %y } tixBind TixScrolledGrid <Control-B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixScrolledGrid:Control-B1-Motion %W %x %y } tixBind TixScrolledGrid <B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixScrolledGrid:B1-Leave %W } tixBind TixScrolledGrid <B1-Enter> { tixScrolledGrid:B1-Enter %W %x %y } tixBind TixScrolledGrid <Control-B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixScrolledGrid:Control-B1-Leave %W } tixBind TixScrolledGrid <Control-B1-Enter> { tixScrolledGrid:Control-B1-Enter %W %x %y } # Keyboard bindings # tixBind TixScrolledGrid <Up> { tixScrolledGrid:DirKey %W up } tixBind TixScrolledGrid <Down> { tixScrolledGrid:DirKey %W down } tixBind TixScrolledGrid <Left> { tixScrolledGrid:DirKey %W left } tixBind TixScrolledGrid <Right> { tixScrolledGrid:DirKey %W right } tixBind TixScrolledGrid <Prior> { %W yview scroll -1 pages } tixBind TixScrolledGrid <Next> { %W yview scroll 1 pages } tixBind TixScrolledGrid <Return> { tixScrolledGrid:Return %W } tixBind TixScrolledGrid <space> { tixScrolledGrid:Space %W } } #---------------------------------------------------------------------- # # # Mouse bindings # # #---------------------------------------------------------------------- proc tixScrolledGrid:Button-1 {w x y} { if {[$w cget -state] == "disabled"} { return } if {[$w cget -takefocus]} { focus $w } case [tixScrolled:GetState $w] { {0} { tixScrolledGrid:GoState s1 $w $x $y } {b0} { tixScrolledGrid:GoState b1 $w $x $y } {m0} { tixScrolledGrid:GoState m1 $w $x $y } {e0} { tixScrolledGrid:GoState e1 $w $x $y } } } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- #---------------------------------------------------------------------- # Virtual Methods #---------------------------------------------------------------------- proc tixScrolledGrid:FormatCmd {w area x1 y1 x2 y2} { # do nothing } #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement #---------------------------------------------------------------------- proc tixScrolledGrid:GeometryInfo {w mW mH} { upvar #0 $w data if {$mW < 1} { set mW 1 } if {$mH < 1} { set mH 1 } return [$data(w:grid) geometryinfo $mW $mH] } Tix8.4.3/Grid.tcl 0000644 00000052241 15231152137 0007300 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Grid.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $ # # Grid.tcl -- # # This file defines the default bindings for Tix Grid widgets. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # afterId - Token returned by "after" for autoscanning. # fakeRelease - Cancel the ButtonRelease-1 after the user double click #-------------------------------------------------------------------------- # foreach fun {tkCancelRepeat} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun proc tixGridBind {} { tixBind TixGrid <ButtonPress-1> { tixGrid:Button-1 %W %x %y } tixBind TixGrid <Shift-ButtonPress-1> { tixGrid:Shift-Button-1 %W %x %y } tixBind TixGrid <Control-ButtonPress-1> { tixGrid:Control-Button-1 %W %x %y } tixBind TixGrid <ButtonRelease-1> { tixGrid:ButtonRelease-1 %W %x %y } tixBind TixGrid <Double-ButtonPress-1> { tixGrid:Double-1 %W %x %y } tixBind TixGrid <B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixGrid:B1-Motion %W %x %y } tixBind TixGrid <Control-B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixGrid:Control-B1-Motion %W %x %y } tixBind TixGrid <B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixGrid:B1-Leave %W } tixBind TixGrid <B1-Enter> { tixGrid:B1-Enter %W %x %y } tixBind TixGrid <Control-B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixGrid:Control-B1-Leave %W } tixBind TixGrid <Control-B1-Enter> { tixGrid:Control-B1-Enter %W %x %y } # Keyboard bindings # tixBind TixGrid <Up> { tixGrid:DirKey %W up } tixBind TixGrid <Down> { tixGrid:DirKey %W down } tixBind TixGrid <Left> { tixGrid:DirKey %W left } tixBind TixGrid <Right> { tixGrid:DirKey %W right } tixBind TixGrid <Prior> { %W yview scroll -1 pages } tixBind TixGrid <Next> { %W yview scroll 1 pages } tixBind TixGrid <Return> { tixGrid:Return %W } tixBind TixGrid <space> { tixGrid:Space %W } # # Don't use tixBind because %A causes Tk 8.3.2 to crash # bind TixGrid <MouseWheel> { %W yview scroll [expr {- (%D / 120) * 2}] units } } #---------------------------------------------------------------------- # # # Mouse bindings # # #---------------------------------------------------------------------- proc tixGrid:Button-1 {w x y} { if {[$w cget -state] eq "disabled"} { return } tixGrid:SetFocus $w if {[tixGrid:GetState $w] == 0} { tixGrid:GoState 1 $w $x $y } } proc tixGrid:Shift-Button-1 {w x y} { if {[$w cget -state] eq "disabled"} { return } tixGrid:SetFocus $w } proc tixGrid:Control-Button-1 {w x y} { if {[$w cget -state] eq "disabled"} { return } tixGrid:SetFocus $w case [tixGrid:GetState $w] { {s0} { tixGrid:GoState s1 $w $x $y } {b0} { tixGrid:GoState b1 $w $x $y } {m0} { tixGrid:GoState m1 $w $x $y } {e0} { tixGrid:GoState e10 $w $x $y } } } proc tixGrid:ButtonRelease-1 {w x y} { case [tixGrid:GetState $w] { {2} { tixGrid:GoState 5 $w $x $y } {4} { tixGrid:GoState 3 $w $x $y } } } proc tixGrid:B1-Motion {w x y} { case [tixGrid:GetState $w] { {2 4} { tixGrid:GoState 4 $w $x $y } } } proc tixGrid:Control-B1-Motion {w x y} { case [tixGrid:GetState $w] { {s2 s4} { tixGrid:GoState s4 $w $x $y } {b2 b4} { tixGrid:GoState b4 $w $x $y } {m2 m5} { tixGrid:GoState m4 $w $x $y } } } proc tixGrid:Double-1 {w x y} { case [tixGrid:GetState $w] { {s0} { tixGrid:GoState s7 $w $x $y } {b0} { tixGrid:GoState b7 $w $x $y } } } proc tixGrid:B1-Leave {w} { case [tixGrid:GetState $w] { {s2 s4} { tixGrid:GoState s5 $w } {b2 b4} { tixGrid:GoState b5 $w } {m2 m5} { tixGrid:GoState m8 $w } {e2 e5} { tixGrid:GoState e8 $w } } } proc tixGrid:B1-Enter {w x y} { case [tixGrid:GetState $w] { {s5 s6} { tixGrid:GoState s4 $w $x $y } {b5 b6} { tixGrid:GoState b4 $w $x $y } {m8 m9} { tixGrid:GoState m4 $w $x $y } {e8 e9} { tixGrid:GoState e4 $w $x $y } } } proc tixGrid:Control-B1-Leave {w} { case [tixGrid:GetState $w] { {s2 s4} { tixGrid:GoState s5 $w } {b2 b4} { tixGrid:GoState b5 $w } {m2 m5} { tixGrid:GoState m8 $w } } } proc tixGrid:Control-B1-Enter {w x y} { case [tixGrid:GetState $w] { {s5 s6} { tixGrid:GoState s4 $w $x $y } {b5 b6} { tixGrid:GoState b4 $w $x $y } {m8 m9} { tixGrid:GoState m4 $w $x $y } } } proc tixGrid:AutoScan {w} { case [tixGrid:GetState $w] { {s5 s6} { tixGrid:GoState s6 $w } {b5 b6} { tixGrid:GoState b6 $w } {m8 m9} { tixGrid:GoState m9 $w } {e8 e9} { tixGrid:GoState e9 $w } } } #---------------------------------------------------------------------- # # # Key bindings # # #---------------------------------------------------------------------- proc tixGrid:DirKey {w key} { if {[$w cget -state] eq "disabled"} { return } case [tixGrid:GetState $w] { {s0} { tixGrid:GoState s8 $w $key } {b0} { tixGrid:GoState b8 $w $key } } } proc tixGrid:Return {w} { if {[$w cget -state] eq "disabled"} { return } case [tixGrid:GetState $w] { {s0} { tixGrid:GoState s9 $w } {b0} { tixGrid:GoState b9 $w } } } proc tixGrid:Space {w} { if {[$w cget -state] eq "disabled"} { return } case [tixGrid:GetState $w] { {s0} { tixGrid:GoState s10 $w } {b0} { tixGrid:GoState b10 $w } } } #---------------------------------------------------------------------- # # STATE MANIPULATION # # #---------------------------------------------------------------------- proc tixGrid:GetState {w} { global $w:priv:state if {![info exists $w:priv:state]} { set $w:priv:state 0 } return [set $w:priv:state] } proc tixGrid:SetState {w n} { global $w:priv:state set $w:priv:state $n } proc tixGrid:GoState {n w args} { # puts "going from [tixGrid:GetState $w] --> $n" tixGrid:SetState $w $n eval tixGrid:GoState-$n $w $args } #---------------------------------------------------------------------- # SELECTION ROUTINES #---------------------------------------------------------------------- proc tixGrid:SelectSingle {w ent} { $w selection set [lindex $ent 0] [lindex $ent 1] tixGrid:CallBrowseCmd $w $ent } #---------------------------------------------------------------------- # SINGLE SELECTION #---------------------------------------------------------------------- proc tixGrid:GoState-0 {w} { set list $w:_list global $list if {[info exists $list]} { foreach cmd [set $list] { uplevel #0 $cmd } if {[info exists $list]} { unset $list } } } proc tixGrid:GoState-1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixGrid:SetAnchor $w $ent } tixGrid:CheckEdit $w $w selection clear 0 0 max max if {[$w cget -selectmode] ne "single"} { tixGrid:SelectSingle $w $ent } tixGrid:GoState 2 $w } proc tixGrid:GoState-2 {w} { } proc tixGrid:GoState-3 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixGrid:SelectSingle $w $ent } tixGrid:GoState 0 $w } proc tixGrid:GoState-5 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixGrid:SelectSingle $w $ent tixGrid:SetEdit $w $ent } tixGrid:GoState 0 $w } proc tixGrid:GoState-4 {w x y} { set ent [$w nearest $x $y] case [$w cget -selectmode] { single { tixGrid:SetAnchor $w $ent } browse { tixGrid:SetAnchor $w $ent $w selection clear 0 0 max max tixGrid:SelectSingle $w $ent } {multiple extended} { set anchor [$w anchor get] $w selection adjust [lindex $anchor 0] [lindex $anchor 1] \ [lindex $ent 0] [lindex $ent 1] } } } proc tixGrid:GoState-s5 {w} { tixGrid:StartScan $w } proc tixGrid:GoState-s6 {w} { global tkPriv tixGrid:DoScan $w } proc tixGrid:GoState-s7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixGrid:CallCommand $w $ent } tixGrid:GoState s0 $w } proc tixGrid:GoState-s8 {w key} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 } else { set anchor [$w info $key $anchor] } $w anchor set $anchor $w see $anchor tixGrid:GoState s0 $w } proc tixGrid:GoState-s9 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixGrid:CallCommand $w [$w info anchor] $w selection clear $w selection set $anchor } tixGrid:GoState s0 $w } proc tixGrid:GoState-s10 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixGrid:CallBrowseCmd $w [$w info anchor] $w selection clear $w selection set $anchor } tixGrid:GoState s0 $w } #---------------------------------------------------------------------- # BROWSE SELECTION #---------------------------------------------------------------------- proc tixGrid:GoState-b0 {w} { } proc tixGrid:GoState-b1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w selection clear $w selection set $ent tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState b2 $w } proc tixGrid:GoState-b2 {w} { } proc tixGrid:GoState-b3 {w} { set ent [$w info anchor] if {$ent != ""} { $w selection clear $w selection set $ent tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState b0 $w } proc tixGrid:GoState-b4 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w selection clear $w selection set $ent tixGrid:CallBrowseCmd $w $ent } } proc tixGrid:GoState-b5 {w} { tixGrid:StartScan $w } proc tixGrid:GoState-b6 {w} { global tkPriv tixGrid:DoScan $w } proc tixGrid:GoState-b7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixGrid:CallCommand $w $ent } tixGrid:GoState b0 $w } proc tixGrid:GoState-b8 {w key} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 } else { set anchor [$w info $key $anchor] } $w anchor set $anchor $w selection clear $w selection set $anchor $w see $anchor tixGrid:CallBrowseCmd $w $anchor tixGrid:GoState b0 $w } proc tixGrid:GoState-b9 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixGrid:CallCommand $w [$w info anchor] $w selection clear $w selection set $anchor } tixGrid:GoState b0 $w } proc tixGrid:GoState-b10 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixGrid:CallBrowseCmd $w [$w info anchor] $w selection clear $w selection set $anchor } tixGrid:GoState b0 $w } #---------------------------------------------------------------------- # MULTIPLE SELECTION #---------------------------------------------------------------------- proc tixGrid:GoState-m0 {w} { } proc tixGrid:GoState-m1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w selection clear $w selection set $ent tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState m2 $w } proc tixGrid:GoState-m2 {w} { } proc tixGrid:GoState-m3 {w} { set ent [$w info anchor] if {$ent != ""} { tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState m0 $w } proc tixGrid:GoState-m4 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$to != ""} { $w selection clear $w selection set $from $to tixGrid:CallBrowseCmd $w $to } tixGrid:GoState m5 $w } proc tixGrid:GoState-m5 {w} { } proc tixGrid:GoState-m6 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState m0 $w } proc tixGrid:GoState-m7 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$from == ""} { set from $to $w anchor set $from } if {$to != ""} { $w selection clear $w selection set $from $to tixGrid:CallBrowseCmd $w $to } tixGrid:GoState m5 $w } proc tixGrid:GoState-m8 {w} { tixGrid:StartScan $w } proc tixGrid:GoState-m9 {w} { tixGrid:DoScan $w } proc tixGrid:GoState-xm7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixGrid:CallCommand $w $ent } tixGrid:GoState m0 $w } #---------------------------------------------------------------------- # EXTENDED SELECTION #---------------------------------------------------------------------- proc tixGrid:GoState-e0 {w} { } proc tixGrid:GoState-e1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w selection clear $w selection set $ent tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState e2 $w } proc tixGrid:GoState-e2 {w} { } proc tixGrid:GoState-e3 {w} { set ent [$w info anchor] if {$ent != ""} { tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState e0 $w } proc tixGrid:GoState-e4 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$to != ""} { $w selection clear $w selection set $from $to tixGrid:CallBrowseCmd $w $to } tixGrid:GoState e5 $w } proc tixGrid:GoState-e5 {w} { } proc tixGrid:GoState-e6 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState e0 $w } proc tixGrid:GoState-e7 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$from == ""} { set from $to $w anchor set $from } if {$to != ""} { $w selection clear $w selection set $from $to tixGrid:CallBrowseCmd $w $to } tixGrid:GoState e5 $w } proc tixGrid:GoState-e8 {w} { tixGrid:StartScan $w } proc tixGrid:GoState-e9 {w} { tixGrid:DoScan $w } proc tixGrid:GoState-e10 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { if {[$w info anchor] == ""} { $w anchor set $ent } if {[$w selection includes $ent]} { $w selection clear $ent } else { $w selection set $ent } tixGrid:CallBrowseCmd $w $ent } tixGrid:GoState e2 $w } proc tixGrid:GoState-xm7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixGrid:CallCommand $w $ent } tixGrid:GoState e0 $w } #---------------------------------------------------------------------- # HODGE PODGE #---------------------------------------------------------------------- proc tixGrid:GoState-12 {w x y} { tkCancelRepeat tixGrid:GoState 5 $w $x $y } proc tixGrid:GoState-13 {w ent oldEnt} { global tkPriv set tkPriv(tix,indicator) $ent set tkPriv(tix,oldEnt) $oldEnt tixGrid:IndicatorCmd $w <Arm> $ent } proc tixGrid:GoState-14 {w x y} { global tkPriv if {[tixGrid:InsideArmedIndicator $w $x $y]} { $w anchor set $tkPriv(tix,indicator) $w select clear $w select set $tkPriv(tix,indicator) tixGrid:IndicatorCmd $w <Activate> $tkPriv(tix,indicator) } else { tixGrid:IndicatorCmd $w <Disarm> $tkPriv(tix,indicator) } unset tkPriv(tix,indicator) tixGrid:GoState 0 $w } proc tixGrid:GoState-16 {w ent} { if {$ent == ""} { return } if {[$w cget -selectmode] ne "single"} { tixGrid:Select $w $ent tixGrid:Browse $w $ent } } proc tixGrid:GoState-18 {w} { global tkPriv tkCancelRepeat tixGrid:GoState 6 $w $tkPriv(x) $tkPriv(y) } proc tixGrid:GoState-20 {w x y} { global tkPriv if {![tixGrid:InsideArmedIndicator $w $x $y]} { tixGrid:GoState 21 $w $x $y } else { tixGrid:IndicatorCmd $w <Arm> $tkPriv(tix,indicator) } } proc tixGrid:GoState-21 {w x y} { global tkPriv if {[tixGrid:InsideArmedIndicator $w $x $y]} { tixGrid:GoState 20 $w $x $y } else { tixGrid:IndicatorCmd $w <Disarm> $tkPriv(tix,indicator) } } proc tixGrid:GoState-22 {w} { global tkPriv if {$tkPriv(tix,oldEnt) != ""} { $w anchor set $tkPriv(tix,oldEnt) } else { $w anchor clear } tixGrid:GoState 0 $w } #---------------------------------------------------------------------- # callback actions #---------------------------------------------------------------------- proc tixGrid:SetAnchor {w ent} { if {$ent ne ""} { $w anchor set [lindex $ent 0] [lindex $ent 1] # $w see $ent } } proc tixGrid:Select {w ent} { $w selection clear $w select set $ent } proc tixGrid:StartScan {w} { global tkPriv set tkPriv(afterId) [after 50 tixGrid:AutoScan $w] } proc tixGrid:DoScan {w} { global tkPriv set x $tkPriv(x) set y $tkPriv(y) set X $tkPriv(X) set Y $tkPriv(Y) set out 0 if {$y >= [winfo height $w]} { $w yview scroll 1 units set out 1 } if {$y < 0} { $w yview scroll -1 units set out 1 } if {$x >= [winfo width $w]} { $w xview scroll 2 units set out 1 } if {$x < 0} { $w xview scroll -2 units set out 1 } if {$out} { set tkPriv(afterId) [after 50 tixGrid:AutoScan $w] } } proc tixGrid:CallBrowseCmd {w ent} { return set browsecmd [$w cget -browsecmd] if {$browsecmd != ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $browsecmd bind $ent } } proc tixGrid:CallCommand {w ent} { set command [$w cget -command] if {$command != ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $command bind $ent } } # tixGrid:EditCell -- # # This command is called when "$w edit set $x $y" is called. It causes # an SetEdit call when the grid's state is 0. # proc tixGrid:EditCell {w x y} { set list $w:_list global $list if {[tixGrid:GetState $w] == 0} { tixGrid:SetEdit $w [list $x $y] } else { lappend $list [list tixGrid:SetEdit $w [list $x $y]] } } # tixGrid:EditApply -- # # This command is called when "$w edit apply $x $y" is called. It causes # an CheckEdit call when the grid's state is 0. # proc tixGrid:EditApply {w} { set list $w:_list global $list if {[tixGrid:GetState $w] == 0} { tixGrid:CheckEdit $w } else { lappend $list [list tixGrid:CheckEdit $w] } } # tixGrid:CheckEdit -- # # This procedure is called when the user sets the focus on a cell. # If another cell is being edited, apply the changes of that cell. # proc tixGrid:CheckEdit {w} { set edit $w.tixpriv__edit if {[winfo exists $edit]} { # # If it -command is not empty, it is being used for another cell. # Invoke it so that the other cell can be updated. # if {[$edit cget -command] ne ""} { $edit invoke } } } # tixGrid:SetEdit -- # # Puts a floatentry on top of an editable entry. # proc tixGrid:SetEdit {w ent} { set edit $w.tixpriv__edit tixGrid:CheckEdit $w set editnotifycmd [$w cget -editnotifycmd] if {$editnotifycmd eq ""} { return } set px [lindex $ent 0] set py [lindex $ent 1] if {![uplevel #0 $editnotifycmd $px $py]} { return } if {[$w info exists $px $py]} { if [catch { set oldValue [$w entrycget $px $py -text] }] { # The entry doesn't support -text option. Can't edit it. # # If the application wants to force editing of an entry, it could # delete or replace the entry in the editnotifyCmd procedure. # return } } else { set oldValue "" } set bbox [$w info bbox [lindex $ent 0] [lindex $ent 1]] set x [lindex $bbox 0] set y [lindex $bbox 1] set W [lindex $bbox 2] set H [lindex $bbox 3] if {![winfo exists $edit]} { tixFloatEntry $edit } $edit config -command "tixGrid:DoneEdit $w $ent" $edit post $x $y $W $H $edit config -value $oldValue } proc tixGrid:DoneEdit {w x y args} { set edit $w.tixpriv__edit $edit config -command "" $edit unpost set value [tixEvent value] if {[$w info exists $x $y]} { if [catch { $w entryconfig $x $y -text $value }] { return } } elseif {$value ne ""} { if {[catch { # This needs to be catch'ed because the default itemtype may # not support the -text option # $w set $x $y -text $value }]} { return } } else { return } set editDoneCmd [$w cget -editdonecmd] if {$editDoneCmd ne ""} { uplevel #0 $editDoneCmd $x $y } } proc tixGrid:SetFocus {w} { if {[$w cget -takefocus] && ![string match $w.* [focus -displayof $w]]} { focus $w } } Tix8.4.3/LabFrame.tcl 0000644 00000002235 15231152137 0010062 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: LabFrame.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # LabFrame.tcl -- # # TixLabelFrame Widget: a frame box with a label # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixLabelFrame { -classname TixLabelFrame -superclass tixLabelWidget -method { frame } -flag {} -static {} -configspec { {-labelside labelSide LabelSide acrosstop} {-padx padX Pad 2} {-pady padY Pad 2} } -alias {} -default { {*Label.anchor c} {.frame.borderWidth 2} {.frame.relief groove} {.border.borderWidth 2} {.border.relief groove} {.borderWidth 2} {.padX 2} {.padY 2} {.anchor sw} } } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixLabelFrame:frame {w args} { return [eval tixCallMethod $w subwidget frame $args] } Tix8.4.3/FileCbx.tcl 0000644 00000004663 15231152137 0007734 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FileCbx.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # tixFileCombobox -- # # A combobox widget for entering file names, directory names, file # patterns, etc. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixFileComboBox displays and accepts the DOS pathnames only. It doesn't # recognize UNC file names or Tix VPATHS. # tixWidgetClass tixFileComboBox { -classname TixFileComboBox -superclass tixPrimitive -method { invoke } -flag { -command -defaultfile -directory -text } -forcecall { -directory } -configspec { {-defaultfile defaultFile DefaultFile ""} {-directory directory Directory ""} {-command command Command ""} {-text text Text ""} } -default { } } proc tixFileComboBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec if {$data(-directory) eq ""} { set data(-directory) [pwd] } } proc tixFileComboBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:combo) [tixComboBox $w.combo -editable true -dropdown true] pack $data(w:combo) -expand yes -fill both } proc tixFileComboBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:combo) config -command [list tixFileComboBox:OnComboCmd $w] } proc tixFileComboBox:OnComboCmd {w args} { upvar #0 $w data set text [string trim [tixEvent value]] set path [tixFSJoin $data(-directory) $text] if {[file isdirectory $path]} { set path [tixFSJoin $path $data(-defaultfile)] set tail $data(-defaultfile) } else { set tail [file tail $path] } set norm [tixFSNormalize $path] tixSetSilent $data(w:combo) $norm if {[llength $data(-command)]} { set bind(specs) {%V} set bind(%V) [list $norm $path $tail ""] tixEvalCmdBinding $w $data(-command) bind $bind(%V) } } proc tixFileComboBox:config-text {w val} { upvar #0 $w data tixSetSilent $data(w:combo) $val } proc tixFileComboBox:config-directory {w val} { upvar #0 $w data set data(-directory) [tixFSNormalize $val] return $data(-directory) } proc tixFileComboBox:invoke {w} { upvar #0 $w data $data(w:combo) invoke } Tix8.4.3/FloatEnt.tcl 0000644 00000006150 15231152137 0010125 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FloatEnt.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # FloatEnt.tcl -- # # An entry widget that can be attached on top of any widget to # provide dynamic editing. It is used to provide dynamic editing # for the tixGrid widget, among other things. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixFloatEntry { -classname TixFloatEntry -superclass tixPrimitive -method { invoke post unpost } -flag { -command -value } -configspec { {-value value Value ""} {-command command Command ""} } -default { {.entry.highlightThickness 0} } } #---------------------------------------------------------------------- # # Initialization bindings # #---------------------------------------------------------------------- proc tixFloatEntry:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixFloatEntry:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:entry) [entry $w.entry] pack $data(w:entry) -expand yes -fill both } proc tixFloatEntry:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixBind $data(w:entry) <Return> [list tixFloatEntry:invoke $w] } #---------------------------------------------------------------------- # # Class bindings # #---------------------------------------------------------------------- proc tixFloatEntryBind {} { tixBind TixFloatEntry <FocusIn> { if {[focus -displayof [set %W(w:entry)]] ne [set %W(w:entry)]} { focus [%W subwidget entry] [set %W(w:entry)] selection from 0 [set %W(w:entry)] selection to end [set %W(w:entry)] icursor end } } } #---------------------------------------------------------------------- # # Public methods # #---------------------------------------------------------------------- proc tixFloatEntry:post {w x y {width ""} {height ""}} { upvar #0 $w data if {$width == ""} { set width [winfo reqwidth $data(w:entry)] } if {$height == ""} { set height [winfo reqheight $data(w:entry)] } place $w -x $x -y $y -width $width -height $height -bordermode ignore raise $w focus $data(w:entry) } proc tixFloatEntry:unpost {w} { upvar #0 $w data place forget $w } proc tixFloatEntry:config-value {w val} { upvar #0 $w data $data(w:entry) delete 0 end $data(w:entry) insert 0 $val $data(w:entry) selection from 0 $data(w:entry) selection to end $data(w:entry) icursor end } #---------------------------------------------------------------------- # # Private methods # #---------------------------------------------------------------------- proc tixFloatEntry:invoke {w} { upvar #0 $w data if {[llength $data(-command)]} { set bind(specs) {%V} set bind(%V) [$data(w:entry) get] tixEvalCmdBinding $w $data(-command) bind $bind(%V) } } Tix8.4.3/Init.tcl 0000644 00000014067 15231152137 0007322 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Init.tcl,v 1.18 2008/02/28 04:35:16 hobbs Exp $ # # Init.tcl -- # # Initializes the Tix library and performes version checking to ensure # the Tcl, Tk and Tix script libraries loaded matches with the binary # of the respective packages. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # namespace eval ::tix { } proc tixScriptVersion {} { return $::tix_version } proc tixScriptPatchLevel {} { return $::tix_patchLevel } proc ::tix::Init {dir} { global tix env tix_library tcl_platform auto_path if {[info exists tix(initialized)]} { return } if {![info exists tix_library]} { # we're running from stand-alone module. set tix_library "" } elseif {[file isdir $tix_library]} { if {![info exists auto_path] || [lsearch $auto_path $tix_library] == -1} { lappend auto_path $tix_library } } # STEP 1: Version checking # # package require Tcl 8.4 package require -exact Tix 8.4.3 # STEP 2: Initialize file compatibility modules # foreach file { fs.tcl Tix.tcl Event.tcl Balloon.tcl BtnBox.tcl CObjView.tcl ChkList.tcl ComboBox.tcl Compat.tcl Console.tcl Control.tcl DefSchm.tcl DialogS.tcl DirBox.tcl DirDlg.tcl DirList.tcl DirTree.tcl DragDrop.tcl DtlList.tcl EFileBox.tcl EFileDlg.tcl FileBox.tcl FileCbx.tcl FileDlg.tcl FileEnt.tcl FloatEnt.tcl Grid.tcl HList.tcl HListDD.tcl IconView.tcl LabEntry.tcl LabFrame.tcl LabWidg.tcl ListNBk.tcl Meter.tcl MultView.tcl NoteBook.tcl OldUtil.tcl OptMenu.tcl PanedWin.tcl PopMenu.tcl Primitiv.tcl ResizeH.tcl SGrid.tcl SHList.tcl SListBox.tcl STList.tcl SText.tcl SWidget.tcl SWindow.tcl Select.tcl Shell.tcl SimpDlg.tcl StackWin.tcl StatBar.tcl StdBBox.tcl StdShell.tcl TList.tcl Tree.tcl Utils.tcl VResize.tcl VStack.tcl VTree.tcl Variable.tcl WInfo.tcl } { uplevel \#0 [list source [file join $dir $file]] } # STEP 3: Initialize the Tix application context # tixAppContext tix # DO NOT DO THIS HERE !! # This causes the global defaults to be altered, which may not # be desirable. The user can call this after requiring Tix if # they wish to use different defaults. # #tix initstyle # STEP 4: Initialize the bindings for widgets that are implemented in C # foreach w { HList TList Grid ComboBox Control FloatEntry LabelEntry ScrolledGrid ScrolledListBox } { tix${w}Bind } rename ::tix::Init "" } # tixWidgetClassEx -- # # This procedure is similar to tixWidgetClass, except it # performs a [subst] on the class declaration before evaluating # it. This gives us a chance to specify platform-specific widget # default without using a lot of ugly double quotes. # # The use of subst'able entries in the class declaration should # be restrained to widget default values only to avoid producing # unreadable code. # # Arguments: # name - The name of the class to declare. # classDecl - Various declarations about the class. See documentation # of tixWidgetClass for details. proc tixWidgetClassEx {name classDecl} { tixWidgetClass $name [uplevel [list subst $classDecl]] } # # Deprecated tix* functions # interp alias {} tixFileJoin {} file join interp alias {} tixStrEq {} string equal proc tixTrue {args} { return 1 } proc tixFalse {args} { return 0 } proc tixStringSub {var fromStr toStr} { upvar 1 var var set var [string map $var [list $fromStr $toStr]] } proc tixGetBoolean {args} { set len [llength [info level 0]] set nocomplain 0 if {$len == 3} { if {[lindex $args 0] ne "-nocomplain"} { return -code error "wrong \# args:\ must be [lindex [info level 0] 0] ?-nocomplain? string" } set nocomplain 1 set val [lindex $args 1] } elseif {$len != 2} { return -code error "wrong \# args:\ must be [lindex [info level 0] 0] ?-nocomplain? string" } else { set val [lindex $args 0] } if {[string is boolean -strict $val] || $nocomplain} { return [string is true -strict $val] } elseif {$nocomplain} { return 0 } else { return -code error "\"$val\" is not a valid boolean" } } interp alias {} tixVerifyBoolean {} tixGetBoolean proc tixGetInt {args} { set len [llength [info level 0]] set nocomplain 0 set trunc 0 for {set i 1} {$i < $len-1} {incr i} { set arg [lindex $args 0] if {$arg eq "-nocomplain"} { set nocomplain 1 } elseif {$arg eq "-trunc"} { set trunc 1 } else { return -code error "wrong \# args: must be\ [lindex [info level 0] 0] ?-nocomplain? ?-trunc? string" } } if {$i != $len-1} { return -code error "wrong \# args: must be\ [lindex [info level 0] 0] ?-nocomplain? ?-trunc? string" } set val [lindex $args end] set code [catch {expr {round($val)}} res] if {$code} { if {$nocomplain} { return 0 } else { return -code error "\"$val\" cannot be converted to integer" } } if {$trunc} { return [expr {int($val)}] } else { return $res } } proc tixFile {option filename} { set len [string length $option] if {$len > 1 && [string equal -length $len $option "tildesubst"]} { set code [catch {file normalize $filename} res] if {$code == 0} { set filename $res } } elseif {$len > 1 && [string equal -length $len $option "trimslash"]} { # normalize extra slashes set filename [file join $filename] if {$filename ne "/"} { set filename [string trimright $filename "/"] } } else { return -code error "unknown option \"$option\",\ must be tildesubst or trimslash" } return $filename } interp alias {} tixRaiseWindow {} raise #proc tixUnmapWindow {w} { } # # if tix_library is not defined, we're running in SAM mode. ::tix::Init # will be called later by the Tix_Init() C code. # if {[info exists tix_library]} { ::tix::Init [file dirname [info script]] } Tix8.4.3/Select.tcl 0000644 00000016044 15231152137 0007633 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Select.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # Select.tcl -- # # Implement the tixSelect widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixSelect { -superclass tixLabelWidget -classname TixSelect -method { add button invoke } -flag { -allowzero -buttontype -command -disablecallback -orientation -orient -padx -pady -radio -selectedbg -state -validatecmd -value -variable } -forcecall { -variable -state } -static { -allowzero -orientation -padx -pady -radio } -configspec { {-allowzero allowZero AllowZero 0 tixVerifyBoolean} {-buttontype buttonType ButtonType button} {-command command Command ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-orientation orientation Orientation horizontal} {-padx padx Pad 0} {-pady pady Pad 0} {-radio radio Radio 0 tixVerifyBoolean} {-selectedbg selectedBg SelectedBg gray} {-state state State normal} {-validatecmd validateCmd ValidateCmd ""} {-value value Value ""} {-variable variable Variable ""} } -alias { {-orient -orientation} } -default { {*frame.borderWidth 1} {*frame.relief sunken} {*Button.borderWidth 2} {*Button.highlightThickness 0} } } proc tixSelect:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(items) "" set data(buttonbg) "" set data(varInited) 0 } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixSelect:config-state {w arg} { upvar #0 $w data if {$arg == "disabled"} { foreach item $data(items) { $data(w:$item) config -state disabled -relief raised \ -bg $data(buttonbg) } if {![info exists data(labelFg)]} { set data(labelFg) [$data(w:label) cget -foreground] catch { $data(w:label) config -fg [tix option get disabled_fg] } } } else { foreach item $data(items) { if {[lsearch $data(-value) $item] != -1} { # This button is selected # $data(w:$item) config -relief sunken -bg $data(-selectedbg) \ -state normal } else { $data(w:$item) config -relief raised -bg $data(buttonbg) \ -command "$w invoke $item" -state normal } } if {[info exists data(labelFg)]} { catch { $data(w:label) config -fg $data(labelFg) } unset data(labelFg) } } return "" } proc tixSelect:config-variable {w arg} { upvar #0 $w data set oldValue $data(-value) if {[tixVariable:ConfigVariable $w $arg]} { # The value of data(-value) is changed if tixVariable:ConfigVariable # returns true set newValue $data(-value) set data(-value) $oldValue tixSelect:config-value $w $newValue } catch { unset data(varInited) } set data(-variable) $arg } proc tixSelect:config-value {w value} { upvar #0 $w data # sanity checking # foreach item $value { if {[lsearch $data(items) $item] == "-1"} { error "subwidget \"$item\" does not exist" } } tixSelect:SetValue $w $value } #---------------------------------------------------------------------- # WIDGET COMMANDS #---------------------------------------------------------------------- proc tixSelect:add {w name args} { upvar #0 $w data set data(w:$name) [eval $data(-buttontype) $data(w:frame).$name -command \ [list "$w invoke $name"] -takefocus 0 $args] if {$data(-orientation) == "horizontal"} { pack $data(w:$name) -side left -expand yes -fill y\ -padx $data(-padx) -pady $data(-pady) } else { pack $data(w:$name) -side top -expand yes -fill x\ -padx $data(-padx) -pady $data(-pady) } if {$data(-state) == "disabled"} { $data(w:$name) config -relief raised -state disabled } # find out the background of the buttons # if {$data(buttonbg) == ""} { set data(buttonbg) [lindex [$data(w:$name) config -background] 4] } lappend data(items) $name } # Obsolete command # proc tixSelect:button {w name args} { upvar #0 $w data if {$args != ""} { return [eval $data(w:$name) $args] } else { return $w.$name } } # This is called when a button is invoked # proc tixSelect:invoke {w button} { upvar #0 $w data if {$data(-state) != "normal"} { return } set newValue $data(-value) if {[lsearch $data(-value) $button] != -1} { # This button was selected # if {[llength $data(-value)] > 1 || [tixGetBoolean $data(-allowzero)]} { # Take the button from the selected list # set newValue "" foreach item $data(-value) { if {$item != $button} { lappend newValue $item } } } } else { # This button was not selected # if {[tixGetBoolean $data(-radio)]} { # The button become the sole item in the list # set newValue [list $button] } else { # Add this button into the list # lappend newValue $button } } if {$newValue != $data(-value)} { tixSelect:SetValue $w $newValue } } #---------------------------------------------------------------------- # Private functions #---------------------------------------------------------------------- proc tixSelect:SetValue {w newValue {noUpdate 0}} { upvar #0 $w data set oldValue $data(-value) if {$data(-validatecmd) != ""} { set data(-value) [tixEvalCmdBinding $w $data(-validatecmd) "" $newValue] } else { if {[tixGetBoolean $data(-radio)] && [llength $newValue] > 1} { error "cannot choose more than one items in a radio box" } if {![tixGetBoolean $data(-allowzero)] && [llength $newValue] == 0} { error "empty selection not allowed" } set data(-value) $newValue } if {! $noUpdate} { tixVariable:UpdateVariable $w } # Reset all to be unselected # foreach item $data(items) { if {[lsearch $data(-value) $item] == -1} { # Is unselected # if {[lsearch $oldValue $item] != -1} { # was selected # -> popup the button, call command # $data(w:$item) config -relief raised -bg $data(buttonbg) tixSelect:CallCommand $w $item 0 } } else { # Is selected # if {[lsearch $oldValue $item] == -1} { # was unselected # -> push down the button, call command # $data(w:$item) config -relief sunken -bg $data(-selectedbg) tixSelect:CallCommand $w $item 1 } } } } proc tixSelect:CallCommand {w name value} { upvar #0 $w data if {!$data(-disablecallback) && $data(-command) != ""} { if {![info exists data(varInited)]} { set bind(specs) "name value" set bind(name) $name set bind(value) $value tixEvalCmdBinding $w $data(-command) bind $name $value } } } proc tixSelect:Destructor {w} { tixVariable:DeleteVariable $w # Chain this to the superclass # tixChainMethod $w Destructor } Tix8.4.3/StackWin.tcl 0000644 00000003710 15231152137 0010133 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StackWin.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $ # # StackWin.tcl -- # # Similar to NoteBook but uses a Select widget to represent the pages. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixStackWindow { -classname TixStackWindow -superclass tixVStack -method { } -flag { } -configspec { } } proc tixStackWindow:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:tabs) [tixSelect $w.tabs] # We can't use the packer because it will conflict with the # geometry management of the VStack widget. # tixManageGeometry $data(w:tabs) [list tixVStack:ClientGeomProc $w] } proc tixStackWindow:add {w child args} { upvar #0 $w data set ret [eval [list tixChainMethod $w add $child] $args] # Find out the -label option # foreach {flag value} $args { if {$flag eq "-label"} { set label $value } } $data(w:tabs) add $child -command [list $w raise $child] -text $label return $ret } proc tixStackWindow:raise {w child} { upvar #0 $w data $data(w:tabs) config -value $child tixChainMethod $w raise $child } proc tixStackWindow:Resize {w} { upvar #0 $w data # We have to take care of the size of the tabs so that # set tW [winfo reqwidth $data(w:tabs)] set tH [winfo reqheight $data(w:tabs)] tixMoveResizeWindow $data(w:tabs) $data(-ipadx) $data(-ipady) $tW $tH tixMapWindow $data(w:tabs) set data(pad-y1) [expr $tH + $data(-ipadx)] set data(minW) [expr $tW + 2 * $data(-ipadx)] set data(minH) [expr $tH + 2 * $data(-ipady)] # Now that we know data(pad-y1), we can chain the call # tixChainMethod $w Resize } Tix8.4.3/DirTree.tcl 0000644 00000021414 15231152137 0007747 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DirTree.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # DirTree.tcl -- # # Implements directory tree for Unix file systems # # What the indicators mean: # # (+): There are some subdirectories in this directory which are not # currently visible. # (-): This directory has some subdirectories and they are all visible # # none: The dir has no subdirectori(es). # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # ## ## The tixDirTree require special FS handling due to it's limited ## separator idea (instead of real tree). ## tixWidgetClass tixDirTree { -classname TixDirTree -superclass tixVTree -method { activate chdir refresh } -flag { -browsecmd -command -directory -disablecallback -showhidden -value } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-showhidden showHidden ShowHidden 0 tixVerifyBoolean} {-value value Value ""} } -alias { {-directory -value} } -default { {.scrollbar auto} {*Scrollbar.takeFocus 0} {*borderWidth 1} {*hlist.indicator 1} {*hlist.background #c3c3c3} {*hlist.drawBranch 1} {*hlist.height 10} {*hlist.highlightBackground #d9d9d9} {*hlist.indent 20} {*hlist.itemType imagetext} {*hlist.padX 3} {*hlist.padY 0} {*hlist.relief sunken} {*hlist.takeFocus 1} {*hlist.wideSelection 0} {*hlist.width 20} } } proc tixDirTree:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec if {$data(-value) == ""} { set data(-value) [pwd] } tixDirTree:SetDir $w [file normalize $data(-value)] } proc tixDirTree:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget tixDoWhenMapped $w [list tixDirTree:StartUp $w] $data(w:hlist) config -separator [tixFSSep] \ -selectmode "single" -drawbranch 1 # We must creat an extra copy of these images to avoid flashes on # the screen when user changes directory # set data(images) [image create compound -window $data(w:hlist)] $data(images) add image -image [tix getimage act_fold] $data(images) add image -image [tix getimage folder] $data(images) add image -image [tix getimage openfold] } proc tixDirTree:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings } # Add one dir into the node (parent directory), sorted alphabetically # proc tixDirTree:AddToList {w fsdir image} { upvar #0 $w data set dir [tixFSInternal $fsdir] if {[$data(w:hlist) info exists $dir]} { return } set parent [file dirname $fsdir] if {$fsdir eq $parent} { # root node set node "" } else { # regular node set node [tixFSInternal $parent] } set added 0 set text [tixFSDisplayFileName $fsdir] foreach sib [$data(w:hlist) info children $node] { if {[string compare $dir $sib] < 0} { $data(w:hlist) add $dir -before $sib -text $text -image $image set added 1 break } } if {!$added} { $data(w:hlist) add $dir -text $text -image $image } # Check to see if we have children (%% optimize!) if {[llength [tixFSListDir $fsdir 1 0 0 $data(-showhidden)]]} { tixVTree:SetMode $w $dir open } } proc tixDirTree:LoadDir {w fsdir {mode toggle}} { if {![winfo exists $w]} { return } upvar #0 $w data # Add the directory and set it to the active directory # set fsdir [tixFSNormalize $fsdir] set dir [tixFSInternal $fsdir] if {![$data(w:hlist) info exists $dir]} { # Add $dir and all ancestors of $dir into the HList widget set fspath "" set imgopenfold [tix getimage openfold] foreach part [tixFSAncestors $fsdir] { set fspath [file join $fspath $part] tixDirTree:AddToList $w $fspath $imgopenfold } } $data(w:hlist) entryconfig $dir -image [tix getimage act_fold] if {$mode eq "toggle"} { if {[llength [$data(w:hlist) info children $dir]]} { set mode flatten } else { set mode expand } } if {$mode eq "expand"} { # Add all the sub directories of fsdir into the HList widget tixBusy $w on $data(w:hlist) set imgfolder [tix getimage folder] foreach part [tixFSListDir $fsdir 1 0 0 $data(-showhidden)] { tixDirTree:AddToList $w [file join $fsdir $part] $imgfolder } tixWidgetDoWhenIdle tixBusy $w off $data(w:hlist) # correct indicator to represent children status (added above) if {[llength [$data(w:hlist) info children $dir]]} { tixVTree:SetMode $w $dir close } else { tixVTree:SetMode $w $dir none } } else { $data(w:hlist) delete offsprings $dir tixVTree:SetMode $w $dir open } } proc tixDirTree:ToggleDir {w value mode} { upvar #0 $w data tixDirTree:LoadDir $w $value $mode tixDirTree:CallCommand $w } proc tixDirTree:CallCommand {w} { upvar #0 $w data if {[llength $data(-command)] && !$data(-disablecallback)} { set bind(specs) {%V} set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-command) bind $data(-value) } } proc tixDirTree:CallBrowseCmd {w ent} { upvar #0 $w data if {[llength $data(-browsecmd)] && !$data(-disablecallback)} { set bind(specs) {%V} set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-browsecmd) bind [list $data(-value)] } } proc tixDirTree:StartUp {w} { if {![winfo exists $w]} { return } upvar #0 $w data # make sure that all the basic volumes are listed set imgopenfold [tix getimage openfold] foreach fspath [tixFSVolumes] { tixDirTree:AddToList $w $fspath $imgopenfold } tixDirTree:LoadDir $w [tixFSExternal $data(i-directory)] } proc tixDirTree:ChangeDir {w fsdir {forced 0}} { upvar #0 $w data set dir [tixFSInternal $fsdir] if {!$forced && $data(i-directory) eq $dir} { return } if {!$forced && [$data(w:hlist) info exists $dir]} { # Set the old directory to "non active" # if {[$data(w:hlist) info exists $data(i-directory)]} { $data(w:hlist) entryconfig $data(i-directory) \ -image [tix getimage folder] } $data(w:hlist) entryconfig $dir -image [tix getimage act_fold] } else { if {$forced} { if {[llength [$data(w:hlist) info children $dir]]} { set mode expand } else { set mode flatten } } else { set mode toggle } tixDirTree:LoadDir $w $fsdir $mode tixDirTree:CallCommand $w } tixDirTree:SetDir $w $fsdir } proc tixDirTree:SetDir {w path} { upvar #0 $w data set data(i-directory) [tixFSInternal $path] set data(-value) [tixFSNativeNorm $path] } #---------------------------------------------------------------------- # # Virtual Methods # #---------------------------------------------------------------------- proc tixDirTree:OpenCmd {w ent} { set fsdir [tixFSExternal $ent] tixDirTree:ToggleDir $w $fsdir expand tixDirTree:ChangeDir $w $fsdir tixDirTree:CallBrowseCmd $w $fsdir } proc tixDirTree:CloseCmd {w ent} { set fsdir [tixFSExternal $ent] tixDirTree:ToggleDir $w $fsdir flatten tixDirTree:ChangeDir $w $fsdir tixDirTree:CallBrowseCmd $w $fsdir } proc tixDirTree:Command {w B} { upvar #0 $w data upvar $B bind set ent [tixEvent flag V] tixChainMethod $w Command $B if {[llength $data(-command)]} { set fsdir [tixFSExternal $ent] tixEvalCmdBinding $w $data(-command) bind $fsdir } } # This is a virtual method # proc tixDirTree:BrowseCmd {w B} { upvar #0 $w data upvar 1 $B bind set ent [tixEvent flag V] set fsdir [tixFSExternal $ent] # This is a hack because %V may have been modified by callbrowsecmd set fsdir [file normalize $fsdir] tixDirTree:ChangeDir $w $fsdir tixDirTree:CallBrowseCmd $w $fsdir } #---------------------------------------------------------------------- # # Public Methods # #---------------------------------------------------------------------- proc tixDirTree:chdir {w value} { tixDirTree:ChangeDir $w [file normalize $value] } proc tixDirTree:refresh {w {dir ""}} { upvar #0 $w data if {$dir eq ""} { set dir $data(-value) } set dir [file normalize $dir] tixDirTree:ChangeDir $w $dir 1 # Delete any stale directories that no longer exist # foreach child [$data(w:hlist) info children [tixFSInternal $dir]] { if {![file exists [tixFSExternal $child]]} { $data(w:hlist) delete entry $child } } } proc tixDirTree:config-directory {w value} { tixDirTree:ChangeDir $w [file normalize $value] } Tix8.4.3/Console.tcl 0000644 00000035717 15231152137 0010026 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Console.tcl,v 1.5 2008/02/27 22:17:28 hobbs Exp $ # # Console.tcl -- # # This code constructs the console window for an application. # It can be used by non-unix systems that do not have built-in # support for shells. # # This file was distributed as a part of Tk 4.1 by Sun # Microsystems, Inc. and subsequently modified by Expert # Interface Techonoligies and included as a part of Tix. # # Some of the functions in this file have been renamed from # using a "tk" prefix to a "tix" prefix to avoid namespace # conflict with the original file. # # Copyright (c) 1995-1996 Sun Microsystems, Inc. # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "docs/license.tcltk" for information on usage and # redistribution of the original file "console.tcl". These license # terms do NOT apply to other files in the Tix distribution. # # See the file "license.terms" for information on usage and # redistribution * of this file, and for a DISCLAIMER OF ALL # WARRANTIES. # tixConsoleInit -- # This procedure constructs and configures the console windows. # # Arguments: # None. foreach fun {tkTextSetCursor} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun proc tixConsoleInit {} { global tcl_platform uplevel #0 set tixConsoleTextFont Courier uplevel #0 set tixConsoleTextSize 14 set f [frame .f] set fontcb [tixComboBox $f.size -label "" -command "tixConsoleSetFont" \ -variable tixConsoleTextFont \ -options { entry.width 15 listbox.height 5 }] set sizecb [tixComboBox $f.font -label "" -command "tixConsoleSetFont" \ -variable tixConsoleTextSize \ -options { entry.width 4 listbox.width 6 listbox.height 5 }] pack $fontcb $sizecb -side left pack $f -side top -fill x -padx 2 -pady 2 foreach font { "Courier New" "Courier" "Helvetica" "Lucida" "Lucida Typewriter" "MS LineDraw" "System" "Times Roman" } { $fontcb subwidget listbox insert end $font } for {set s 6} {$s < 25} {incr s} { $sizecb subwidget listbox insert end $s } bind [$fontcb subwidget entry] <Escape> "focus .console" bind [$sizecb subwidget entry] <Escape> "focus .console" text .console -yscrollcommand ".sb set" -setgrid true \ -highlightcolor [. cget -bg] -highlightbackground [. cget -bg] scrollbar .sb -command ".console yview" -highlightcolor [. cget -bg] \ -highlightbackground [. cget -bg] pack .sb -side right -fill both pack .console -fill both -expand 1 -side left tixConsoleBind .console .console tag configure stderr -foreground red .console tag configure stdin -foreground blue focus .console wm protocol . WM_DELETE_WINDOW { wm withdraw . } wm title . "Console" flush stdout .console mark set output [.console index "end - 1 char"] tkTextSetCursor .console end .console mark set promptEnd insert .console mark gravity promptEnd left tixConsoleSetFont } proc tixConsoleSetFont {args} { if ![winfo exists .console] tixConsoleInit global tixConsoleTextFont tixConsoleTextSize set font -*-$tixConsoleTextFont-medium-r-normal-*-$tixConsoleTextSize-*-*-*-*-*-*-* .console config -font $font } # tixConsoleInvoke -- # Processes the command line input. If the command is complete it # is evaled in the main interpreter. Otherwise, the continuation # prompt is added and more input may be added. # # Arguments: # None. proc tixConsoleInvoke {args} { if ![winfo exists .console] tixConsoleInit if {[.console dlineinfo insert] != {}} { set setend 1 } else { set setend 0 } set ranges [.console tag ranges input] set cmd "" if {$ranges != ""} { set pos 0 while {[lindex $ranges $pos] != ""} { set start [lindex $ranges $pos] set end [lindex $ranges [incr pos]] append cmd [.console get $start $end] incr pos } } if {$cmd == ""} { tixConsolePrompt } elseif {[info complete $cmd]} { .console mark set output end .console tag delete input set err [catch { set result [interp record $cmd] } result] if {$result != ""} { if {$err} { .console insert insert "$result\n" stderr } else { .console insert insert "$result\n" } } tixConsoleHistory reset tixConsolePrompt } else { tixConsolePrompt partial } if {$setend} { .console yview -pickplace insert } } # tixConsoleHistory -- # This procedure implements command line history for the # console. In general is evals the history command in the # main interpreter to obtain the history. The global variable # histNum is used to store the current location in the history. # # Arguments: # cmd - Which action to take: prev, next, reset. set histNum 1 proc tixConsoleHistory {cmd} { if ![winfo exists .console] tixConsoleInit global histNum switch $cmd { prev { incr histNum -1 if {$histNum == 0} { set cmd {history event [expr [history nextid] -1]} } else { set cmd "history event $histNum" } if {[catch {interp eval $cmd} cmd]} { incr histNum return } .console delete promptEnd end .console insert promptEnd $cmd {input stdin} } next { incr histNum if {$histNum == 0} { set cmd {history event [expr [history nextid] -1]} } elseif {$histNum > 0} { set cmd "" set histNum 1 } else { set cmd "history event $histNum" } if {$cmd != ""} { catch {interp eval $cmd} cmd } .console delete promptEnd end .console insert promptEnd $cmd {input stdin} } reset { set histNum 1 } } } # tixConsolePrompt -- # This procedure draws the prompt. If tcl_prompt1 or tcl_prompt2 # exists in the main interpreter it will be called to generate the # prompt. Otherwise, a hard coded default prompt is printed. # # Arguments: # partial - Flag to specify which prompt to print. proc tixConsolePrompt {{partial normal}} { if ![winfo exists .console] tixConsoleInit if {$partial == "normal"} { set temp [.console index "end - 1 char"] .console mark set output end if {[interp eval "info exists tcl_prompt1"]} { interp eval "eval \[set tcl_prompt1\]" } else { puts -nonewline "% " } } else { set temp [.console index output] .console mark set output end if {[interp eval "info exists tcl_prompt2"]} { interp eval "eval \[set tcl_prompt2\]" } else { puts -nonewline "> " } } flush stdout .console mark set output $temp tkTextSetCursor .console end .console mark set promptEnd insert .console mark gravity promptEnd left } # tixConsoleBind -- # This procedure first ensures that the default bindings for the Text # class have been defined. Then certain bindings are overridden for # the class. # # Arguments: # None. proc tixConsoleBind {win} { if ![winfo exists .console] tixConsoleInit bindtags $win "$win Text . all" # Ignore all Alt, Meta, and Control keypresses unless explicitly bound. # Otherwise, if a widget binding for one of these is defined, the # <KeyPress> class binding will also fire and insert the character, # which is wrong. Ditto for <Escape>. bind $win <Alt-KeyPress> {# nothing } bind $win <Meta-KeyPress> {# nothing} bind $win <Control-KeyPress> {# nothing} bind $win <Escape> {# nothing} bind $win <KP_Enter> {# nothing} bind $win <Tab> { tixConsoleInsert %W \t focus %W break } bind $win <Return> { %W mark set insert {end - 1c} tixConsoleInsert %W "\n" tixConsoleInvoke break } bind $win <Delete> { if {[%W tag nextrange sel 1.0 end] != ""} { %W tag remove sel sel.first promptEnd } else { if {[%W compare insert < promptEnd]} { break } } } bind $win <BackSpace> { if {[%W tag nextrange sel 1.0 end] != ""} { %W tag remove sel sel.first promptEnd } else { if {[%W compare insert <= promptEnd]} { break } } } foreach left {Control-a Home} { bind $win <$left> { if {[%W compare insert < promptEnd]} { tkTextSetCursor %W {insert linestart} } else { tkTextSetCursor %W promptEnd } break } } foreach right {Control-e End} { bind $win <$right> { tkTextSetCursor %W {insert lineend} break } } bind $win <Control-d> { if {[%W compare insert < promptEnd]} { break } } bind $win <Control-k> { if {[%W compare insert < promptEnd]} { %W mark set insert promptEnd } } bind $win <Control-t> { if {[%W compare insert < promptEnd]} { break } } bind $win <Meta-d> { if {[%W compare insert < promptEnd]} { break } } bind $win <Meta-BackSpace> { if {[%W compare insert <= promptEnd]} { break } } bind $win <Control-h> { if {[%W compare insert <= promptEnd]} { break } } foreach prev {Control-p Up} { bind $win <$prev> { tixConsoleHistory prev break } } foreach prev {Control-n Down} { bind $win <$prev> { tixConsoleHistory next break } } bind $win <Control-v> { if {[%W compare insert > promptEnd]} { catch { %W insert insert [selection get -displayof %W] {input stdin} %W see insert } } break } bind $win <Insert> { catch {tixConsoleInsert %W [selection get -displayof %W]} break } bind $win <KeyPress> { tixConsoleInsert %W %A break } foreach left {Control-b Left} { bind $win <$left> { if {[%W compare insert == promptEnd]} { break } tkTextSetCursor %W insert-1c break } } foreach right {Control-f Right} { bind $win <$right> { tkTextSetCursor %W insert+1c break } } bind $win <Control-Up> { %W yview scroll -1 unit break; } bind $win <Control-Down> { %W yview scroll 1 unit break; } bind $win <Prior> { %W yview scroll -1 pages } bind $win <Next> { %W yview scroll 1 pages } bind $win <F9> { eval destroy [winfo child .] source $tix_library/Console.tcl } foreach copy {F16 Meta-w Control-i} { bind $win <$copy> { if {[selection own -displayof %W] == "%W"} { clipboard clear -displayof %W catch { clipboard append -displayof %W [selection get -displayof %W] } } break } } foreach paste {F18 Control-y} { bind $win <$paste> { catch { set clip [selection get -displayof %W -selection CLIPBOARD] set list [split $clip \n\r] tixConsoleInsert %W [lindex $list 0] foreach x [lrange $list 1 end] { %W mark set insert {end - 1c} tixConsoleInsert %W "\n" tixConsoleInvoke tixConsoleInsert %W $x } } break } } } # tixConsoleInsert -- # Insert a string into a text at the point of the insertion cursor. # If there is a selection in the text, and it covers the point of the # insertion cursor, then delete the selection before inserting. Insertion # is restricted to the prompt area. # # Arguments: # w - The text window in which to insert the string # s - The string to insert (usually just a single character) proc tixConsoleInsert {w s} { if ![winfo exists .console] tixConsoleInit if {[.console dlineinfo insert] != {}} { set setend 1 } else { set setend 0 } if {$s == ""} { return } catch { if {[$w compare sel.first <= insert] && [$w compare sel.last >= insert]} { $w tag remove sel sel.first promptEnd $w delete sel.first sel.last } } if {[$w compare insert < promptEnd]} { $w mark set insert end } $w insert insert $s {input stdin} if $setend { .console see insert } } # tixConsoleOutput -- # # This routine is called directly by ConsolePutsCmd to cause a string # to be displayed in the console. # # Arguments: # dest - The output tag to be used: either "stderr" or "stdout". # string - The string to be displayed. proc tixConsoleOutput {dest string} { if ![winfo exists .console] tixConsoleInit if {[.console dlineinfo insert] != {}} { set setend 1 } else { set setend 0 } .console insert output $string $dest if $setend { .console see insert } } # tixConsoleExit -- # # This routine is called by ConsoleEventProc when the main window of # the application is destroyed. # # Arguments: # None. proc tixConsoleExit {} { if ![winfo exists .console] tixConsoleInit exit } # Configure the default Tk console proc tixConsoleEvalAppend {inter} { global tixOption # A slave like the console interp has no global variables set! if {!$inter} { console hide # Change the menubar to Close the console instead of exiting # Your code must provide a way for the user to do a "console show" console eval { if {[winfo exists .menubar.file]} { .menubar.file entryconfigure "Hide Console" \ -underline 0 \ -label Close \ -command [list wm withdraw .] .menubar.file entryconfigure Exit -state disabled } } } console eval ".option configure -font \{$tixOption(fixed_font)\}" console eval { if {[winfo exists .menubar.edit]} { .menubar.edit add sep .menubar.edit add command \ -accelerator 'Ctrl+l' \ -underline 0 \ -label Clear \ -command [list .console delete 1.0 end] bind .console <Control-Key-l> [list .console delete 1.0 end] } if {![winfo exists .menubar.font]} { set m .menubar.font menu $m -tearoff 0 .menubar add cascade -menu .menubar.font \ -underline 0 -label Options global _TixConsole set font [font actual [.console cget -font]] set pos [lsearch $font -family] set _TixConsole(font) [lindex $font [incr pos]] set pos [lsearch $font -size] set _TixConsole(size) [lindex $font [incr pos]] set pos [lsearch $font -weight] set _TixConsole(weight) [lindex $font [incr pos]] set allowed {System Fixedsys Terminal {MS Serif} {MS Sans Serif} Courier {Lucida Console} Tahoma Arial {Courier New} {Times New Roman} {Arial Black} Verdana Garamond {Arial Narrow}} .menubar.font add cascade -label Font -menu $m.font menu $m.font -tearoff 0 foreach font [lsort [font families]] { if {[lsearch $allowed $font] < 0} {continue} $m.font add radiobutton -label $font \ -variable _TixConsole(font) \ -value $font \ -command \ ".console configure -font \"\{$font\} \$_TixConsole(size) \$_TixConsole(weight)\"" } .menubar.font add cascade -label Size -menu $m.size menu $m.size -tearoff 0 foreach size {8 9 10 12 14 16 18} { $m.size add radiobutton -label $size \ -variable _TixConsole(size) \ -value $size \ -command \ ".console configure -font \"\{\$_TixConsole(font)\} $size \$_TixConsole(weight)\"" } .menubar.font add cascade -label Weight -menu $m.weight menu $m.weight -tearoff 0 foreach weight {normal bold} { $m.weight add radiobutton -label [string totit $weight] \ -variable _TixConsole(weight) \ -value $weight \ -command \ ".console configure -font \"\{\$_TixConsole(font)\} \$_TixConsole(size) $weight\"" } } } } Tix8.4.3/StatBar.tcl 0000644 00000002473 15231152137 0007755 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StatBar.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # StatBar.tcl -- # # The StatusBar of an application. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixStatusBar { -classname TixStatusBar -superclass tixPrimitive -method { } -flag { -fields } -static { -fields } -configspec { {-fields fields Fields ""} } } #-------------------------- # Create Widget #-------------------------- proc tixStatusBar:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget foreach field $data(-fields) { set name [lindex $field 0] set width [lindex $field 1] set data(w:width) [label $w.$name -width $width] } } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- #---------------------------------------------------------------------- # Internal commands #---------------------------------------------------------------------- Tix8.4.3/Tix.tcl 0000644 00000023011 15231152137 0007150 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Tix.tcl,v 1.14 2008/03/17 23:01:10 hobbs Exp $ # # Tix.tcl -- # # This file implements the Tix application context class # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixClass tixAppContext { -superclass {} -classname TixAppContext -method { cget configure addbitmapdir filedialog getbitmap getimage option platform resetoptions setbitmap initstyle } -flag { -binding -debug -extracmdargs -filedialog -fontset -grabmode -haspixmap -libdir -scheme -schemepriority -percentsubst } -readonly { -haspixmap } -configspec { {-binding TK} {-debug 0} {-extracmdargs 1} {-filedialog ""} {-fontset WmDefault} {-grabmode global} {-haspixmap 0} {-libdir ""} {-percentsubst 0} {-scheme WmDefault} {-schemepriority 21} } -alias { } } proc tixAppContext:Constructor {w} { upvar #0 $w data global tix_priv tix_library tixOption if {[info exists data(initialized)]} { error "tixAppContext has already be initialized" } else { set data(initialized) 1 } set data(et) [string equal $tix_library ""] set data(image) 0 # These options were set when Tix was loaded # set data(-binding) $tix_priv(-binding) set data(-debug) $tix_priv(-debug) set data(-fontset) $tix_priv(-fontset) set data(-scheme) $tix_priv(-scheme) set data(-schemepriority) $tix_priv(-schemepriority) if {![info exists tix_priv(isSafe)]} { set data(-libdir) [file normalize $tix_library] } set tixOption(prioLevel) $tix_priv(-schemepriority) # Compatibility stuff: the obsolete name courier_font has been changed to # fixed_font set tixOption(fixed_font) Courier set tixOption(courier_font) $tixOption(fixed_font) # Enable/Disable Intrinsics debugging # set tix_priv(debug) [string is true -strict $data(-debug)] tixAppContext:BitmapInit $w tixAppContext:FileDialogInit $w # Clean up any error message generated by the above loop set ::errorInfo "" } proc tixAppContext:initstyle {w} { # Do the init stuff here that affects styles upvar #0 $w data global tix_priv if {![info exists tix_priv(isSafe)]} { tixAppContext:config-fontset $w $data(-fontset) tixAppContext:config-scheme $w $data(-scheme) } tixAppContext:BitmapInit $w tixAppContext:FileDialogInit $w # Force the "." window to accept the new Tix options # set noconfig [list -class -colormap -container -menu -screen -use -visual] set noconfig [lsort $noconfig] foreach spec [. configure] { set flag [lindex $spec 0] if {[llength $spec] != 5 || [lsearch -exact -sorted $noconfig $flag] != -1} { continue } set name [lindex $spec 1] set class [lindex $spec 2] set value [option get . $name $class] catch {. configure $flag $value} } } #---------------------------------------------------------------------- # Configurations # #---------------------------------------------------------------------- proc tixAppContext:resetoptions {w scheme fontset {schemePrio ""}} { upvar #0 $w data if {! $data(et)} { global tixOption option clear if {$schemePrio != ""} { set tixOption(prioLevel) $schemePrio } tixAppContext:config-scheme $w $scheme tixAppContext:config-fontset $w $fontset } } proc tixAppContext:StartupError {args} { bgerror [join $args "\n"] } proc tixAppContext:config-fontset {w value} { upvar #0 $w data global tix_priv tixOption set data(-fontset) $value #----------------------------------- # Initialization of options database #----------------------------------- # Load the fontset # if {!$data(et)} { set prefDir [file join $data(-libdir) pref] set fontSetFile [file join $prefDir $data(-fontset).fsc] if {[file exists $fontSetFile]} { source $fontSetFile tixPref:InitFontSet:$data(-fontset) tixPref:SetFontSet:$data(-fontset) } else { tixAppContext:StartupError \ " Error: cannot use fontset \"$data(-fontset)\"" \ " Using default fontset " tixSetDefaultFontset } } else { if [catch { tixPref:InitFontSet:$data(-fontset) tixPref:SetFontSet:$data(-fontset) }] { # User chose non-existent fontset # tixAppContext:StartupError \ " Error: cannot use fontset \"$data(-fontset)\"" \ " Using default fontset " tixSetDefaultFontset } } } proc tixAppContext:config-scheme {w value} { upvar #0 $w data global tix_priv set data(-scheme) $value # Load the color scheme # if {!$data(et)} { set schemeName [file join [file join $data(-libdir) pref] \ $data(-scheme).csc] if {[file exists $schemeName]} { source $schemeName tixPref:SetScheme-Color:$data(-scheme) } else { tixAppContext:StartupError \ " Error: cannot use color scheme \"$data(-scheme)\"" \ " Using default color scheme" tixSetDefaultScheme-Color } } else { if [catch {tixPref:SetScheme-Color:$data(-scheme)}] { # User chose non-existent color scheme # tixAppContext:StartupError \ " Error: cannot use color scheme \"$data(-scheme)\"" \ " Using default color scheme" tixSetDefaultScheme-Color } } } #---------------------------------------------------------------------- # Private methods # #---------------------------------------------------------------------- proc tixAppContext:BitmapInit {w} { upvar #0 $w data # See whether we have pixmap extension # set data(-haspixmap) true # Dynamically set the bitmap directory # if {! $data(et)} { set data(bitmapdirs) [list [file join $data(-libdir) bitmaps]] } else { set data(bitmapdirs) "" } } proc tixAppContext:FileDialogInit {w} { upvar #0 $w data if {$data(-filedialog) == ""} { set data(-filedialog) [option get . fileDialog FileDialog] } if {$data(-filedialog) == ""} { set data(-filedialog) tixFileSelectDialog } } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixAppContext:addbitmapdir {w bmpdir} { upvar #0 $w data if {[lsearch $data(bitmapdirs) $bmpdir] == -1} { lappend data(bitmapdirs) $bmpdir } } proc tixAppContext:getimage {w name} { upvar #0 $w data global tix_priv if {[info exists data(img:$name)]} { return $data(img:$name) } if {![info exists tix_priv(isSafe)]} { foreach dir $data(bitmapdirs) { foreach {ext type} { .xpm pixmap .gif photo .ppm photo .xbm bitmap "" bitmap } { set file [file join $dir $name$ext] if {[file exists $file] && ![catch { set img tiximage$data(image) set data(img:$name) \ [image create $type $img -file $file] }]} { incr data(image) break } } if {[info exists data(img:$name)]} { return $data(img:$name) } } } if {![info exists data(img:$name)]} { catch { set img tiximage$data(image) # This is for compiled-in images set data(img:$name) [image create pixmap $img -id $name] } err if {[string match internal* $err]} { error $err } else { incr data(image) } } if {[info exists data(img:$name)]} { return $data(img:$name) } else { error "image file \"$name\" cannot be found" } } proc tixAppContext:getbitmap {w bitmapname} { upvar #0 $w data global tix_priv if {[info exists data(bmp:$bitmapname)]} { return $data(bmp:$bitmapname) } else { set ext [file extension $bitmapname] if {$ext == ""} { set ext .xbm } # This is the fallback value. If we can't find the bitmap in # the bitmap directories, then use the name of the bitmap # as the default value. # set data(bmp:$bitmapname) $bitmapname if {[info exists tix_priv(isSafe)]} { return $data(bmp:$bitmapname) } foreach dir $data(bitmapdirs) { if {$ext eq ".xbm" && [file exists [file join $dir $bitmapname.xbm]]} { set data(bmp:$bitmapname) \ @[file join $dir $bitmapname.xbm] break } if {[file exists [file join $dir $bitmapname]]} { set data(bmp:$bitmapname) @[file join $dir $bitmapname] break } } return $data(bmp:$bitmapname) } } proc tixAppContext:filedialog {w {type tixFileSelectDialog}} { upvar #0 $w data if {$type == ""} { set type $data(-filedialog) } if {![info exists data(filedialog,$type)]} { set data(filedialog,$type) "" } if {$data(filedialog,$type) == "" || \ ![winfo exists $data(filedialog,$type)]} { set data(filedialog,$type) [$type .tixapp_filedialog_$type] } return $data(filedialog,$type) } proc tixAppContext:option {w action {option ""} {value ""}} { global tixOption if {$action eq "get"} { if {$option == ""} {return [lsort [array names tixOption]]} return $tixOption($option) } } proc tixAppContext:platform {w} { return $::tcl_platform(platform) } proc tixDebug {message {level "1"}} { set debug [tix cget -debug] if {![string is true -strict $debug]} { return } if {$debug > 0} { # use $level here if {[catch {fconfigure stderr}]} { # This will happen under PYTHONW.EXE or frozen Windows apps proc tixDebug args {} } else { puts stderr $message } } } if {![llength [info commands toplevel]]} { interp alias {} toplevel {} frame } Tix8.4.3/ListNBk.tcl 0000644 00000006775 15231152137 0007734 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: ListNBk.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # ListNBk.tcl -- # # "List NoteBook" widget. Acts similarly to the notebook but uses a # HList widget to represent the pages. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixListNoteBook { -classname TixListNoteBook -superclass tixVStack -method { } -flag { -height -width } -configspec { {-width width Width 0} {-height height Height 0} } -forcecall { -dynamicgeometry -width -height } -default { {*Orientation horizontal} } } proc tixListNoteBook:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w_pane) [tixPanedWindow $w.pane -panerelief flat] set p1 [$data(w_pane) add p1 -expand 0] set p2 [$data(w_pane) add p2 -expand 1] set data(w_p2) $p2 set data(w:shlist) [tixScrolledHList $p1.shlist] set data(w:hlist) [$data(w:shlist) subwidget hlist] if {[$data(w_pane) cget -orientation] eq "vertical"} { pack $data(w:shlist) -expand yes -fill both -padx 2 -pady 3 } else { pack $data(w:shlist) -expand yes -fill both -padx 3 -pady 2 } $data(w:hlist) config \ -command [list tixListNoteBook:Choose $w] \ -browsecmd [list tixListNoteBook:Choose $w] \ -selectmode single pack $data(w_pane) -expand yes -fill both } proc tixListNoteBook:add {w child args} { upvar #0 $w data if {[string match *.* $child]} { error "the name of the page cannot contain the \".\" character" } return [eval tixChainMethod $w add $child $args] } #---------------------------------------------------------------------- # Virtual Methods #---------------------------------------------------------------------- proc tixListNoteBook:InitGeometryManager {w} { tixWidgetDoWhenIdle tixListNoteBook:InitialRaise $w } proc tixListNoteBook:InitialRaise {w} { upvar #0 $w data if {$data(topchild) eq ""} { set top [lindex $data(windows) 0] } else { set top $data(topchild) } if {$top ne ""} { tixCallMethod $w raise $top } } proc tixListNoteBook:CreateChildFrame {w child} { upvar #0 $w data return [frame $data(w_p2).$child] } proc tixListNoteBook:RaiseChildFrame {w child} { upvar #0 $w data if {$data(topchild) ne $child} { if {$data(topchild) ne ""} { pack forget $data(w:$data(topchild)) } pack $data(w:$child) -expand yes -fill both } } # #---------------------------------------------------------------------- # proc tixListNoteBook:config-dynamicgeometry {w value} { upvar #0 $w data $data(w_pane) config -dynamicgeometry $value } proc tixListNoteBook:config-width {w value} { upvar #0 $w data if {$value != 0} { $data(w_pane) config -width $value } } proc tixListNoteBook:config-height {w value} { upvar #0 $w data if {$value != 0} { $data(w_pane) config -height $value } } proc tixListNoteBook:raise {w child} { upvar #0 $w data $data(w:hlist) selection clear $data(w:hlist) selection set $child $data(w:hlist) anchor set $child tixChainMethod $w raise $child } proc tixListNoteBook:Choose {w args} { upvar #0 $w data set entry [tixEvent flag V] if {[lsearch $data(windows) $entry] != -1} { tixCallMethod $w raise $entry } } Tix8.4.3/BtnBox.tcl 0000644 00000005157 15231152137 0007613 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: BtnBox.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # BtnBox.tcl -- # # Implements the tixButtonBox widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixButtonBox { -superclass tixPrimitive -classname TixButtonBox -method { add invoke button buttons } -flag { -orientation -orient -padx -pady -state } -static { -orientation } -configspec { {-orientation orientation Orientation horizontal} {-padx padX Pad 0} {-pady padY Pad 0} {-state state State normal} } -alias { {-orient -orientation} } -default { {.borderWidth 1} {.relief raised} {.padX 5} {.padY 10} {*Button.anchor c} {*Button.padX 5} } } proc tixButtonBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(g:buttons) "" } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixButtonBox:config-padx {w arg} { upvar #0 $w data foreach item $data(g:buttons) { pack configure $w.$item -padx $arg } } proc tixButtonBox:config-pady {w arg} { upvar #0 $w data foreach item $data(g:buttons) { pack configure $w.$item -pady $arg } } proc tixButtonBox:config-state {w arg} { upvar #0 $w data foreach item $data(g:buttons) { $w.$item config -state $arg } } #---------------------------------------------------------------------- # Methods # WIDGET COMMANDS #---------------------------------------------------------------------- proc tixButtonBox:add {w name args} { upvar #0 $w data eval button $w.$name $args if {$data(-orientation) == "horizontal"} { pack $w.$name -side left -expand yes -fill y\ -padx $data(-padx) -pady $data(-pady) } else { pack $w.$name -side top -expand yes -fill x\ -padx $data(-padx) -pady $data(-pady) } # allow for subwidget access # lappend data(g:buttons) $name set data(w:$name) $w.$name return $w.$name } proc tixButtonBox:button {w name args} { return [eval tixCallMethod $w subwidget $name $args] } proc tixButtonBox:buttons {w args} { return [eval tixCallMethod $w subwidgets -group buttons $args] } # # call the command proc tixButtonBox:invoke {w name} { upvar #0 $w data $w.$name invoke } Tix8.4.3/HList.tcl 0000644 00000043344 15231152137 0007442 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: HList.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $ # # HList.tcl -- # # This file defines the default bindings for Tix Hierarchical Listbox # widgets. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # afterId - Token returned by "after" for autoscanning. # fakeRelease - Cancel the ButtonRelease-1 after the user double click #-------------------------------------------------------------------------- # foreach fun {tkCancelRepeat} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun proc tixHListBind {} { tixBind TixHList <ButtonPress-1> { tixHList:Button-1 %W %x %y "" } tixBind TixHList <Shift-ButtonPress-1> { tixHList:Button-1 %W %x %y s } tixBind TixHList <Control-ButtonPress-1> { tixHList:Button-1 %W %x %y c } tixBind TixHList <ButtonRelease-1> { tixHList:ButtonRelease-1 %W %x %y } tixBind TixHList <Double-ButtonPress-1> { tixHList:Double-1 %W %x %y } tixBind TixHList <B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixHList:B1-Motion %W %x %y } tixBind TixHList <B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixHList:B1-Leave %W } tixBind TixHList <B1-Enter> { tixHList:B1-Enter %W %x %y } # Keyboard bindings # tixBind TixHList <Up> { tixHList:UpDown %W prev "" } tixBind TixHList <Down> { tixHList:UpDown %W next "" } tixBind TixHList <Shift-Up> { tixHList:UpDown %W prev s } tixBind TixHList <Shift-Down> { tixHList:UpDown %W next s } tixBind TixHList <Left> { tixHList:LeftRight %W left } tixBind TixHList <Right> { tixHList:LeftRight %W right } tixBind TixHList <Prior> { %W yview scroll -1 pages } tixBind TixHList <Next> { %W yview scroll 1 pages } tixBind TixHList <Return> { tixHList:Keyboard-Activate %W } tixBind TixHList <space> { tixHList:Keyboard-Browse %W } # Under Windows <Home> moves up, clears the sel and sets the selection # Under Windows <Control-Home> moves up, leaves the selection, and sets the anchor tixBind TixHList <Home> { set w %W $w yview moveto 0; # $w xview moveto 0 set sel [lindex [$w info children] 0] # should be first not disabled $w anchor set $sel tixHList:Keyboard-Browse $w } tixBind TixHList <End> { set w %W $w yview moveto 1; # $w xview moveto 0 $w select clear # should be last not disabled set sel [lindex [$w info children .] end] while {[set next [$w info next $sel]] ne "" && \ ![$w info hidden $next] && \ [llength [set kids [$w info child $sel]]]} { set sel [lindex $kids end] } $w anchor set $sel tixHList:Keyboard-Browse $w } tixBind TixHList <Control-Home> { set w %W $w yview moveto 0; # $w xview moveto 0 set sel [lindex [$w info children] 0] # should be first not disabled $w anchor set $sel } tixBind TixHList <Control-End> { set w %W $w yview moveto 1; # $w xview moveto 0 # should be last not disabled set sel [lindex [$w info children .] end] while {[set next [$w info next $sel]] ne "" && \ ![$w info hidden $next] && \ [llength [set kids [$w info child $sel]]]} { set sel [lindex $kids end] } $w anchor set $sel } # # Don't use tixBind because %A causes Tk 8.3.2 to crash # bind TixHList <MouseWheel> { %W yview scroll [expr {- (%D / 120) * 2}] units } } #---------------------------------------------------------------------- # # # Key bindings # # #---------------------------------------------------------------------- proc tixHList:Keyboard-Activate {w} { if {[tixHList:GetState $w] != 0} { return } set ent [$w info anchor] if {$ent eq ""} { return } if {[$w cget -selectmode] eq "single"} { $w select clear } $w select set $ent set command [$w cget -command] if {$command ne ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $command bind $ent } } proc tixHList:Keyboard-Browse {w} { if {[tixHList:GetState $w] != 0} { return } set ent [$w info anchor] if {$ent eq ""} { return } if {[$w cget -selectmode] eq "single"} { $w select clear } $w select set $ent tixHList:Browse $w $ent } proc tixHList:LeftRight {w spec} { catch { uplevel #0 unset $w:priv:shiftanchor } if {[tixHList:GetState $w] != 0} { return } set anchor [$w info anchor] if {$anchor eq ""} { set anchor [lindex [$w info children] 0] } if {$anchor eq ""} { return } set ent $anchor while {1} { set e $ent if {$spec eq "left"} { set ent [$w info parent $e] if {$ent eq "" || [$w entrycget $ent -state] eq "disabled"} { set ent [$w info prev $e] } } else { set ent [lindex [$w info children $e] 0] if {$ent eq "" || [$w entrycget $ent -state] eq "disabled"} { set ent [$w info next $e] } } if {$ent eq ""} { break } if {[$w entrycget $ent -state] eq "disabled"} { continue } if {[$w info hidden $ent]} { continue } break } if {$ent eq ""} { return } $w anchor set $ent $w see $ent if {[$w cget -selectmode] ne "single"} { $w select clear $w selection set $ent tixHList:Browse $w $ent } } proc tixHList:UpDown {w spec mod} { if {[tixHList:GetState $w] ne 0} { return } set anchor [$w info anchor] set done 0 if {$anchor eq ""} { set anchor [lindex [$w info children] 0] if {$anchor eq ""} { return } if {[$w entrycget $anchor -state] ne "disabled"} { # That's a good anchor set done 1 } else { # We search for the first non-disabled entry (downward) set spec next } } set ent $anchor # mike - bulletproofing if {![$w info exists $ent]} {return} # Find the prev/next non-disabled entry # while {!$done} { set ent [$w info $spec $ent] if {$ent eq ""} { break } if {[$w entrycget $ent -state] eq "disabled"} { continue } if {[$w info hidden $ent]} { continue } break } if {$ent eq ""} { return } else { $w see $ent $w anchor set $ent set selMode [$w cget -selectmode] if {$mod eq "s" && ($selMode eq "extended" || $selMode eq "multiple")} { global $w:priv:shiftanchor if {![info exists $w:priv:shiftanchor]} { set $w:priv:shiftanchor $anchor } $w selection clear # mike - bulletproofing if {![catch {$w selection set $ent [set $w:priv:shiftanchor]}]} { tixHList:Browse $w $ent } } else { catch { uplevel #0 unset $w:priv:shiftanchor } if {[$w cget -selectmode] ne "single"} { $w select clear $w selection set $ent tixHList:Browse $w $ent } } } } #---------------------------------------------------------------------- # # # Mouse bindings # # #---------------------------------------------------------------------- proc tixHList:Button-1 {w x y mod} { # if {[$w cget -state] eq "disabled"} { # return # } if {[$w cget -takefocus]} { focus $w } set selMode [$w cget -selectmode] case [tixHList:GetState $w] { {0} { if {$mod eq "s" && $selMode eq "multiple"} { tixHList:GoState 28 $w $x $y return } if {$mod eq "s" && $selMode eq "extended"} { tixHList:GoState 28 $w $x $y return } if {$mod eq "c" && $selMode eq "extended"} { tixHList:GoState 33 $w $x $y return } tixHList:GoState 1 $w $x $y } } } proc tixHList:ButtonRelease-1 {w x y} { case [tixHList:GetState $w] { {5 16} { tixHList:GoState 6 $w $x $y } {15} { tixHList:GoState 17 $w $x $y } {10 11} { tixHList:GoState 18 $w } {13 20} { tixHList:GoState 14 $w $x $y } {21} { tixHList:GoState 22 $w } {24} { tixHList:GoState 25 $w } {26 28 33} { tixHList:GoState 27 $w } {30} { tixHList:GoState 32 $w } } } proc tixHList:Double-1 {w x y} { case [tixHList:GetState $w] { {0} { tixHList:GoState 23 $w $x $y } } } proc tixHList:B1-Motion {w x y} { case [tixHList:GetState $w] { {1} { tixHList:GoState 5 $w $x $y } {5 16} { tixHList:GoState 5 $w $x $y } {13 20 21} { tixHList:GoState 20 $w $x $y } {24 26 28} { tixHList:GoState 26 $w $x $y } } } proc tixHList:B1-Leave {w} { case [tixHList:GetState $w] { {5} { tixHList:GoState 10 $w } {26} { tixHList:GoState 29 $w } } } proc tixHList:B1-Enter {w x y} { case [tixHList:GetState $w] { {10 11} { tixHList:GoState 12 $w $x $y } {29 30} { tixHList:GoState 31 $w $x $y } } } proc tixHList:AutoScan {w} { case [tixHList:GetState $w] { {29 30} { tixHList:GoState 30 $w } } } #---------------------------------------------------------------------- # # STATE MANIPULATION # # #---------------------------------------------------------------------- proc tixHList:GetState {w} { global $w:priv:state if {![info exists $w:priv:state]} { set $w:priv:state 0 } return [set $w:priv:state] } proc tixHList:SetState {w n} { global $w:priv:state set $w:priv:state $n } proc tixHList:GoState {n w args} { # puts "going from [tixHList:GetState $w] --> $n" tixHList:SetState $w $n eval tixHList:GoState-$n $w $args } #---------------------------------------------------------------------- # States #---------------------------------------------------------------------- proc tixHList:GoState-0 {w} { } proc tixHList:GoState-1 {w x y} { set oldEnt [$w info anchor] set ent [tixHList:SetAnchor $w $x $y 1] if {$ent eq ""} { tixHList:GoState 0 $w return } set info [$w info item $x $y] if {[lindex $info 1] eq "indicator"} { tixHList:GoState 13 $w $ent $oldEnt } else { if {[$w entrycget $ent -state] eq "disabled"} { tixHList:GoState 0 $w } else { case [$w cget -selectmode] { {single browse} { tixHList:GoState 16 $w $ent } default { tixHList:GoState 24 $w $ent } } } } } proc tixHList:GoState-5 {w x y} { set oldEnt [$w info anchor] set ent [tixHList:SetAnchor $w $x $y] if {$ent eq "" || $oldEnt eq $ent} { return } if {[$w cget -selectmode] ne "single"} { tixHList:Select $w $ent tixHList:Browse $w $ent } } proc tixHList:GoState-6 {w x y} { set ent [tixHList:SetAnchor $w $x $y] if {$ent eq ""} { tixHList:GoState 0 $w return } tixHList:Select $w $ent tixHList:Browse $w $ent tixHList:GoState 0 $w } proc tixHList:GoState-10 {w} { tixHList:StartScan $w } proc tixHList:GoState-11 {w} { global tkPriv tixHList:DoScan $w set oldEnt [$w info anchor] set ent [tixHList:SetAnchor $w $tkPriv(x) $tkPriv(y)] if {$ent eq "" || $oldEnt eq $ent} { return } if {[$w cget -selectmode] ne "single"} { tixHList:Select $w $ent tixHList:Browse $w $ent } } proc tixHList:GoState-12 {w x y} { tkCancelRepeat tixHList:GoState 5 $w $x $y } proc tixHList:GoState-13 {w ent oldEnt} { global tkPriv set tkPriv(tix,indicator) $ent set tkPriv(tix,oldEnt) $oldEnt tixHList:CallIndicatorCmd $w <Arm> $ent } proc tixHList:GoState-14 {w x y} { global tkPriv if {[tixHList:InsideArmedIndicator $w $x $y]} { $w anchor set $tkPriv(tix,indicator) $w select clear $w select set $tkPriv(tix,indicator) tixHList:CallIndicatorCmd $w <Activate> $tkPriv(tix,indicator) } else { tixHList:CallIndicatorCmd $w <Disarm> $tkPriv(tix,indicator) } unset tkPriv(tix,indicator) tixHList:GoState 0 $w } proc tixHList:GoState-16 {w ent} { if {$ent ne "" && [$w cget -selectmode] ne "single"} { tixHList:Select $w $ent tixHList:Browse $w $ent } } proc tixHList:GoState-18 {w} { global tkPriv tkCancelRepeat tixHList:GoState 6 $w $tkPriv(x) $tkPriv(y) } proc tixHList:GoState-20 {w x y} { global tkPriv if {![tixHList:InsideArmedIndicator $w $x $y]} { tixHList:GoState 21 $w $x $y } else { tixHList:CallIndicatorCmd $w <Arm> $tkPriv(tix,indicator) } } proc tixHList:GoState-21 {w x y} { global tkPriv if {[tixHList:InsideArmedIndicator $w $x $y]} { tixHList:GoState 20 $w $x $y } else { tixHList:CallIndicatorCmd $w <Disarm> $tkPriv(tix,indicator) } } proc tixHList:GoState-22 {w} { global tkPriv if {$tkPriv(tix,oldEnt) ne ""} { $w anchor set $tkPriv(tix,oldEnt) } else { $w anchor clear } tixHList:GoState 0 $w } proc tixHList:GoState-23 {w x y} { set ent [tixHList:GetNearest $w $y] if {$ent ne ""} { set info [$w info item $x $y] if {[lindex $info 1] eq "indicator"} { tixHList:CallIndicatorCmd $w <Activate> $ent } else { $w select set $ent set command [$w cget -command] if {$command ne ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $command bind $ent } } } tixHList:GoState 0 $w } proc tixHList:GoState-24 {w ent} { if {$ent ne ""} { tixHList:Select $w $ent tixHList:Browse $w $ent } } proc tixHList:GoState-25 {w} { set ent [$w info anchor] if {$ent ne ""} { tixHList:Select $w $ent tixHList:Browse $w $ent } tixHList:GoState 0 $w } proc tixHList:GoState-26 {w x y} { set anchor [$w info anchor] if {$anchor eq ""} { set first [lindex [$w info children ""] 0] if {$first ne ""} { $w anchor set $first set anchor $first } else { return } } set ent [tixHList:GetNearest $w $y 1] if {$ent ne ""} { $w selection clear $w selection set $anchor $ent tixHList:Browse $w $ent } } proc tixHList:GoState-27 {w} { set ent [$w info anchor] if {$ent ne ""} { tixHList:Browse $w $ent } tixHList:GoState 0 $w } proc tixHList:GoState-28 {w x y} { set anchor [$w info anchor] if {$anchor eq ""} { set first [lindex [$w info children ""] 0] if {$first ne ""} { $w anchor set $first set anchor $first } else { return } } set ent [tixHList:GetNearest $w $y 1] if {$ent ne ""} { $w selection clear $w selection set $anchor $ent tixHList:Browse $w $ent } } proc tixHList:GoState-29 {w} { tixHList:StartScan $w } proc tixHList:GoState-30 {w} { global tkPriv tixHList:DoScan $w set anchor [$w info anchor] if {$anchor eq ""} { set first [lindex [$w info children ""] 0] if {$first ne ""} { $w anchor set $first set anchor $first } else { return } } set ent [tixHList:GetNearest $w $tkPriv(y) 1] if {$ent ne ""} { $w selection clear $w selection set $anchor $ent tixHList:Browse $w $ent } } proc tixHList:GoState-31 {w x y} { tkCancelRepeat tixHList:GoState 26 $w $x $y } proc tixHList:GoState-32 {w} { tkCancelRepeat tixHList:GoState 0 $w } proc tixHList:GoState-33 {w x y} { set ent [tixHList:GetNearest $w $y] if {$ent ne ""} { $w anchor set $ent if {[lsearch [$w selection get] $ent] > -1} { # This was missing - mike $w selection clear $ent } else { $w selection set $ent } tixHList:Browse $w $ent } } #---------------------------------------------------------------------- # # Common actions # #---------------------------------------------------------------------- proc tixHList:GetNearest {w y {disableOK 0}} { set ent [$w nearest $y] if {$ent ne ""} { if {!$disableOK && [$w entrycget $ent -state] eq "disabled"} { return "" } } return $ent } proc tixHList:SetAnchor {w x y {disableOK 0}} { set ent [tixHList:GetNearest $w $y $disableOK] if {$ent ne ""} { if {[$w entrycget $ent -state] ne "disabled"} { $w anchor set $ent # mike This is non-standard and has a wierd effect: too much motion # $w see $ent return $ent } elseif $disableOK { return $ent } } return "" } proc tixHList:Select {w ent} { if {[$w info selection] ne $ent} { $w selection clear $w select set $ent } } #---------------------------------------------------------------------- # # Auto scan # #---------------------------------------------------------------------- proc tixHList:StartScan {w} { global tkPriv set tkPriv(afterId) [after 50 tixHList:AutoScan $w] } proc tixHList:DoScan {w} { global tkPriv set x $tkPriv(x) set y $tkPriv(y) set X $tkPriv(X) set Y $tkPriv(Y) if {$y >= [winfo height $w]} { $w yview scroll 1 units } elseif {$y < 0} { $w yview scroll -1 units } elseif {$x >= [winfo width $w]} { $w xview scroll 2 units } elseif {$x < 0} { $w xview scroll -2 units } else { return } set tkPriv(afterId) [after 50 tixHList:AutoScan $w] } #---------------------------------------------------------------------- # # Indicator handling # #---------------------------------------------------------------------- proc tixHList:CallIndicatorCmd {w event ent} { set cmd [$w cget -indicatorcmd] if {$cmd ne ""} { set bind(type) $event set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $cmd bind $ent } } proc tixHList:InsideArmedIndicator {w x y} { global tkPriv set ent [tixHList:GetNearest $w $y 1] if {$ent eq "" || $ent ne $tkPriv(tix,indicator)} { return 0 } set info [$w info item $x $y] if {[lindex $info 1] eq "indicator"} { return 1 } else { return 0 } } proc tixHList:Browse {w ent} { set browsecmd [$w cget -browsecmd] if {$browsecmd ne ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $browsecmd bind $ent } } Tix8.4.3/StdShell.tcl 0000644 00000002225 15231152137 0010132 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StdShell.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # StdShell.tcl -- # # Standard Dialog Shell. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixStdDialogShell { -classname TixStdDialogShell -superclass tixDialogShell -method {} -flag { -cached } -configspec { {-cached cached Cached ""} } } proc tixStdDialogShell:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:btns) [tixStdButtonBox $w.btns] set data(w_tframe) [frame $w.tframe] pack $data(w_tframe) -side top -expand yes -fill both pack $data(w:btns) -side bottom -fill both tixCallMethod $w ConstructTopFrame $data(w_tframe) } # Subclasses of StdDialogShell should override this method instead of # ConstructWidget. # # Override : always # chain : before proc tixStdDialogShell:ConstructTopFrame {w frame} { # Do nothing } Tix8.4.3/Event.tcl 0000644 00000012157 15231152137 0007476 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Event.tcl,v 1.6 2004/04/09 21:37:01 hobbs Exp $ # # Event.tcl -- # # Handles the event bindings of the -command and -browsecmd options # (and various of others such as -validatecmd). # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # #---------------------------------------------------------------------- # Evaluate high-level bindings (-command, -browsecmd, etc): # with % subsitution or without (compatibility mode) # # # BUG : if a -command is intercepted by a hook, the hook must use # the same record name as the issuer of the -command. For the time # being, you must use the name "bind" as the record name!!!!! # #---------------------------------------------------------------------- namespace eval ::tix { variable event_flags "" set evs [list % \# a b c d f h k m o p s t w x y A B E K N R S T W X Y] foreach ev $evs { lappend event_flags "%$ev" } # This is a "name stack" for storing the "bind" structures # # The bottom of the event stack is usually a raw event (generated by # tixBind) but it may also be a programatically triggered (caused by # tixEvalCmdBinding) variable EVENT set EVENT(nameStack) "" set EVENT(stackLevel) 0 } proc tixBind {tag event action} { set cmd [linsert $::tix::event_flags 0 _tixRecordFlags $event] append cmd "; $action; _tixDeleteFlags;" bind $tag $event $cmd } proc tixPushEventStack {} { variable ::tix::EVENT set lastEvent [lindex $EVENT(nameStack) 0] incr EVENT(stackLevel) set thisEvent ::tix::_event$EVENT(stackLevel) set EVENT(nameStack) [list $thisEvent $EVENT(nameStack)] if {$lastEvent == ""} { upvar #0 $thisEvent this set this(type) <Application> } else { upvar #0 $lastEvent last upvar #0 $thisEvent this foreach name [array names last] { set this($name) $last($name) } } return $thisEvent } proc tixPopEventStack {varName} { variable ::tix::EVENT if {$varName ne [lindex $EVENT(nameStack) 0]} { error "unmatched tixPushEventStack and tixPopEventStack calls" } incr EVENT(stackLevel) -1 set EVENT(nameStack) [lindex $EVENT(nameStack) 1] global $varName unset $varName } # Events triggered by tixBind # proc _tixRecordFlags [concat event $::tix::event_flags] { set thisName [tixPushEventStack]; upvar #0 $thisName this set this(type) $event foreach f $::tix::event_flags { set this($f) [set $f] } } proc _tixDeleteFlags {} { variable ::tix::EVENT tixPopEventStack [lindex $EVENT(nameStack) 0] } # programatically trigged events # proc tixEvalCmdBinding {w cmd {subst ""} args} { global tixPriv tix variable ::tix::EVENT set thisName [tixPushEventStack]; upvar #0 $thisName this if {$subst != ""} { upvar $subst bind if {[info exists bind(specs)]} { foreach spec $bind(specs) { set this($spec) $bind($spec) } } if {[info exists bind(type)]} { set this(type) $bind(type) } } if {[catch { if {![info exists tix(-extracmdargs)] || [string is true -strict $tix(-extracmdargs)]} { # Compatibility mode set ret [uplevel \#0 $cmd $args] } else { set ret [uplevel 1 $cmd] } } error]} { if {[catch {tixCmdErrorHandler $error} error]} { # double fault: just print out tixBuiltInCmdErrorHandler $error } tixPopEventStack $thisName return "" } else { tixPopEventStack $thisName return $ret } } proc tixEvent {option args} { global tixPriv variable ::tix::EVENT set varName [lindex $EVENT(nameStack) 0] if {$varName == ""} { error "tixEvent called when no event is being processed" } else { upvar #0 $varName event } switch -exact -- $option { type { return $event(type) } value { if {[info exists event(%V)]} { return $event(%V) } else { return "" } } flag { set f %[lindex $args 0] if {[info exists event($f)]} { return $event($f) } error "The flag \"[lindex $args 0]\" does not exist" } match { return [string match [lindex $args 0] $event(type)] } default { error "unknown option \"$option\"" } } } # tixBuiltInCmdErrorHandler -- # # Default method to report command handler errors. This procedure is # also called if double-fault happens (command handler causes error, # then tixCmdErrorHandler causes error). # proc tixBuiltInCmdErrorHandler {errorMsg} { global errorInfo tcl_platform if {![info exists errorInfo]} { set errorInfo "???" } if {$tcl_platform(platform) eq "windows"} { bgerror "Tix Error: $errorMsg" } else { puts "Error:\n $errorMsg\n$errorInfo" } } # tixCmdErrorHandler -- # # You can redefine this command to handle the errors that occur # in the command handlers. See the programmer's documentation # for details # if {![llength [info commands tixCmdErrorHandler]]} { proc tixCmdErrorHandler {errorMsg} { tixBuiltInCmdErrorHandler $errorMsg } } Tix8.4.3/VResize.tcl 0000644 00000011715 15231152137 0010003 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: VResize.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $ # # VResize.tcl -- # # tixVResize: # Virtual base class for all classes that provide resize capability, # such as the resize handle and the MDI client window. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixVResize { -virtual true -classname TixVResize -superclass tixPrimitive -method { drag dragend dragstart } -flag { -gridded -gridx -gridy -minwidth -minheight } -configspec { {-gridded gridded Gridded false} {-gridx gridX Grid 10} {-gridy gridY Grid 10} {-minwidth minWidth MinWidth 0} {-minheight minHeight MinHeight 0} } } proc tixVResize:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(movePending) 0 set data(aborted) 0 set data(depress) 0 } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- # Start dragging a window # proc tixVResize:dragstart {w win depress rootx rooty wrect mrect} { upvar #0 $w data set data(rootx) $rootx set data(rooty) $rooty set data(mx) [lindex $mrect 0] set data(my) [lindex $mrect 1] set data(mw) [lindex $mrect 2] set data(mh) [lindex $mrect 3] set data(fx) [lindex $wrect 0] set data(fy) [lindex $wrect 1] set data(fw) [lindex $wrect 2] set data(fh) [lindex $wrect 3] set data(old_x) [lindex $wrect 0] set data(old_y) [lindex $wrect 1] set data(old_w) [lindex $wrect 2] set data(old_h) [lindex $wrect 3] if {$data(mw) < 0} { set data(maxx) [expr {$data(fx) + $data(old_w) - $data(-minwidth)}] } else { set data(maxx) 32000 } if {$data(mh) < 0} { set data(maxy) [expr {$data(fy) + $data(old_h) - $data(-minheight)}] } else { set data(maxy) 32000 } set data(aborted) 0 tixCallMethod $w ShowHintFrame tixCallMethod $w SetHintFrame $data(fx) $data(fy) $data(fw) $data(fh) # Grab so that all button events are captured # grab $win focus $win set data(depress) $depress if {$depress} { set data(oldRelief) [$win cget -relief] $win config -relief sunken } } proc tixVResize:drag {w rootx rooty} { upvar #0 $w data if {$data(aborted) == 0} { set data(newrootx) $rootx set data(newrooty) $rooty if {$data(movePending) == 0} { set data(movePending) 1 after 2 tixVResize:DragCompressed $w } } } proc tixVResize:dragend {w win isAbort rootx rooty} { upvar #0 $w data if {$data(aborted)} { if {$isAbort == 0} { grab release $win } return } # Just in case some draggings are not applied. # update tixCallMethod $w HideHintFrame if {$isAbort} { set data(aborted) 1 } else { # Apply the changes # tixCallMethod $w UpdateSize $data(fx) $data(fy) $data(fw) $data(fh) # Release the grab # grab release $win } if {$data(depress)} { $win config -relief $data(oldRelief) } } #---------------------------------------------------------------------- # Internal methods #---------------------------------------------------------------------- proc tixVResize:DragCompressed {w} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(aborted) == 1 || $data(movePending) == 0} { return } set dx [expr {$data(newrootx) - $data(rootx)}] set dy [expr {$data(newrooty) - $data(rooty)}] set data(fx) [expr {$data(old_x) + ($dx * $data(mx))}] set data(fy) [expr {$data(old_y) + ($dy * $data(my))}] set data(fw) [expr {$data(old_w) + ($dx * $data(mw))}] set data(fh) [expr {$data(old_h) + ($dy * $data(mh))}] if {$data(fw) < $data(-minwidth)} { set data(fw) $data(-minwidth) } if {$data(fh) < $data(-minheight)} { set data(fh) $data(-minheight) } if {$data(fx) > $data(maxx)} { set data(fx) $data(maxx) } if {$data(fy) > $data(maxy)} { set data(fy) $data(maxy) } # If we need grid, set x,y,w,h to fit the grid # # *note* grid overrides minwidth and maxwidth ... # if {$data(-gridded)} { set data(fx) [expr {round(double($data(fx))/$data(-gridx)) * $data(-gridx)}] set data(fy) [expr {round(double($data(fy))/$data(-gridy)) * $data(-gridy)}] set fx2 [expr {$data(fx) + $data(fw) - 2}] set fy2 [expr {$data(fy) + $data(fh) - 2}] set fx2 [expr {round(double($fx2)/$data(-gridx)) * $data(-gridx)}] set fy2 [expr {round(double($fy2)/$data(-gridy)) * $data(-gridy)}] set data(fw) [expr {$fx2 - $data(fx) + 1}] set data(fh) [expr {$fy2 - $data(fy) + 1}] } tixCallMethod $w SetHintFrame $data(fx) $data(fy) $data(fw) $data(fh) update idletasks set data(movePending) 0 } Tix8.4.3/FileBox.tcl 0000644 00000034000 15231152137 0007734 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FileBox.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # FileBox.tcl -- # # Implements the File Selection Box widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # ToDo # (1) If user has entered an invalid directory, give an error dialog # tixWidgetClass tixFileSelectBox { -superclass tixPrimitive -classname TixFileSelectBox -method { filter invoke } -flag { -browsecmd -command -dir -directory -disablecallback -grab -pattern -selection -value } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-directory directory Directory ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-grab grab Grab global} {-pattern pattern Pattern *} {-value value Value ""} } -alias { {-selection -value} {-dir -directory} } -forcecall { -value } -default { {.relief raised} {*filelist*Listbox.takeFocus true} {.borderWidth 1} {*Label.anchor w} {*Label.borderWidth 0} {*TixComboBox*scrollbar auto} {*TixComboBox*Label.anchor w} {*TixScrolledListBox.scrollbar auto} {*Listbox.exportSelection false} {*directory*Label.text "Directories:"} {*directory*Label.underline 0} {*file*Label.text "Files:"} {*file*Label.underline 2} {*filter.label "Filter:"} {*filter*label.underline 3} {*filter.labelSide top} {*selection.label "Selection:"} {*selection*label.underline 0} {*selection.labelSide top} } } proc tixFileSelectBox:InitWidgetRec {w} { upvar #0 $w data global env tixChainMethod $w InitWidgetRec if {$data(-directory) eq ""} { set data(-directory) [pwd] } if {$data(-pattern) eq ""} { set data(-pattern) "*" } tixFileSelectBox:SetPat $w $data(-pattern) tixFileSelectBox:SetDir $w [tixFSNormalize $data(-directory)] set data(flag) 0 set data(fakeDir) 0 } #---------------------------------------------------------------------- # Construct widget #---------------------------------------------------------------------- proc tixFileSelectBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set frame1 [tixFileSelectBox:CreateFrame1 $w] set frame2 [tixFileSelectBox:CreateFrame2 $w] set frame3 [tixFileSelectBox:CreateFrame3 $w] pack $frame1 -in $w -side top -fill x pack $frame3 -in $w -side bottom -fill x pack $frame2 -in $w -side top -fill both -expand yes } proc tixFileSelectBox:CreateFrame1 {w} { upvar #0 $w data frame $w.f1 -border 10 tixComboBox $w.f1.filter -editable 1\ -command [list $w filter] -anchor e \ -options { slistbox.scrollbar auto listbox.height 5 label.anchor w } set data(w:filter) $w.f1.filter pack $data(w:filter) -side top -expand yes -fill both return $w.f1 } proc tixFileSelectBox:CreateFrame2 {w} { upvar #0 $w data tixPanedWindow $w.f2 -orientation horizontal # THE LEFT FRAME #----------------------- set dir [$w.f2 add directory -size 120] $dir config -relief flat label $dir.lab set data(w:dirlist) [tixScrolledListBox $dir.dirlist\ -scrollbar auto\ -options {listbox.width 4 listbox.height 6}] pack $dir.lab -side top -fill x -padx 10 pack $data(w:dirlist) -side bottom -expand yes -fill both -padx 10 # THE RIGHT FRAME #----------------------- set file [$w.f2 add file -size 160] $file config -relief flat label $file.lab set data(w:filelist) [tixScrolledListBox $file.filelist \ -scrollbar auto\ -options {listbox.width 4 listbox.height 6}] pack $file.lab -side top -fill x -padx 10 pack $data(w:filelist) -side bottom -expand yes -fill both -padx 10 return $w.f2 } proc tixFileSelectBox:CreateFrame3 {w} { upvar #0 $w data frame $w.f3 -border 10 tixComboBox $w.f3.selection -editable 1\ -command [list tixFileSelectBox:SelInvoke $w] \ -anchor e \ -options { slistbox.scrollbar auto listbox.height 5 label.anchor w } set data(w:selection) $w.f3.selection pack $data(w:selection) -side top -fill both return $w.f3 } proc tixFileSelectBox:SelInvoke {w args} { upvar #0 $w data set event [tixEvent type] if {$event ne "<FocusOut>" && $event ne "<Tab>"} { $w invoke } } proc tixFileSelectBox:SetValue {w value} { upvar #0 $w data set data(i-value) $value set data(-value) [tixFSNative $value] } proc tixFileSelectBox:SetDir {w value} { upvar #0 $w data set data(i-directory) $value set data(-directory) [tixFSNative $value] } proc tixFileSelectBox:SetPat {w value} { upvar #0 $w data set data(i-pattern) $value set data(-pattern) [tixFSNative $value] } #---------------------------------------------------------------------- # BINDINGS #---------------------------------------------------------------------- proc tixFileSelectBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixDoWhenMapped $w [list tixFileSelectBox:FirstMapped $w] $data(w:dirlist) config \ -browsecmd [list tixFileSelectBox:SelectDir $w] \ -command [list tixFileSelectBox:InvokeDir $w] $data(w:filelist) config \ -browsecmd [list tixFileSelectBox:SelectFile $w] \ -command [list tixFileSelectBox:InvokeFile $w] } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixFileSelectBox:config-directory {w value} { upvar #0 $w data if {$value eq ""} { set value [pwd] } tixFileSelectBox:SetDir $w [tixFSNormalize $value] tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) $w filter return $data(-directory) } proc tixFileSelectBox:config-pattern {w value} { upvar #0 $w data if {$value eq ""} { set value "*" } tixFileSelectBox:SetPat $w $value tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) # Returning a value means we have overridden the value and updated # the widget record ourselves. # return $data(-pattern) } proc tixFileSelectBox:config-value {w value} { upvar #0 $w data tixFileSelectBox:SetValue $w [tixFSNormalize $value] tixSetSilent $data(w:selection) $value return $data(-value) } #---------------------------------------------------------------------- # PUBLIC METHODS #---------------------------------------------------------------------- proc tixFileSelectBox:filter {w args} { upvar #0 $w data $data(w:filter) popdown tixFileSelectBox:InterpFilter $w tixFileSelectBox:LoadDir $w } proc tixFileSelectBox:invoke {w args} { upvar #0 $w data if {[$data(w:selection) cget -value] ne [$data(w:selection) cget -selection]} { # this will in turn call "invoke" again ... # $data(w:selection) invoke return } # record the filter # set filter [tixFileSelectBox:InterpFilter $w] $data(w:filter) addhistory $filter # record the selection # set userInput [string trim [$data(w:selection) cget -value]] tixFileSelectBox:SetValue $w \ [tixFSNormalize [file join $data(i-directory) $userInput]] $data(w:selection) addhistory $data(-value) $data(w:filter) align $data(w:selection) align if {[llength $data(-command)] && !$data(-disablecallback)} { set bind(specs) "%V" set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-command) bind $data(-value) } } #---------------------------------------------------------------------- # INTERNAL METHODS #---------------------------------------------------------------------- # InterpFilter: # Interprets the value of the w:filter widget. # # Side effects: # Changes the fields data(-directory) and data(-pattenn) # proc tixFileSelectBox:InterpFilter {w {filter ""}} { upvar #0 $w data if {$filter == ""} { set filter [$data(w:filter) cget -selection] if {$filter == ""} { set filter [$data(w:filter) cget -value] } } set i_filter [tixFSNormalize $filter] if {[file isdirectory $filter]} { tixFileSelectBox:SetDir $w $i_filter tixFileSelectBox:SetPat $w "*" } else { set nDir [file dirname $filter] if {$nDir eq "" || $nDir eq "."} { tixFileSelectBox:SetDir $w [tixFSNormalize $data(i-directory)] } else { tixFileSelectBox:SetDir $w [tixFSNormalize $nDir] } tixFileSelectBox:SetPat $w [file tail $filter] } tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) return $data(filter) } proc tixFileSelectBox:SetFilter {w dir pattern} { upvar #0 $w data set data(filter) [file join $dir $pattern] tixSetSilent $data(w:filter) $data(filter) } proc tixFileSelectBox:LoadDirIntoLists {w} { upvar #0 $w data $data(w:dirlist) subwidget listbox delete 0 end $data(w:filelist) subwidget listbox delete 0 end set dir $data(i-directory) # (1) List the directories # set isDrive [expr {[llength [file split $dir]] == 1}] foreach name [tixFSListDir $dir 1 0 1 1] { if {".." eq $name && $isDrive} { continue } $data(w:dirlist) subwidget listbox insert end $name } # (2) List the files # # %% UNIX'ISM: # If the pattern is "*" force glob to list the .* files. # However, since the user might not # be interested in them, shift the listbox so that the "normal" files # are seen first # # NOTE: if we pass $pat == "" but with $showHidden set to true, # tixFSListDir will list "* .*" in Unix. See the comment on top of # the tixFSListDir code. # if {$data(i-pattern) eq "*"} { set pat "" } else { set pat $data(i-pattern) } set top 0 foreach name [tixFSListDir $dir 0 1 0 0 $pat] { $data(w:filelist) subwidget listbox insert end $name if {[string match .* $name]} { incr top } } $data(w:filelist) subwidget listbox yview $top } proc tixFileSelectBox:LoadDir {w} { upvar #0 $w data tixBusy $w on [$data(w:dirlist) subwidget listbox] tixFileSelectBox:LoadDirIntoLists $w if {[$data(w:dirlist) subwidget listbox size] == 0} { # fail safe, just in case the user has inputed an errnoeuos # directory $data(w:dirlist) subwidget listbox insert 0 ".." } tixWidgetDoWhenIdle tixBusy $w off [$data(w:dirlist) subwidget listbox] } # User single clicks on the directory listbox # proc tixFileSelectBox:SelectDir {w} { upvar #0 $w data if {$data(fakeDir) > 0} { incr data(fakeDir) -1 $data(w:dirlist) subwidget listbox select clear 0 end $data(w:dirlist) subwidget listbox activate -1 return } if {$data(flag)} { return } set data(flag) 1 set subdir [tixListboxGetCurrent [$data(w:dirlist) subwidget listbox]] if {$subdir == ""} { set subdir "." } tixFileSelectBox:SetFilter $w \ [tixFSNormalize [file join $data(i-directory) $subdir]] \ $data(i-pattern) set data(flag) 0 } proc tixFileSelectBox:InvokeDir {w} { upvar #0 $w data set theDir [$data(w:dirlist) subwidget listbox get active] tixFileSelectBox:SetDir $w \ [tixFSNormalize [file join $data(i-directory) $theDir]] $data(w:dirlist) subwidget listbox select clear 0 end tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) tixFileSelectBox:InterpFilter $w [tixFSNativeNorm $data(filter)] tixFileSelectBox:LoadDir $w if {![tixEvent match <Return>]} { incr data(fakeDir) 1 } } proc tixFileSelectBox:SelectFile {w} { upvar #0 $w data if {$data(flag)} { return } set data(flag) 1 # Reset the "Filter:" box to the current directory: # $data(w:dirlist) subwidget listbox select clear 0 end tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) # Now select the file # set selected [tixListboxGetCurrent [$data(w:filelist) subwidget listbox]] if {$selected != ""} { # Make sure that the selection is not empty! # tixFileSelectBox:SetValue $w \ [tixFSNormalize [file join $data(i-directory) $selected]] tixSetSilent $data(w:selection) $data(-value) if {[llength $data(-browsecmd)]} { tixEvalCmdBinding $w $data(-browsecmd) "" $data(-value) } } set data(flag) 0 } proc tixFileSelectBox:InvokeFile {w} { upvar #0 $w data set selected [tixListboxGetCurrent [$data(w:filelist) subwidget listbox]] if {$selected != ""} { $w invoke } } # This is only called the first this fileBox is mapped -- load the directory # proc tixFileSelectBox:FirstMapped {w} { if {![winfo exists $w]} { return } upvar #0 $w data tixFileSelectBox:SetFilter $w $data(i-directory) $data(i-pattern) tixFileSelectBox:LoadDir $w $data(w:filter) align } #---------------------------------------------------------------------- # # # C O N V E N I E N C E R O U T I N E S # # #---------------------------------------------------------------------- # This is obsolete. Use the widget tixFileSelectDialog instead # # proc tixMkFileDialog {w args} { set option(-okcmd) "" set option(-helpcmd) "" tixHandleOptions option {-okcmd -helpcmd} $args toplevel $w wm minsize $w 10 10 tixStdDlgBtns $w.btns if {$option(-okcmd) != ""} { tixFileSelectBox $w.fsb \ -command "[list wm withdraw $w]; $option(-okcmd)" } else { tixFileSelectBox $w.fsb -command [list wm withdraw $w] } $w.btns button ok config -command [list $w.fsb invoke] $w.btns button apply config -command [list $w.fsb filter] -text Filter $w.btns button cancel config -command [list wm withdraw $w] if {$option(-helpcmd) == ""} { $w.btns button help config -state disabled } else { $w.btns button help config -command $option(-helpcmd) } wm protocol $w WM_DELETE_WINDOW [list wm withdraw $w] pack $w.btns -side bottom -fill both pack $w.fsb -fill both -expand yes return $w.fsb } Tix8.4.3/Shell.tcl 0000644 00000002072 15231152137 0007457 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Shell.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # Shell.tcl -- # # This is the base class to all shell widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # type : normal, transient, overrideredirect # tixWidgetClass tixShell { -superclass tixPrimitive -classname TixShell -flag { -title } -configspec { {-title title Title ""} } -forcecall { -title } } #---------------------------------------------------------------------- # ClassInitialization: #---------------------------------------------------------------------- proc tixShell:CreateRootWidget {w args} { upvar #0 $w data upvar #0 $data(className) classRec toplevel $w -class $data(ClassName) wm transient $w "" wm withdraw $w } proc tixShell:config-title {w value} { wm title $w $value } Tix8.4.3/DirList.tcl 0000644 00000015630 15231152137 0007766 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DirList.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # DirList.tcl -- # # Implements the tixDirList widget. # # - overrides the -browsecmd and -command options of the # HList subwidget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixDirList { -classname TixDirList -superclass tixScrolledHList -method { chdir } -flag { -browsecmd -command -dircmd -disablecallback -root -rootname -showhidden -value } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-dircmd dirCmd DirCmd ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-root root Root ""} {-rootname rootName RootName ""} {-showhidden showHidden ShowHidden 0 tixVerifyBoolean} {-value value Value ""} } -default { {.scrollbar auto} {*borderWidth 1} {*hlist.background #c3c3c3} {*hlist.indent 7} {*hlist.relief sunken} {*hlist.height 10} {*hlist.width 20} {*hlist.padX 2} {*hlist.padY 0} {*hlist.wideSelection 0} {*hlist.drawBranch 0} {*hlist.highlightBackground #d9d9d9} {*hlist.itemType imagetext} {*hlist.takeFocus 1} } -forcecall { -value } } # Important data members: # # data(vpath) # The currently selected vpath. This internal variable is useful on # the Win95 platform, where an directory may correspond to more than # one node in the hierarchy. For example, C:\Windows\Desktop\Foo # can appead as "Desktop\Foo" and # "Desktop\My Computer\C:\Windows\Desktop\Foo". This variable tells us # which icon should we show given the same DOS pathname. # proc tixDirList:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixDirList:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget $data(w:hlist) config -separator [tixFSSep] -selectmode "single" } proc tixDirList:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:hlist) config \ -browsecmd [list tixDirList:Browse $w] \ -command [list tixDirList:Command $w] if {$data(-value) eq "" || [catch {set data(-value) [tixFSNormalize $data(-value)]}]} { set data(-value) [pwd] } set data(vpath) [tixFSInternal $data(-value)] } #---------------------------------------------------------------------- # Incoming-Events #---------------------------------------------------------------------- proc tixDirList:Browse {w args} { upvar #0 $w data set vpath [tixEvent flag V] set value [$data(w:hlist) info data $vpath] tixDirList:HighLight $w $vpath set data(vpath) $vpath set data(-value) [tixFSExternal $value] tixDirList:CallBrowseCmd $w $data(-value) } proc tixDirList:Command {w args} { upvar #0 $w data set vpath [tixEvent value] set value [$data(w:hlist) info data $vpath] set data(-value) [tixFSExternal $value] tixDirList:LoadDir $w [tixFSNativeNorm $value] $vpath tixDirList:HighLight $w $vpath set data(vpath) $vpath tixDirList:CallCommand $w $data(-value) } #---------------------------------------------------------------------- # Outgoing-Events #---------------------------------------------------------------------- proc tixDirList:CallBrowseCmd {w npath} { upvar #0 $w data if {[llength $data(-browsecmd)]} { set bind(specs) "%V" set bind(%V) $npath tixEvalCmdBinding $w $data(-browsecmd) bind $npath } } proc tixDirList:CallCommand {w npath} { upvar #0 $w data if {[llength $data(-command)] && !$data(-disablecallback)} { set bind(specs) "%V" set bind(%V) $npath tixEvalCmdBinding $w $data(-command) bind $npath } } #---------------------------------------------------------------------- # Directory loading #---------------------------------------------------------------------- proc tixDirList:LoadDir {w {npath ""} {vpath ""}} { upvar #0 $w data tixBusy $w on $data(w:hlist) $data(w:hlist) delete all if {$npath eq ""} { set npath [tixFSNativeNorm $data(-value)] set vpath [tixFSInternal $npath] } tixDirList:ListHierachy $w $npath $vpath tixDirList:ListSubDirs $w $npath $vpath tixWidgetDoWhenIdle tixBusy $w off $data(w:hlist) } proc tixDirList:ListHierachy {w npath vpath} { upvar #0 $w data set img [tix getimage openfold] set curpath "" foreach part [tixFSAncestors $npath] { set curpath [file join $curpath $part] set text [tixFSDisplayFileName $curpath] set vpath [tixFSInternal $curpath] $data(w:hlist) add $vpath -text $text -data $curpath -image $img } } proc tixDirList:ListSubDirs {w npath vpath} { upvar #0 $w data $data(w:hlist) entryconfig $vpath -image [tix getimage act_fold] set img [tix getimage folder] foreach ent [tixFSListDir $npath 1 0 0 $data(-showhidden)] { set curpath [file join $npath $ent] set vp [tixFSInternal $curpath] if {![$data(w:hlist) info exists $vp]} { $data(w:hlist) add $vp -text $ent -data $curpath -image $img } } } proc tixDirList:SetValue {w npath vpath {flag ""}} { upvar #0 $w data if {$flag eq "reload" || ![$data(w:hlist) info exists $vpath]} { tixDirList:LoadDir $w $npath $vpath } tixDirList:HighLight $w $vpath set data(-value) [tixFSNativeNorm $npath] set data(vpath) $vpath tixDirList:CallCommand $w $data(-value) } proc tixDirList:HighLight {w vpath} { upvar #0 $w data if {$data(vpath) ne $vpath} { set old $data(vpath) if {[$data(w:hlist) info exists $old]} { # Un-highlight the originally selected entry by changing its # folder image if {[llength [$data(w:hlist) info children $old]]} { set img [tix getimage openfold] } else { set img [tix getimage folder] } $data(w:hlist) entryconfig $old -image $img } } # Highlight the newly selected entry # $data(w:hlist) entryconfig $vpath -image [tix getimage act_fold] $data(w:hlist) anchor set $vpath $data(w:hlist) select clear $data(w:hlist) select set $vpath $data(w:hlist) see $vpath } #---------------------------------------------------------------------- # Config options #---------------------------------------------------------------------- proc tixDirList:config-value {w value} { upvar #0 $w data tixDirList:chdir $w $value return $data(-value) } proc tixDirList:config-showhidden {w value} { upvar #0 $w data tixWidgetDoWhenIdle tixDirList:LoadDir $w } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixDirList:chdir {w value} { upvar #0 $w data set npath [tixFSNativeNorm $value] tixDirList:SetValue $w $npath [tixFSInternal $npath] } Tix8.4.3/DirDlg.tcl 0000644 00000004236 15231152137 0007561 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DirDlg.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # DirDlg.tcl -- # # Implements the Directory Selection Dialog widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixDirSelectDialog { -classname TixDirSelectDialog -superclass tixDialogShell -method {} -flag { -command } -configspec { {-command command Command ""} {-title title Title "Select A Directory"} } -default { {*ok.text "OK"} {*ok.underline 0} {*ok.width 6} {*cancel.text "Cancel"} {*cancel.underline 0} {*cancel.width 6} {*dirbox.borderWidth 1} {*dirbox.relief raised} } } proc tixDirSelectDialog:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget # the buttons frame $w.f -relief raised -bd 1 set data(w:ok) [button $w.f.ok -command \ "tixDirSelectDialog:OK $w"] set data(w:cancel) [button $w.f.cancel -command \ "tixDirSelectDialog:Cancel $w"] pack $data(w:ok) $data(w:cancel) -side left -expand yes -padx 10 -pady 8 pack $w.f -side bottom -fill x # the dir select box set data(w:dirbox) [tixDirSelectBox $w.dirbox \ -command [list tixDirSelectDialog:DirBoxCmd $w]] pack $data(w:dirbox) -expand yes -fill both } proc tixDirSelectDialog:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings bind $w <Alt-Key-d> "focus [$data(w:dirbox) subwidget dircbx]" } proc tixDirSelectDialog:OK {w} { upvar #0 $w data wm withdraw $w $data(w:dirbox) subwidget dircbx invoke } proc tixDirSelectDialog:DirBoxCmd {w args} { upvar #0 $w data set value [tixEvent flag V] wm withdraw $w tixDirSelectDialog:CallCmd $w $value } proc tixDirSelectDialog:CallCmd {w value} { upvar #0 $w data if {$data(-command) != ""} { set bind(specs) "%V" set bind(%V) $value tixEvalCmdBinding $w $data(-command) bind $value } } proc tixDirSelectDialog:Cancel {w} { wm withdraw $w } Tix8.4.3/NoteBook.tcl 0000644 00000014020 15231152137 0010124 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: NoteBook.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $ # # NoteBook.tcl -- # # tixNoteBook: NoteBook type of window. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixNoteBook { -classname TixNoteBook -superclass tixVStack -method { } -flag { } -configspec { {-takefocus takeFocus TakeFocus 0 tixVerifyBoolean} } -default { {.nbframe.tabPadX 8} {.nbframe.tabPadY 5} {.nbframe.borderWidth 2} {*nbframe.relief raised} } } proc tixNoteBook:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(pad-x1) 0 set data(pad-x2) 0 set data(pad-y1) 20 set data(pad-y2) 0 } proc tixNoteBook:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:top) [tixNoteBookFrame $w.nbframe -slave 1 -takefocus 1] set data(w:nbframe) $data(w:top) bind $data(w:top) <ButtonPress-1> [list tixNoteBook:MouseDown $w %x %y] bind $data(w:top) <ButtonRelease-1> [list tixNoteBook:MouseUp $w %x %y] bind $data(w:top) <B1-Motion> [list tixNoteBook:MouseDown $w %x %y] bind $data(w:top) <Left> [list tixNoteBook:FocusNext $w prev] bind $data(w:top) <Right> [list tixNoteBook:FocusNext $w next] bind $data(w:top) <Return> [list tixNoteBook:SetFocusByKey $w] bind $data(w:top) <space> [list tixNoteBook:SetFocusByKey $w] } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixNoteBook:add {w child args} { upvar #0 $w data set ret [eval tixChainMethod $w add $child $args] set new_args "" foreach {flag value} $args { if {$flag ne "-createcmd" && $flag ne "-raisecmd"} { lappend new_args $flag lappend new_args $value } } eval [linsert $new_args 0 $data(w:top) add $child] return $ret } proc tixNoteBook:raise {w child} { upvar #0 $w data tixChainMethod $w raise $child if {[$data(w:top) pagecget $child -state] eq "normal"} { $data(w:top) activate $child } } proc tixNoteBook:delete {w child} { upvar #0 $w data tixChainMethod $w delete $child $data(w:top) delete $child } #---------------------------------------------------------------------- # Private methods #---------------------------------------------------------------------- proc tixNoteBook:Resize {w} { upvar #0 $w data # We have to take care of the size of the tabs so that # set rootReq [$data(w:top) geometryinfo] set tW [lindex $rootReq 0] set tH [lindex $rootReq 1] set data(pad-x1) 2 set data(pad-x2) 2 set data(pad-y1) [expr {$tH + $data(-ipadx) + 1}] set data(pad-y2) 2 set data(minW) [expr {$tW}] set data(minH) [expr {$tH}] # Now that we know data(pad-y1), we can chain the call # tixChainMethod $w Resize } proc tixNoteBook:MouseDown {w x y} { upvar #0 $w data focus $data(w:top) set name [$data(w:top) identify $x $y] $data(w:top) focus $name set data(w:down) $name } proc tixNoteBook:MouseUp {w x y} { upvar #0 $w data #it could happen (using the tk/menu) that a MouseUp #proceeds without a MouseDown event!! if {![info exists data(w:down)] || ![info exists data(w:top)]} { return } set name [$data(w:top) identify $x $y] if {$name ne "" && $name eq $data(w:down) && [$data(w:top) pagecget $name -state] eq "normal"} { $data(w:top) activate $name tixCallMethod $w raise $name } else { $data(w:top) focus "" } } #---------------------------------------------------------------------- # # Section for keyboard bindings # #---------------------------------------------------------------------- proc tixNoteBook:FocusNext {w dir} { upvar #0 $w data if {[$data(w:top) info focus] == ""} { set name [$data(w:top) info active] $data(w:top) focus $name if {$name ne ""} { return } } else { set name [$data(w:top) info focus$dir] $data(w:top) focus $name } } proc tixNoteBook:SetFocusByKey {w} { upvar #0 $w data set name [$data(w:top) info focus] if {$name ne "" && [$data(w:top) pagecget $name -state] eq "normal"} { tixCallMethod $w raise $name $data(w:top) activate $name } } #---------------------------------------------------------------------- # Automatic bindings for alt keys #---------------------------------------------------------------------- proc tixNoteBookFind {w char} { set char [string tolower $char] foreach child [winfo child $w] { if {![winfo ismapped $w]} { continue } switch -exact -- [winfo class $child] { Toplevel { continue } TixNoteBook { set nbframe [$child subwidget nbframe] foreach page [$nbframe info pages] { set char2 [string index [$nbframe pagecget $page -label] \ [$nbframe pagecget $page -underline]] if {($char eq [string tolower $char2] || $char eq "") && [$nbframe pagecget $page -state] ne "disabled"} { return [list $child $page] } } } } # Well, this notebook doesn't match with the key, but maybe # it contains a "subnotebook" that will match .. set match [tixNoteBookFind $child $char] if {$match ne ""} { return $match } } return "" } proc tixTraverseToNoteBook {w char} { if {$char eq ""} { return 0 } if {![winfo exists $w]} { return 0 } set list [tixNoteBookFind [winfo toplevel $w] $char] if {$list ne ""} { [lindex $list 0] raise [lindex $list 1] return 1 } return 0 } #---------------------------------------------------------------------- # Set default class bindings #---------------------------------------------------------------------- bind all <Alt-KeyPress> "+tixTraverseToNoteBook %W %A" bind all <Meta-KeyPress> "+tixTraverseToNoteBook %W %A" Tix8.4.3/VStack.tcl 0000644 00000022663 15231152137 0007613 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: VStack.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # VStack.tcl -- # # Virtual base class, do not instantiate! This is the core # class for all NoteBook style widgets. Stack maintains a list # of windows. It provides methods to create, delete windows as # well as stepping through them. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # tixWidgetClass tixVStack { -virtual true -classname TixVStack -superclass tixPrimitive -method { add delete pageconfigure pagecget pages raise raised } -flag { -dynamicgeometry -ipadx -ipady } -configspec { {-dynamicgeometry dynamicGeometry DynamicGeometry 0 tixVerifyBoolean} {-ipadx ipadX Pad 0} {-ipady ipadY Pad 0} } } proc tixVStack:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(pad-x1) 0 set data(pad-x2) 0 set data(pad-y1) 0 set data(pad-y2) 0 set data(windows) "" set data(nWindows) 0 set data(topchild) "" set data(minW) 1 set data(minH) 1 set data(w:top) $w set data(counter) 0 set data(repack) 0 } proc tixVStack:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixCallMethod $w InitGeometryManager } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- proc tixVStack:add {w child args} { upvar #0 $w data set validOptions {-createcmd -raisecmd} set opt(-createcmd) "" set opt(-raisecmd) "" tixHandleOptions -nounknown opt $validOptions $args set data($child,raisecmd) $opt(-raisecmd) set data($child,createcmd) $opt(-createcmd) set data(w:$child) [tixCallMethod $w CreateChildFrame $child] lappend data(windows) $child incr data(nWindows) 1 return $data(w:$child) } proc tixVStack:delete {w child} { upvar #0 $w data if {[info exists data($child,createcmd)]} { if {[winfo exists $data(w:$child)]} { bind $data(w:$child) <Destroy> {;} destroy $data(w:$child) } catch {unset data($child,createcmd)} catch {unset data($child,raisecmd)} catch {unset data(w:$child)} set index [lsearch $data(windows) $child] if {$index >= 0} { set data(windows) [lreplace $data(windows) $index $index] incr data(nWindows) -1 } if {[string equal $data(topchild) $child]} { set data(topchild) "" foreach page $data(windows) { if {$page ne $child} { $w raise $page set data(topchild) $page break } } } } else { error "page $child does not exist" } } proc tixVStack:pagecget {w child option} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page \"$child\" does not exist in $w" } case $option { -createcmd { return "$data($child,createcmd)" } -raisecmd { return "$data($child,raisecmd)" } default { if {$data(w:top) ne $w} { return [$data(w:top) pagecget $child $option] } else { error "unknown option \"$option\"" } } } } proc tixVStack:pageconfigure {w child args} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page \"$child\" does not exist in $w" } set len [llength $args] if {$len == 0} { set value [$data(w:top) pageconfigure $child] lappend value [list -createcmd "" "" "" $data($child,createcmd)] lappend value [list -raisecmd "" "" "" $data($child,raisecmd)] return $value } if {$len == 1} { case [lindex $args 0] { -createcmd { return [list -createcmd "" "" "" $data($child,createcmd)] } -raisecmd { return [list -raisecmd "" "" "" $data($child,raisecmd)] } default { return [$data(w:top) pageconfigure $child [lindex $args 0]] } } } # By default handle each of the options # set opt(-createcmd) $data($child,createcmd) set opt(-raisecmd) $data($child,raisecmd) tixHandleOptions -nounknown opt {-createcmd -raisecmd} $args # # the widget options set new_args "" foreach {flag value} $args { if {$flag ne "-createcmd" && $flag ne "-raisecmd"} { lappend new_args $flag lappend new_args $value } } if {[llength $new_args] >= 2} { eval $data(w:top) pageconfig $child $new_args } # # The add-on options set data($child,raisecmd) $opt(-raisecmd) set data($child,createcmd) $opt(-createcmd) return "" } proc tixVStack:pages {w} { upvar #0 $w data return $data(windows) } proc tixVStack:raise {w child} { upvar #0 $w data if {![info exists data($child,createcmd)]} { error "page $child does not exist" } if {[llength $data($child,createcmd)]} { uplevel #0 $data($child,createcmd) set data($child,createcmd) "" } tixCallMethod $w RaiseChildFrame $child set oldTopChild $data(topchild) set data(topchild) $child if {$oldTopChild ne $child} { if {[llength $data($child,raisecmd)]} { uplevel #0 $data($child,raisecmd) } } } proc tixVStack:raised {w} { upvar #0 $w data return $data(topchild) } #---------------------------------------------------------------------- # Virtual Methods #---------------------------------------------------------------------- proc tixVStack:InitGeometryManager {w} { upvar #0 $w data bind $w <Configure> "tixVStack:MasterGeomProc $w" bind $data(w:top) <Destroy> "+tixVStack:DestroyTop $w" if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } } proc tixVStack:CreateChildFrame {w child} { upvar #0 $w data set f [frame $data(w:top).$child] tixManageGeometry $f "tixVStack:ClientGeomProc $w" bind $f <Configure> "tixVStack:ClientGeomProc $w -configure $f" bind $f <Destroy> "$w delete $child" return $f } proc tixVStack:RaiseChildFrame {w child} { upvar #0 $w data # Hide the original visible window if {$data(topchild) ne "" && $data(topchild) ne $child} { tixUnmapWindow $data(w:$data(topchild)) } set myW [winfo width $w] set myH [winfo height $w] set cW [expr {$myW - $data(pad-x1) - $data(pad-x2) - 2*$data(-ipadx)}] set cH [expr {$myH - $data(pad-y1) - $data(pad-y2) - 2*$data(-ipady)}] set cX [expr {$data(pad-x1) + $data(-ipadx)}] set cY [expr {$data(pad-y1) + $data(-ipady)}] if {$cW > 0 && $cH > 0} { tixMoveResizeWindow $data(w:$child) $cX $cY $cW $cH tixMapWindow $data(w:$child) raise $data(w:$child) } } #---------------------------------------------------------------------- # # G E O M E T R Y M A N A G E M E N T # #---------------------------------------------------------------------- proc tixVStack:DestroyTop {w} { catch { destroy $w } } proc tixVStack:MasterGeomProc {w args} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } } proc tixVStack:ClientGeomProc {w flag client} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixCallMethod $w Resize } if {$flag eq "-lostslave"} { error "Geometry Management Error: \ Another geometry manager has taken control of $client.\ This error is usually caused because a widget has been created\ in the wrong frame: it should have been created inside $client instead\ of $w" } } proc tixVStack:Resize {w} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(nWindows) == 0} { set data(repack) 0 return } if {$data(-width) == 0 || $data(-height) == 0} { if {!$data(-dynamicgeometry)} { # Calculate my required width and height # set maxW 1 set maxH 1 foreach child $data(windows) { set cW [winfo reqwidth $data(w:$child)] set cH [winfo reqheight $data(w:$child)] if {$maxW < $cW} { set maxW $cW } if {$maxH < $cH} { set maxH $cH } } set reqW $maxW set reqH $maxH } else { if {$data(topchild) ne ""} { set reqW [winfo reqwidth $data(w:$data(topchild))] set reqH [winfo reqheight $data(w:$data(topchild))] } else { set reqW 1 set reqH 1 } } incr reqW [expr {$data(pad-x1) + $data(pad-x2) + 2*$data(-ipadx)}] incr reqH [expr {$data(pad-y1) + $data(pad-y2) + 2*$data(-ipady)}] if {$reqW < $data(minW)} { set reqW $data(minW) } if {$reqH < $data(minH)} { set reqH $data(minH) } } # These take higher precedence # if {$data(-width) != 0} { set reqW $data(-width) } if {$data(-height) != 0} { set reqH $data(-height) } if {[winfo reqwidth $w] != $reqW || [winfo reqheight $w] != $reqH} { if {![info exists data(counter)]} { set data(counter) 0 } if {$data(counter) < 50} { incr data(counter) tixGeometryRequest $w $reqW $reqH tixWidgetDoWhenIdle tixCallMethod $w Resize set data(repack) 1 return } } set data(counter) 0 if {$data(w:top) ne $w} { tixMoveResizeWindow $data(w:top) 0 0 [winfo width $w] [winfo height $w] tixMapWindow $data(w:top) } if {[string equal $data(topchild) ""]} { set top [lindex $data(windows) 0] } else { set top $data(topchild) } if {$top ne ""} { tixCallMethod $w raise $top } set data(repack) 0 } Tix8.4.3/Compat.tcl 0000644 00000001546 15231152137 0007640 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Compat.tcl,v 1.3 2004/03/28 02:44:57 hobbs Exp $ # # Compat.tcl -- # # This file wraps around many incompatibilities from Tix 3.6 # to Tix 4.0. # # (1) "box" to "Box" changes # (2) "DlgBtns" to "ButtonBox" changes # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # foreach {old new} { tixDlgBtns tixButtonBox tixStdDlgBtns tixStdButtonBox tixCombobox tixComboBox tixFileSelectbox tixFileSelectBox tixScrolledListbox tixScrolledListBox } { interp alias {} $old {} $new } proc tixInit {args} { eval tix config $args puts stderr "tixInit no longer needed for this version of Tix" } Tix8.4.3/HListDD.tcl 0000644 00000010624 15231152137 0007645 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: HListDD.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # HListDD.tcl -- # # !!! PRE-ALPHA CODE, NOT USED, DON'T USE !!! # # This file implements drag+drop for HList. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # events # # proc tixHListSingle:DragTimer {w ent} { case [tixHListSingle:GetState $w] { {1} { # fire up } } } #---------------------------------------------------------------------- # # Drag + Drop Bindings # #---------------------------------------------------------------------- #----------------------------------------# # Sending Actions # #----------------------------------------# #---------------------------------------------------------------------- # tixHListSingle:Send:WaitDrag -- # # Sender wait for dragging action #---------------------------------------------------------------------- proc tixHListSingle:Send:WaitDrag {w x y} { global tixPriv set ent [tixHListSingle:GetNearest $w $y] if {$ent != ""} { $w anchor set $ent $w select clear $w select set $ent set tixPriv(dd,$w:moved) 0 set tixPriv(dd,$w:entry) $ent # set browsecmd [$w cget -browsecmd] # if {$browsecmd != "" && $ent != ""} { # eval $browsecmd $ent # } } } proc tixHListSingle:Send:StartDrag {w x y} { global tixPriv set dd [tixGetDragDropContext $w] if {![info exists tixPriv(dd,$w:entry)]} { return } if {$tixPriv(dd,$w:entry) == ""} { return } if {$tixPriv(dd,$w:moved) == 0} { $w dragsite set $tixPriv(dd,$w:entry) set tixPriv(dd,$w:moved) 1 $dd config -source $w -command [list tixHListSingle:Send:Cmd $w] $dd startdrag $X $Y } else { $dd drag $X $Y } } proc tixHListSingle:Send:DoneDrag {w x y} { global tixPriv global moved if {![info exists tixPriv(dd,$w:entry)]} { return } if {$tixPriv(dd,$w:entry) == ""} { return } if {$tixPriv(dd,$w:moved) == 1} { set dd [tixGetDragDropContext $w] $dd drop $X $Y } $w dragsite clear catch {unset tixPriv(dd,$w:moved)} catch {unset tixPriv(dd,$w:entry)} } proc tixHListSingle:Send:Cmd {w option args} { set dragCmd [$w cget -dragcmd] if {$dragCmd != ""} { return [eval $dragCmd $option $args] } # Perform the default action # case "$option" { who { return $w } types { return {data text} } get { global tixPriv if {[lindex $args 0] == "text"} { if {$tixPriv(dd,$w:entry) != ""} { return [$w entrycget $tixPriv(dd,$w:entry) -text] } } if {[lindex $args 0] == "data"} { if {$tixPriv(dd,$w:entry) != ""} { return [$w entrycget $tixPriv(dd,$w:entry) -data] } } } } } #----------------------------------------# # Receiving Actions # #----------------------------------------# proc tixHListSingle:Rec:DragOver {w sender x y} { if {[$w cget -selectmode] != "dragdrop"} { return } set ent [tixHListSingle:GetNearest $w $y] if {$ent != ""} { $w dropsite set $ent } else { $w dropsite clear } } proc tixHListSingle:Rec:DragIn {w sender x y} { if {[$w cget -selectmode] != "dragdrop"} { return } set ent [tixHListSingle:GetNearest $w $y] if {$ent != ""} { $w dropsite set $ent } else { $w dropsite clear } } proc tixHListSingle:Rec:DragOut {w sender x y} { if {[$w cget -selectmode] != "dragdrop"} { return } $w dropsite clear } proc tixHListSingle:Rec:Drop {w sender x y} { if {[$w cget -selectmode] != "dragdrop"} { return } $w dropsite clear set ent [tixHListSingle:GetNearest $w $y] if {$ent != ""} { $w anchor set $ent $w select clear $w select set $ent } set dropCmd [$w cget -dropcmd] if {$dropCmd != ""} { eval $dropCmd $sender $x $y return } # set browsecmd [$w cget -browsecmd] # if {$browsecmd != "" && $ent != ""} { # eval $browsecmd [list $ent] # } } tixDropBind TixHListSingle <In> "tixHListSingle:Rec:DragIn %W %S %x %y" tixDropBind TixHListSingle <Over> "tixHListSingle:Rec:DragOver %W %S %x %y" tixDropBind TixHListSingle <Out> "tixHListSingle:Rec:DragOut %W %S %x %y" tixDropBind TixHListSingle <Drop> "tixHListSingle:Rec:Drop %W %S %x %y" Tix8.4.3/Control.tcl 0000644 00000030162 15231152137 0010031 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Control.tcl,v 1.9 2004/03/28 02:44:57 hobbs Exp $ # # Control.tcl -- # # Implements the TixControl Widget. It is called the "SpinBox" # in other toolkits. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixControl { -classname TixControl -superclass tixLabelWidget -method { incr decr invoke update } -flag { -allowempty -autorepeat -command -decrcmd -disablecallback -disabledforeground -incrcmd -initwait -integer -llimit -repeatrate -max -min -selectmode -step -state -validatecmd -value -variable -ulimit } -forcecall { -variable -state } -configspec { {-allowempty allowEmpty AllowEmpty false} {-autorepeat autoRepeat AutoRepeat true} {-command command Command ""} {-decrcmd decrCmd DecrCmd ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-disabledforeground disabledForeground DisabledForeground #303030} {-incrcmd incrCmd IncrCmd ""} {-initwait initWait InitWait 500} {-integer integer Integer false} {-max max Max ""} {-min min Min ""} {-repeatrate repeatRate RepeatRate 50} {-step step Step 1} {-state state State normal} {-selectmode selectMode SelectMode normal} {-validatecmd validateCmd ValidateCmd ""} {-value value Value 0} {-variable variable Variable ""} } -alias { {-llimit -min} {-ulimit -max} } -default { {.borderWidth 0} {*entry.relief sunken} {*entry.width 5} {*label.anchor e} {*label.borderWidth 0} {*Button.anchor c} {*Button.borderWidth 2} {*Button.highlightThickness 1} {*Button.takeFocus 0} } } proc tixControl:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(varInited) 0 set data(serial) 0 } proc tixControl:ConstructFramedWidget {w frame} { upvar #0 $w data tixChainMethod $w ConstructFramedWidget $frame set data(w:entry) [entry $frame.entry] set data(w:incr) \ [button $frame.incr -bitmap [tix getbitmap incr] -takefocus 0] set data(w:decr) \ [button $frame.decr -bitmap [tix getbitmap decr] -takefocus 0] # tixForm $data(w:entry) -left 0 -top 0 -bottom -1 -right $data(w:decr) # tixForm $data(w:incr) -right -1 -top 0 -bottom %50 # tixForm $data(w:decr) -right -1 -top $data(w:incr) -bottom -1 pack $data(w:entry) -side left -expand yes -fill both pack $data(w:decr) -side bottom -fill both -expand yes pack $data(w:incr) -side top -fill both -expand yes $data(w:entry) delete 0 end $data(w:entry) insert 0 $data(-value) # This value is used to configure the disable/normal fg of the ebtry set data(entryfg) [$data(w:entry) cget -fg] set data(labelfg) [$data(w:label) cget -fg] } proc tixControl:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings bind $data(w:incr) <ButtonPress-1> \ [list after idle tixControl:StartRepeat $w 1] bind $data(w:decr) <ButtonPress-1> \ [list after idle tixControl:StartRepeat $w -1] # These bindings will stop the button autorepeat when the # mouse button is up foreach btn [list $data(w:incr) $data(w:decr)] { bind $btn <ButtonRelease-1> [list tixControl:StopRepeat $w] } tixSetMegaWidget $data(w:entry) $w # If user press <return>, verify the value and call the -command # tixAddBindTag $data(w:entry) TixControl:Entry } proc tixControlBind {} { tixBind TixControl:Entry <Return> { tixControl:Invoke [tixGetMegaWidget %W] 1 } tixBind TixControl:Entry <Escape> { tixControl:Escape [tixGetMegaWidget %W] } tixBind TixControl:Entry <Up> { [tixGetMegaWidget %W] incr } tixBind TixControl:Entry <Down> { [tixGetMegaWidget %W] decr } tixBind TixControl:Entry <FocusOut> { if {"%d" eq "NotifyNonlinear" || "%d" eq "NotifyNonlinearVirtual"} { tixControl:Tab [tixGetMegaWidget %W] %d } } tixBind TixControl:Entry <Any-KeyPress> { tixControl:KeyPress [tixGetMegaWidget %W] } tixBind TixControl:Entry <Any-Tab> { # This has a higher priority than the <Any-KeyPress> binding # --> so that data(edited) is not set } } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixControl:config-state {w arg} { upvar #0 $w data if {$arg eq "normal"} { $data(w:incr) config -state $arg $data(w:decr) config -state $arg catch { $data(w:label) config -fg $data(labelfg) } $data(w:entry) config -state $arg -fg $data(entryfg) } else { $data(w:incr) config -state $arg $data(w:decr) config -state $arg catch { $data(w:label) config -fg $data(-disabledforeground) } $data(w:entry) config -state $arg -fg $data(-disabledforeground) } } proc tixControl:config-value {w value} { upvar #0 $w data tixControl:SetValue $w $value 0 1 # This will tell the Intrinsics: "Please use this value" # because "value" might be altered by SetValues # return $data(-value) } proc tixControl:config-variable {w arg} { upvar #0 $w data if {[tixVariable:ConfigVariable $w $arg]} { # The value of data(-value) is changed if tixVariable:ConfigVariable # returns true tixControl:SetValue $w $data(-value) 1 1 } catch { unset data(varInited) } set data(-variable) $arg } #---------------------------------------------------------------------- # User Commands #---------------------------------------------------------------------- proc tixControl:incr {w {by 1}} { upvar #0 $w data if {$data(-state) ne "disabled"} { if {![catch {$data(w:entry) index sel.first}]} { $data(w:entry) select from end $data(w:entry) select to end } # CYGNUS - why set value before changing it? #tixControl:SetValue $w [$data(w:entry) get] 0 1 tixControl:AdjustValue $w $by } } proc tixControl:decr {w {by 1}} { upvar #0 $w data if {$data(-state) ne "disabled"} { if {![catch {$data(w:entry) index sel.first}]} { $data(w:entry) select from end $data(w:entry) select to end } # CYGNUS - why set value before changing it? #tixControl:SetValue $w [$data(w:entry) get] 0 1 tixControl:AdjustValue $w [expr {0 - $by}] } } proc tixControl:invoke {w} { upvar #0 $w data tixControl:Invoke $w 0 } proc tixControl:update {w} { upvar #0 $w data if {[info exists data(edited)]} { tixControl:invoke $w } } #---------------------------------------------------------------------- # Internal Commands #---------------------------------------------------------------------- # Change the value by a multiple of the data(-step) # proc tixControl:AdjustValue {w amount} { upvar #0 $w data if {$amount == 1 && [llength $data(-incrcmd)]} { set newValue [tixEvalCmdBinding $w $data(-incrcmd) "" $data(-value)] } elseif {$amount == -1 && [llength $data(-decrcmd)]} { set newValue [tixEvalCmdBinding $w $data(-decrcmd) "" $data(-value)] } else { set newValue [expr {$data(-value) + $amount * $data(-step)}] } if {$data(-state) ne "disabled"} { tixControl:SetValue $w $newValue 0 1 } } proc tixControl:SetValue {w newvalue noUpdate forced} { upvar #0 $w data if {[$data(w:entry) selection present]} { set oldSelection [list [$data(w:entry) index sel.first] \ [$data(w:entry) index sel.last]] } set oldvalue $data(-value) set oldCursor [$data(w:entry) index insert] set changed 0 if {[llength $data(-validatecmd)]} { # Call the user supplied validation command # set data(-value) [tixEvalCmdBinding $w $data(-validatecmd) "" $newvalue] } else { # Here we only allow int or floating numbers # # If the new value is not a valid number, the old value will be # kept due to the "catch" statements # if {[catch {expr 0+$newvalue}]} { set newvalue 0 set data(-value) 0 set changed 1 } if {$newvalue == ""} { if {![string is true -strict $data(-allowempty)]} { set newvalue 0 set changed 1 } else { set data(-value) "" } } if {$newvalue != ""} { # Change this to a valid decimal string (trim leading 0) # regsub -- {^[0]*} $newvalue "" newvalue if {[catch {expr 0+$newvalue}]} { set newvalue 0 set data(-value) 0 set changed 1 } if {$newvalue == ""} { set newvalue 0 } if {[string is true -strict $data(-integer)]} { set data(-value) [tixGetInt -nocomplain $newvalue] } else { if {[catch {set data(-value) [format "%d" $newvalue]}]} { if {[catch {set data(-value) [expr $newvalue+0.0]}]} { set data(-value) $oldvalue } } } # Now perform boundary checking # if {$data(-max) != "" && $data(-value) > $data(-max)} { set data(-value) $data(-max) } if {$data(-min) != "" && $data(-value) < $data(-min)} { set data(-value) $data(-min) } } } if {! $noUpdate} { tixVariable:UpdateVariable $w } if {$forced || ($newvalue ne $data(-value)) || $changed} { $data(w:entry) delete 0 end $data(w:entry) insert 0 $data(-value) $data(w:entry) icursor $oldCursor if {[info exists oldSelection]} { eval [list $data(w:entry) selection range] $oldSelection } } if {!$data(-disablecallback) && $data(-command) != ""} { if {![info exists data(varInited)]} { set bind(specs) "" tixEvalCmdBinding $w $data(-command) bind $data(-value) } } } proc tixControl:Invoke {w forced} { upvar #0 $w data catch { unset data(edited) } if {[catch {$data(w:entry) index sel.first}] == 0} { # THIS ENTRY OWNS SELECTION --> TURN IT OFF # $data(w:entry) select from end $data(w:entry) select to end } tixControl:SetValue $w [$data(w:entry) get] 0 $forced } #---------------------------------------------------------------------- # The three functions StartRepeat, Repeat and StopRepeat make use of the # data(serial) variable to discard spurious repeats: If a button is clicked # repeatedly but is not hold down, the serial counter will increase # successively and all "after" time event handlers will be discarded #---------------------------------------------------------------------- proc tixControl:StartRepeat {w amount} { if {![winfo exists $w]} { return } upvar #0 $w data incr data(serial) # CYGNUS bug fix # Need to set a local variable because otherwise the buttonrelease # callback could change the value of data(serial) between now and # the time the repeat is scheduled. set serial $data(serial) if {![catch {$data(w:entry) index sel.first}]} { $data(w:entry) select from end $data(w:entry) select to end } if {[info exists data(edited)]} { unset data(edited) tixControl:SetValue $w [$data(w:entry) get] 0 1 } tixControl:AdjustValue $w $amount if {$data(-autorepeat)} { after $data(-initwait) tixControl:Repeat $w $amount $serial } focus $data(w:entry) } proc tixControl:Repeat {w amount serial} { if {![winfo exists $w]} { return } upvar #0 $w data if {$serial eq $data(serial)} { tixControl:AdjustValue $w $amount if {$data(-autorepeat)} { after $data(-repeatrate) tixControl:Repeat $w $amount $serial } } } proc tixControl:StopRepeat {w} { upvar #0 $w data incr data(serial) } proc tixControl:Destructor {w} { tixVariable:DeleteVariable $w # Chain this to the superclass # tixChainMethod $w Destructor } # ToDo: maybe should return -code break if the value is not good ... # proc tixControl:Tab {w detail} { upvar #0 $w data if {![info exists data(edited)]} { return } else { unset data(edited) } tixControl:invoke $w } proc tixControl:Escape {w} { upvar #0 $w data $data(w:entry) delete 0 end $data(w:entry) insert 0 $data(-value) } proc tixControl:KeyPress {w} { upvar #0 $w data if {$data(-selectmode) eq "normal"} { set data(edited) 0 return } else { # == "immediate" after 1 tixControl:invoke $w } } Tix8.4.3/FileEnt.tcl 0000644 00000016227 15231152137 0007745 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FileEnt.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $ # # FileEnt.tcl -- # # TixFileEntry Widget: an entry box for entering filenames. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixFileEntry { -classname TixFileEntry -superclass tixLabelWidget -method { invoke filedialog update } -flag { -activatecmd -command -dialogtype -disablecallback -disabledforeground -filebitmap -selectmode -state -validatecmd -value -variable } -forcecall { -variable } -static { -filebitmap } -configspec { {-activatecmd activateCmd ActivateCmd ""} {-command command Command ""} {-dialogtype dialogType DialogType ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-disabledforeground disabledForeground DisabledForeground #303030} {-filebitmap fileBitmap FileBitmap ""} {-selectmode selectMode SelectMode normal} {-state state State normal} {-validatecmd validateCmd ValidateCmd ""} {-value value Value ""} {-variable variable Variable ""} } -default { {*frame.borderWidth 2} {*frame.relief sunken} {*Button.highlightThickness 0} {*Entry.highlightThickness 0} {*Entry.borderWidth 0} } } proc tixFileEntry:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(varInited) 0 if {$data(-filebitmap) eq ""} { set data(-filebitmap) [tix getbitmap openfile] } } proc tixFileEntry:ConstructFramedWidget {w frame} { upvar #0 $w data tixChainMethod $w ConstructFramedWidget $frame set data(w:entry) [entry $frame.entry] set data(w:button) [button $frame.button -bitmap $data(-filebitmap) \ -takefocus 0] set data(entryfg) [$data(w:entry) cget -fg] pack $data(w:button) -side right -fill both pack $data(w:entry) -side left -expand yes -fill both } proc tixFileEntry:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:button) config -command [list tixFileEntry:OpenFile $w] tixSetMegaWidget $data(w:entry) $w # If user press <return>, verify the value and call the -command # bind $data(w:entry) <Return> [list tixFileEntry:invoke $w] bind $data(w:entry) <KeyPress> { if {[set [tixGetMegaWidget %W](-selectmode)] eq "immediate"} { tixFileEntry:invoke [tixGetMegaWidget %W] } } bind $data(w:entry) <FocusOut> { if {"%d" eq "NotifyNonlinear" || "%d" eq "NotifyNonlinearVirtual"} { tixFileEntry:invoke [tixGetMegaWidget %W] } } bind $w <FocusIn> [list focus $data(w:entry)] } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixFileEntry:config-state {w value} { upvar #0 $w data if {$value eq "normal"} { $data(w:button) config -state $value $data(w:entry) config -state $value -fg $data(entryfg) catch {$data(w:label) config -fg $data(entryfg)} } else { $data(w:button) config -state $value $data(w:entry) config -state $value -fg $data(-disabledforeground) catch {$data(w:label) config -fg $data(-disabledforeground)} } return "" } proc tixFileEntry:config-value {w value} { tixFileEntry:SetValue $w $value } proc tixFileEntry:config-variable {w arg} { upvar #0 $w data if {[tixVariable:ConfigVariable $w $arg]} { # The value of data(-value) is changed if tixVariable:ConfigVariable # returns true tixFileEntry:SetValue $w $data(-value) } catch { unset data(varInited) } set data(-variable) $arg } #---------------------------------------------------------------------- # User Commands #---------------------------------------------------------------------- proc tixFileEntry:invoke {w} { upvar #0 $w data if {![catch {$data(w:entry) index sel.first}]} { # THIS ENTRY OWNS SELECTION --> TURN IT OFF # $data(w:entry) select from end $data(w:entry) select to end } tixFileEntry:SetValue $w [$data(w:entry) get] } proc tixFileEntry:filedialog {w args} { upvar #0 $w data if {[llength $args]} { return [eval [tix filedialog $data(-dialogtype)] $args] } else { return [tix filedialog $data(-dialogtype)] } } proc tixFileEntry:update {w} { upvar #0 $w data if {[$data(w:entry) get] ne $data(-value)} { tixFileEntry:invoke $w } } #---------------------------------------------------------------------- # Internal Commands #---------------------------------------------------------------------- proc tixFileEntry:OpenFile {w} { upvar #0 $w data if {$data(-activatecmd) != ""} { uplevel #0 $data(-activatecmd) } switch -- $data(-dialogtype) tk_chooseDirectory { set args [list -parent [winfo toplevel $w]] if {[set initial $data(-value)] != ""} { lappend args -initialdir $data(value) } set retval [eval [linsert $args 0 tk_chooseDirectory]] if {$retval != ""} {tixFileEntry:SetValue $w [tixFSNative $retval]} } tk_getOpenFile - tk_getSaveFile { set args [list -parent [winfo toplevel $w]] if {[set initial [$data(w:entry) get]] != ""} { switch -glob -- $initial *.py { set types [list {"Python Files" {.py .pyw}} {"All Files" *}] } *.txt { set types [list {"Text Files" .txt} {"All Files" *}] } *.tcl { set types [list {"Tcl Files" .tcl} {"All Files" *}] } * - default { set types [list {"All Files" *}] } if {[file isfile $initial]} { lappend args -initialdir [file dir $initial] \ -initialfile $initial } elseif {[file isdir $initial]} { lappend args -initialdir $initial } } else { set types [list {"All Files" *}] } lappend args -filetypes $types set retval [eval $data(-dialogtype) $args] if {$retval != ""} {tixFileEntry:SetValue $w [tixFSNative $retval]} } default { set filedlg [tix filedialog $data(-dialogtype)] $filedlg config -parent [winfo toplevel $w] \ -command [list tixFileEntry:FileDlgCallback $w] focus $data(w:entry) $filedlg popup } } proc tixFileEntry:FileDlgCallback {w args} { set filename [tixEvent flag V] tixFileEntry:SetValue $w $filename } proc tixFileEntry:SetValue {w value} { upvar #0 $w data if {[llength $data(-validatecmd)]} { set value [tixEvalCmdBinding $w $data(-validatecmd) "" $value] } if {$data(-state) eq "normal"} { $data(w:entry) delete 0 end $data(w:entry) insert 0 $value $data(w:entry) xview end } set data(-value) $value tixVariable:UpdateVariable $w if {[llength $data(-command)] && !$data(-disablecallback)} { if {![info exists data(varInited)]} { set bind(specs) "" tixEvalCmdBinding $w $data(-command) bind $value } } } proc tixFileEntry:Destructor {w} { upvar #0 $w data tixUnsetMegaWidget $data(w:entry) tixVariable:DeleteVariable $w # Chain this to the superclass # tixChainMethod $w Destructor } Tix8.4.3/SimpDlg.tcl 0000644 00000002205 15231152137 0007745 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SimpDlg.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # SimpDlg.tcl -- # # This file implements Simple Dialog widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixSimpleDialog { -classname TixSimpleDialog -superclass tixDialogShell -method {} -flag { -buttons -message -type } -configspec { {-buttons buttons Buttons ""} {-message message Message ""} {-type type Type info} } } proc tixSimpleDialog:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget frame $w.top label $w.top.icon -image [tix getimage $data(-type)] label $w.top.message -text $data(-message) pack $w.top.icon -side left -padx 20 -pady 50 -anchor c pack $w.top.message -side left -padx 10 -pady 50 -anchor c frame $w.bot pack $w.bot -side bottom -fill x pack $w.top -side top -expand yes -fill both } Tix8.4.3/VTree.tcl 0000644 00000010472 15231152137 0007440 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: VTree.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $ # # VTree.tcl -- # # Virtual base class for Tree widgets. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixVTree { -virtual true -classname TixVTree -superclass tixScrolledHList -method { } -flag { -ignoreinvoke } -configspec { {-ignoreinvoke ignoreInvoke IgnoreInvoke false tixVerifyBoolean} } -default { } } proc tixVTree:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixVTree:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(indStyle) \ [tixDisplayStyle image -refwindow $data(w:hlist) -padx 0 -pady 0] } proc tixVTree:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:hlist) config \ -indicatorcmd [list tixVTree:IndicatorCmd $w] \ -browsecmd [list tixVTree:BrowseCmdHook $w] \ -command [list tixVTree:CommandHook $w] } proc tixVTree:IndicatorCmd {w args} { upvar #0 $w data set event [tixEvent type] set ent [tixEvent flag V] set type [tixVTree:GetType $w $ent] set plus [tix getimage plus] set plusarm [tix getimage plusarm] set minus [tix getimage minus] set minusarm [tix getimage minusarm] if {![$data(w:hlist) info exists $ent]} {return} switch -exact -- $event { <Arm> { if {![$data(w:hlist) indicator exists $ent]} {return} $data(w:hlist) indicator config $ent \ -image [expr {$type eq "open" ? $plusarm : $minusarm}] } <Disarm> { if {![$data(w:hlist) indicator exists $ent]} {return} $data(w:hlist) indicator config $ent \ -image [expr {$type eq "open" ? $plus : $minus}] } <Activate> { upvar bind bind tixCallMethod $w Activate $ent $type set bind(%V) $ent tixVTree:BrowseCmdHook $w } } } proc tixVTree:GetType {w ent} { upvar #0 $w data if {![$data(w:hlist) indicator exists $ent]} { return none } set img [$data(w:hlist) indicator cget $ent -image] if {$img eq [tix getimage plus] || $img eq [tix getimage plusarm]} { return open } return close } proc tixVTree:Activate {w ent type} { upvar #0 $w data if {$type eq "open"} { tixCallMethod $w OpenCmd $ent $data(w:hlist) indicator config $ent -image [tix getimage minus] } else { tixCallMethod $w CloseCmd $ent $data(w:hlist) indicator config $ent -image [tix getimage plus] } } proc tixVTree:CommandHook {w args} { upvar #0 $w data upvar bind bind tixCallMethod $w Command bind } proc tixVTree:BrowseCmdHook {w args} { upvar #0 $w data upvar bind bind tixCallMethod $w BrowseCmd bind } proc tixVTree:SetMode {w ent mode} { upvar #0 $w data switch -exact -- $mode { open { $data(w:hlist) indicator create $ent -itemtype image \ -image [tix getimage plus] -style $data(indStyle) } close { $data(w:hlist) indicator create $ent -itemtype image \ -image [tix getimage minus] -style $data(indStyle) } none { if {[$data(w:hlist) indicator exist $ent]} { $data(w:hlist) indicator delete $ent } } } } #---------------------------------------------------------------------- # # Virtual Methods # #---------------------------------------------------------------------- proc tixVTree:OpenCmd {w ent} { upvar #0 $w data # The default action foreach kid [$data(w:hlist) info children $ent] { $data(w:hlist) show entry $kid } } proc tixVTree:CloseCmd {w ent} { upvar #0 $w data # The default action foreach kid [$data(w:hlist) info children $ent] { $data(w:hlist) hide entry $kid } } proc tixVTree:Command {w B} { upvar #0 $w data upvar $B bind if {$data(-ignoreinvoke)} { return } set ent [tixEvent flag V] if {[$data(w:hlist) indicator exist $ent]} { tixVTree:Activate $w $ent [tixVTree:GetType $w $ent] } } proc tixVTree:BrowseCmd {w B} { } #---------------------------------------------------------------------- # # Widget commands # #---------------------------------------------------------------------- Tix8.4.3/LabWidg.tcl 0000644 00000007557 15231152137 0007736 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: LabWidg.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # LabWidg.tcl -- # # TixLabelWidget: Virtual base class. Do not instantiate # # This widget class is the base class for all widgets that has a # label. Most Tix compound widgets will have a label so that # the app programmer doesn't need to add labels themselvel. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # LabelSide : top, left, right, bottom, none, acrosstop # # public widgets: # frame, label # tixWidgetClass tixLabelWidget { -superclass tixPrimitive -classname TixLabelWidget -flag { -label -labelside -padx -pady } -static {-labelside} -configspec { {-label label Label ""} {-labelside labelSide LabelSide left} {-padx padX Pad 0} {-pady padY Pad 0} } } proc tixLabelWidget:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget if {$data(-labelside) != "acrosstop"} { set data(w:frame) [frame $w.frame] } else { set data(pw:border) [frame $w.border] set data(pw:pad) [frame $w.border.pad] set data(w:frame) [frame $w.border.frame] } if {$data(-labelside) != "none"} { set data(w:label) [label $w.label -text $data(-label)] } tixLabelWidget:Pack $w tixCallMethod $w ConstructFramedWidget $data(w:frame) } proc tixLabelWidget:ConstructFramedWidget {w frame} { # Do nothing } proc tixLabelWidget:Pack {w} { upvar #0 $w data if {[catch {tixLabelWidget:Pack-$data(-labelside) $w}]} { error "unknown -labelside option \"$data(-labelside)\"" } } proc tixLabelWidget:Pack-acrosstop {w} { upvar #0 $w data set labHalfHeight [expr [winfo reqheight $data(w:label)] / 2] set padHeight [expr $labHalfHeight - [$data(pw:border) cget -bd]] if {$padHeight < 0} { set padHeight 0 } tixForm $data(w:label) -top 0 -left 4\ -padx [expr $data(-padx) +4] -pady $data(-pady) tixForm $data(pw:border) -top $labHalfHeight -bottom -1 \ -left 0 -right -1 -padx $data(-padx) -pady $data(-pady) tixForm $data(pw:pad) -left 0 -right -1 \ -top 0 -bottom $padHeight tixForm $data(w:frame) -top $data(pw:pad) -bottom -1 \ -left 0 -right -1 } proc tixLabelWidget:Pack-top {w} { upvar #0 $w data pack $data(w:label) -side top \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side top \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-bottom {w} { upvar #0 $w data pack $data(w:label) -side bottom \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side bottom \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-left {w} { upvar #0 $w data pack $data(w:label) -side left \ -padx $data(-padx) -pady $data(-pady) \ -fill y pack $data(w:frame) -side left \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-right {w} { upvar #0 $w data pack $data(w:label) -side right \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side right \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-none {w} { upvar #0 $w data pack $data(w:frame)\ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixLabelWidget:config-label {w value} { upvar #0 $w data $data(w:label) config -text $value if {$data(-labelside) == "acrosstop"} { tixLabelWidget:Pack-acrosstop $w } } Tix8.4.3/DragDrop.tcl 0000644 00000007671 15231152137 0010124 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DragDrop.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $ # # DragDrop.tcl --- # # Implements drag+drop for Tix widgets. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixClass tixDragDropContext { -superclass {} -classname TixDragDropContext -method { cget configure drag drop set startdrag } -flag { -command -source } -configspec { {-command ""} {-source ""} } } proc tixDragDropContext:Constructor {w} { upvar #0 $w data } #---------------------------------------------------------------------- # Private methods # #---------------------------------------------------------------------- proc tixDragDropContext:CallCommand {w target command X Y} { upvar #0 $w data set x [expr $X-[winfo rootx $target]] set y [expr $Y-[winfo rooty $target]] regsub %x $command $x command regsub %y $command $y command regsub %X $command $X command regsub %Y $command $Y command regsub %W $command $target command regsub %S $command [list $data(-command)] command eval $command } proc tixDragDropContext:Send {w target event X Y} { upvar #0 $w data global tixDrop foreach tag [tixDropBindTags $target] { if {[info exists tixDrop($tag,$event)]} { tixDragDropContext:CallCommand $w $target \ $tixDrop($tag,$event) $X $Y } } } #---------------------------------------------------------------------- # set -- # # Set the "small data" of the type supported by the source widget #---------------------------------------------------------------------- proc tixDragDropContext:set {w type data} { } #---------------------------------------------------------------------- # startdrag -- # # Start the dragging action #---------------------------------------------------------------------- proc tixDragDropContext:startdrag {w x y} { upvar #0 $w data set data(oldTarget) "" $data(-source) config -cursor "[tix getbitmap drop] black" tixDragDropContext:drag $w $x $y } #---------------------------------------------------------------------- # drag -- # # Continue the dragging action #---------------------------------------------------------------------- proc tixDragDropContext:drag {w X Y} { upvar #0 $w data global tixDrop set target [winfo containing -displayof $w $X $Y] if {$target != $data(oldTarget)} { if {$data(oldTarget) != ""} { tixDragDropContext:Send $w $data(oldTarget) <Out> $X $Y } if {$target != ""} { tixDragDropContext:Send $w $target <In> $X $Y } set data(oldTarget) $target } if {$target != ""} { tixDragDropContext:Send $w $target <Over> $X $Y } } proc tixDragDropContext:drop {w X Y} { upvar #0 $w data global tixDrop set target [winfo containing -displayof $w $X $Y] if {$target != ""} { tixDragDropContext:Send $w $target <Drop> $X $Y } if {$data(-source) != ""} { $data(-source) config -cursor "" } set data(-source) "" } #---------------------------------------------------------------------- # Public Procedures -- This is NOT a member of the tixDragDropContext # class! # # parameters : # $w: who wants to start dragging? (currently ignored) #---------------------------------------------------------------------- proc tixGetDragDropContext {w} { global tixDD if {[info exists tixDD]} { return tixDD } return [tixDragDropContext tixDD] } proc tixDropBind {w event command} { global tixDrop set tixDrop($w) 1 set tixDrop($w,$event) $command } proc tixDropBindTags {w args} { global tixDropTags if {$args == ""} { if {[info exists tixDropTags($w)]} { return $tixDropTags($w) } else { return [list [winfo class $w] $w] } } else { set tixDropTags($w) $args } } Tix8.4.3/Meter.tcl 0000644 00000006052 15231152137 0007466 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Meter.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # Meter.tcl -- # # Implements the tixMeter widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixMeter { -classname TixMeter -superclass tixPrimitive -method { } -flag { -foreground -text -value } -configspec { {-fillcolor fillColor FillColor #8080ff} {-foreground foreground Foreground black} {-text text Text ""} {-value value Value 0} } -default { {.relief sunken} {.borderWidth 2} {.width 150} } } proc tixMeter:InitWidgetRec {w} { upvar #0 $w data global env tixChainMethod $w InitWidgetRec } #---------------------------------------------------------------------- # Construct widget #---------------------------------------------------------------------- proc tixMeter:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:canvas) [canvas $w.canvas] pack $data(w:canvas) -expand yes -fill both tixMeter:Update $w } proc tixMeter:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings } proc tixMeter:Update {w} { upvar #0 $w data # set the width of the canvas set W [expr $data(-width)-\ ([$data(w:root) cget -bd]+[$data(w:root) cget -highlightthickness]*2)] $data(w:canvas) config -width $W if {$data(-text) == ""} { set text [format "%d%%" [expr int($data(-value)*100)]] } else { set text $data(-text) } # (Create/Modify) the text item. # if {![info exists data(text)]} { set data(text) [$data(w:canvas) create text 0 0 -text $text] } else { $data(w:canvas) itemconfig $data(text) -text $text } set bbox [$data(w:canvas) bbox $data(text)] set itemW [expr [lindex $bbox 2]-[lindex $bbox 0]] set itemH [expr [lindex $bbox 3]-[lindex $bbox 1]] $data(w:canvas) coord $data(text) [expr $W/2] [expr $itemH/2+4] set H [expr $itemH + 4] $data(w:canvas) config -height [expr $H] set rectW [expr int($W*$data(-value))] if {![info exists data(rect)]} { set data(rect) [$data(w:canvas) create rectangle 0 0 $rectW 1000] } else { $data(w:canvas) coord $data(rect) 0 0 $rectW 1000 } $data(w:canvas) itemconfig $data(rect) \ -fill $data(-fillcolor) -outline $data(-fillcolor) $data(w:canvas) raise $data(text) } #---------------------------------------------------------------------- # Configuration #---------------------------------------------------------------------- proc tixMeter:config-value {w value} { upvar #0 $w data set data(-value) $value tixMeter:Update $w } proc tixMeter:config-text {w value} { upvar #0 $w data set data(-text) $value tixMeter:Update $w } proc tixMeter:config-fillcolor {w value} { upvar #0 $w data set data(-fillcolor) $value tixMeter:Update $w } Tix8.4.3/fs.tcl 0000644 00000007633 15231152137 0007030 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: fs.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $ # # File system routines to handle some file system variations # and how that interoperates with the Tix widgets (mainly HList). # # Copyright (c) 2004 ActiveState ## ## Cross-platform ## proc tixFSSep {} { return "/" } proc tixFSNormalize {path} { # possibly use tixFSTilde ? return [file normalize $path] } proc tixFSVolumes {} { return [file volumes] } proc tixFSAncestors {path} { return [file split [file normalize $path]] } # how a filename should be displayed proc tixFSDisplayFileName {path} { if {$path eq [file dirname $path]} { return $path } else { return [file tail $path] } } # dir: Make a listing of this directory # showSubDir: Want to list the subdirectories? # showFile: Want to list the non-directory files in this directory? # showPrevDir: Want to list ".." as well? # showHidden: Want to list the hidden files? # # return value: a list of files and/or subdirectories # proc tixFSListDir {dir showSubDir showFile showPrevDir \ showHidden {pattern ""}} { if {$pattern eq ""} { set pattern [list "*"] } if {$::tcl_platform(platform) eq "unix" && $showHidden && $pattern eq "*"} { lappend pattern ".*" } if {[catch {eval [list glob -nocomplain -directory $dir] \ $pattern} files]} { # The user has entered an invalid or unreadable directory # %% todo: prompt error, go back to last succeed directory return "" } set list "" foreach f [lsort -dictionary $files] { set tail [file tail $f] # file tail handles this automatically #if {[string match ~* $tail]} { set tail ./$tail } if {[file isdirectory $f]} { if {$tail eq "."} { continue } if {$showSubDir} { if {$tail eq ".." && !$showPrevDir} { continue } lappend list $tail } } else { if {$showFile} { lappend list $tail } } } return $list } # in: internal name # out: native name proc tixFSNativeNorm {path} { return [tixFSNative [tixFSNormalize $path]] } # tixFSDisplayName -- # # Returns the name of a normalized path which is usually displayed by # the OS # proc tixFSDisplayName {path} { return [tixFSNative $path] } proc tixFSTilde {path} { # verify that paths with leading ~ are files or real users if {[string match ~* $path]} { # The following will report if the user doesn't exist if {![file isdirectory $path]} { set path ./$path } else { set path [file normalize $path] } } return $path } proc tixFSJoin {dir sub} { return [tixFSNative [file join $dir [tixFSTilde $sub]]] } proc tixFSNative {path} { return $path } if {$::tcl_platform(platform) eq "windows"} { ## ## WINDOWS ## # is an absoulte path only if it starts with a baclskash # or starts with "<drive letter>:" # # in: nativeName # proc tixFSIsAbsPath {nativeName} { set ptype [file pathtype $nativename] return [expr {$ptype eq "absolute" || $ptype eq "volumerelative"}] } # tixFSIsValid -- # # Checks whether a native pathname contains invalid characters. # proc tixFSIsValid {path} { #if {$::tcl_platform(platform) eq "windows"} {set bad "\\/:*?\"<>|\0"} return 1 } proc tixFSExternal {path} { # Avoid normalization on root adding unwanted volumerelative pwd if {[string match -nocase {[A-Z]:} $path]} { return $path/ } return [file normalize $path] } proc tixFSInternal {path} { # Only need to watch for ^[A-Z]:/$, but this does the trick return [string trimright [file normalize $path] /] } } else { ## ## UNIX ## proc tixFSIsAbsPath {path} { return [string match {[~/]*} $path] } # tixFSIsValid -- # # Checks whether a native pathname contains invalid characters. # proc tixFSIsValid {path} { return 1 } proc tixFSExternal {path} { return $path } proc tixFSInternal {path} { return $path } } Tix8.4.3/SWindow.tcl 0000644 00000015374 15231152137 0010013 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SWindow.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $ # # SWindow.tcl -- # # This file implements Scrolled Window widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # # Example: # # tixScrolledWindow .w # set window [.w subwidget window] # # Now you can put a whole widget hierachy inside $window. # # # button $window.b # pack $window.b # # Author's note # # Note, the current implementation does not allow the child window # to be outside of the parent window when the parent's size is larger # than the child's size. This is fine for normal operations. However, # it is not suitable for an MDI master window. Therefore, you will notice # that the MDI master window is not a subclass of ScrolledWidget at all. # # tixWidgetClass tixScrolledWindow { -classname TixScrolledWindow -superclass tixScrolledWidget -method { } -flag { -expandmode -shrink -xscrollincrement -yscrollincrement } -static { } -configspec { {-expandmode expandMode ExpandMode expand} {-shrink shrink Shrink ""} {-xscrollincrement xScrollIncrement ScrollIncrement ""} {-yscrollincrement yScrollIncrement ScrollIncrement ""} {-scrollbarspace scrollbarSpace ScrollbarSpace {both}} } -default { {.scrollbar auto} {*window.borderWidth 1} {*f1.borderWidth 1} {*Scrollbar.borderWidth 1} {*Scrollbar.takeFocus 0} } } proc tixScrolledWindow:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(dx) 0 set data(dy) 0 } proc tixScrolledWindow:ConstructWidget {w} { upvar #0 $w data global tcl_platform tixChainMethod $w ConstructWidget set data(pw:f1) \ [frame $w.f1 -relief sunken] set data(pw:f2) \ [frame $w.f2 -bd 0] set data(w:window) \ [frame $w.f2.window -bd 0] pack $data(pw:f2) -in $data(pw:f1) -expand yes -fill both set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal -takefocus 0] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical -takefocus 0] # set data(w:pann) \ # [frame $w.pann -bd 2 -relief groove] $data(pw:f1) config -highlightthickness \ [$data(w:hsb) cget -highlightthickness] set data(pw:client) $data(pw:f1) } proc tixScrolledWindow:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:hsb) config -command "tixScrolledWindow:ScrollBarCB $w x" $data(w:vsb) config -command "tixScrolledWindow:ScrollBarCB $w y" tixManageGeometry $data(w:window) "tixScrolledWindow:WindowGeomProc $w" } # This guy just keeps asking for a same size as the w:window # proc tixScrolledWindow:WindowGeomProc {w args} { upvar #0 $w data set rw [winfo reqwidth $data(w:window)] set rh [winfo reqheight $data(w:window)] if {$rw != [winfo reqwidth $data(pw:f2)] || $rh != [winfo reqheight $data(pw:f2)]} { tixGeometryRequest $data(pw:f2) $rw $rh } } proc tixScrolledWindow:Scroll {w axis total window first args} { upvar #0 $w data case [lindex $args 0] { "scroll" { set amt [lindex $args 1] set unit [lindex $args 2] case $unit { "units" { set incr $axis\scrollincrement if {$data(-$incr) != ""} { set by $data(-$incr) } else { set by [expr $window / 16] } set first [expr $first + $amt * $by] } "pages" { set first [expr $first + $amt * $window] } } } "moveto" { set to [lindex $args 1] set first [expr int($to * $total)] } } if {[expr $first + $window] > $total} { set first [expr $total - $window] } if {$first < 0} { set first 0 } return $first } proc tixScrolledWindow:ScrollBarCB {w axis args} { upvar #0 $w data set bd \ [expr [$data(pw:f1) cget -bd] + [$data(pw:f1) cget -highlightthickness]] set fw [expr [winfo width $data(pw:f1)] - 2*$bd] set fh [expr [winfo height $data(pw:f1)] - 2*$bd] set ww [winfo reqwidth $data(w:window)] set wh [winfo reqheight $data(w:window)] if {$axis == "x"} { set data(dx) \ [eval tixScrolledWindow:Scroll $w $axis $ww $fw $data(dx) $args] } else { set data(dy) \ [eval tixScrolledWindow:Scroll $w $axis $wh $fh $data(dy) $args] } tixWidgetDoWhenIdle tixScrolledWindow:PlaceWindow $w } proc tixScrolledWindow:PlaceWindow {w} { upvar #0 $w data set bd \ [expr [$data(pw:f1) cget -bd] + [$data(pw:f1) cget -highlightthickness]] set fw [expr [winfo width $data(pw:f1)] - 2*$bd] set fh [expr [winfo height $data(pw:f1)] - 2*$bd] set ww [winfo reqwidth $data(w:window)] set wh [winfo reqheight $data(w:window)] tixMapWindow $data(w:window) if {$data(-expandmode) == "expand"} { if {$ww < $fw} { set ww $fw } if {$wh < $fh} { set wh $fh } } if {$data(-shrink) == "x"} { if {$fw < $ww} { set ww $fw } } tixMoveResizeWindow $data(w:window) -$data(dx) -$data(dy) $ww $wh set first [expr $data(dx).0 / $ww.0] set last [expr $first + ($fw.0 / $ww.0)] $data(w:hsb) set $first $last set first [expr $data(dy).0 / $wh.0] set last [expr $first + ($fh.0 / $wh.0)] $data(w:vsb) set $first $last } #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement # # When this function is called, the scrolled window is going to be # mapped, if it is still unmapped. Also, it is going to change its # size. Therefore, it is a good time to check whether the w:window needs # to be re-positioned due to the new parent window size. #---------------------------------------------------------------------- proc tixScrolledWindow:GeometryInfo {w mW mH} { upvar #0 $w data set bd \ [expr [$data(pw:f1) cget -bd] + [$data(pw:f1) cget -highlightthickness]] set fw [expr $mW -2*$bd] set fh [expr $mH -2*$bd] set ww [winfo reqwidth $data(w:window)] set wh [winfo reqheight $data(w:window)] # Calculate the X info # if {$fw >= $ww} { if {$data(dx) > 0} { set data(dx) 0 } set xinfo [list 0.0 1.0] } else { set maxdx [expr $ww - $fw] if {$data(dx) > $maxdx} { set data(dx) $maxdx } set first [expr $data(dx).0 / $ww.0] set last [expr $first + ($fw.0 / $ww.0)] set xinfo [list $first $last] } # Calculate the Y info # if {$fh >= $wh} { if {$data(dy) > 0} { set data(dy) 0 } set yinfo [list 0.0 1.0] } else { set maxdy [expr $wh - $fh] if {$data(dy) > $maxdy} { set data(dy) $maxdy } set first [expr $data(dy).0 / $wh.0] set last [expr $first + ($fh.0 / $wh.0)] set yinfo [list $first $last] } return [list $xinfo $yinfo] } Tix8.4.3/TList.tcl 0000644 00000043131 15231152137 0007450 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: TList.tcl,v 1.6 2002/01/24 09:13:58 idiscovery Exp $ # # TList.tcl -- # # This file defines the default bindings for Tix Tabular Listbox # widgets. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # afterId - Token returned by "after" for autoscanning. # fakeRelease - Cancel the ButtonRelease-1 after the user double click #-------------------------------------------------------------------------- # proc tixTListBind {} { tixBind TixTList <ButtonPress-1> { tixTList:Button-1 %W %x %y } tixBind TixTList <Shift-ButtonPress-1> { tixTList:Shift-Button-1 %W %x %y } tixBind TixTList <Control-ButtonPress-1> { tixTList:Control-Button-1 %W %x %y } tixBind TixTList <ButtonRelease-1> { tixTList:ButtonRelease-1 %W %x %y } tixBind TixTList <Double-ButtonPress-1> { tixTList:Double-1 %W %x %y } tixBind TixTList <B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixTList:B1-Motion %W %x %y } tixBind TixTList <Control-B1-Motion> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixTList:Control-B1-Motion %W %x %y } tixBind TixTList <B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixTList:B1-Leave %W } tixBind TixTList <B1-Enter> { tixTList:B1-Enter %W %x %y } tixBind TixTList <Control-B1-Leave> { set tkPriv(x) %x set tkPriv(y) %y set tkPriv(X) %X set tkPriv(Y) %Y tixTList:Control-B1-Leave %W } tixBind TixTList <Control-B1-Enter> { tixTList:Control-B1-Enter %W %x %y } # Keyboard bindings # tixBind TixTList <Up> { tixTList:DirKey %W up } tixBind TixTList <Down> { tixTList:DirKey %W down } tixBind TixTList <Left> { tixTList:DirKey %W left } tixBind TixTList <Right> { tixTList:DirKey %W right } tixBind TixTList <Prior> { %W yview scroll -1 pages } tixBind TixTList <Next> { %W yview scroll 1 pages } tixBind TixTList <Return> { tixTList:Return %W } tixBind TixTList <space> { tixTList:Space %W } # # Don't use tixBind because %A causes Tk 8.3.2 to crash # bind TixTList <MouseWheel> { if {"[%W cget -orient]" == "vertical"} { %W xview scroll [expr {- (%D / 120) * 4}] units } else { %W yview scroll [expr {- (%D / 120) * 2}] units } } } #---------------------------------------------------------------------- # # # Mouse bindings # # #---------------------------------------------------------------------- proc tixTList:Button-1 {w x y} { if {[$w cget -state] == "disabled"} { return } if {[$w cget -takefocus]} { focus $w } case [tixTList:GetState $w] { {s0} { tixTList:GoState s1 $w $x $y } {b0} { tixTList:GoState b1 $w $x $y } {m0} { tixTList:GoState m1 $w $x $y } {e0} { tixTList:GoState e1 $w $x $y } } } proc tixTList:Shift-Button-1 {w x y} { if {[$w cget -state] == "disabled"} { return } if {[$w cget -takefocus]} { focus $w } case [tixTList:GetState $w] { {s0} { tixTList:GoState s1 $w $x $y } {b0} { tixTList:GoState b1 $w $x $y } {m0} { tixTList:GoState m7 $w $x $y } {e0} { tixTList:GoState e7 $w $x $y } } } proc tixTList:Control-Button-1 {w x y} { if {[$w cget -state] == "disabled"} { return } if {[$w cget -takefocus]} { focus $w } case [tixTList:GetState $w] { {s0} { tixTList:GoState s1 $w $x $y } {b0} { tixTList:GoState b1 $w $x $y } {m0} { tixTList:GoState m1 $w $x $y } {e0} { tixTList:GoState e10 $w $x $y } } } proc tixTList:ButtonRelease-1 {w x y} { case [tixTList:GetState $w] { {s2 s4 s5 s6} { tixTList:GoState s3 $w } {b2 b4 b5 b6} { tixTList:GoState b3 $w } {m2} { tixTList:GoState m3 $w } {m5} { tixTList:GoState m6 $w $x $y } {m9} { tixTList:GoState m0 $w } {e2} { tixTList:GoState e3 $w } {e5} { tixTList:GoState e6 $w $x $y } {e9} { tixTList:GoState e0 $w } } } proc tixTList:B1-Motion {w x y} { case [tixTList:GetState $w] { {s2 s4} { tixTList:GoState s4 $w $x $y } {b2 b4} { tixTList:GoState b4 $w $x $y } {m2 m5} { tixTList:GoState m4 $w $x $y } {e2 e5} { tixTList:GoState e4 $w $x $y } } } proc tixTList:Control-B1-Motion {w x y} { case [tixTList:GetState $w] { {s2 s4} { tixTList:GoState s4 $w $x $y } {b2 b4} { tixTList:GoState b4 $w $x $y } {m2 m5} { tixTList:GoState m4 $w $x $y } } } proc tixTList:Double-1 {w x y} { case [tixTList:GetState $w] { {s0} { tixTList:GoState s7 $w $x $y } {b0} { tixTList:GoState b7 $w $x $y } } } proc tixTList:B1-Leave {w} { case [tixTList:GetState $w] { {s2 s4} { tixTList:GoState s5 $w } {b2 b4} { tixTList:GoState b5 $w } {m2 m5} { tixTList:GoState m8 $w } {e2 e5} { tixTList:GoState e8 $w } } } proc tixTList:B1-Enter {w x y} { case [tixTList:GetState $w] { {s5 s6} { tixTList:GoState s4 $w $x $y } {b5 b6} { tixTList:GoState b4 $w $x $y } {m8 m9} { tixTList:GoState m4 $w $x $y } {e8 e9} { tixTList:GoState e4 $w $x $y } } } proc tixTList:Control-B1-Leave {w} { case [tixTList:GetState $w] { {s2 s4} { tixTList:GoState s5 $w } {b2 b4} { tixTList:GoState b5 $w } {m2 m5} { tixTList:GoState m8 $w } } } proc tixTList:Control-B1-Enter {w x y} { case [tixTList:GetState $w] { {s5 s6} { tixTList:GoState s4 $w $x $y } {b5 b6} { tixTList:GoState b4 $w $x $y } {m8 m9} { tixTList:GoState m4 $w $x $y } } } proc tixTList:AutoScan {w} { case [tixTList:GetState $w] { {s5 s6} { tixTList:GoState s6 $w } {b5 b6} { tixTList:GoState b6 $w } {m8 m9} { tixTList:GoState m9 $w } {e8 e9} { tixTList:GoState e9 $w } } } #---------------------------------------------------------------------- # # # Key bindings # # #---------------------------------------------------------------------- proc tixTList:DirKey {w key} { if {[$w cget -state] == "disabled"} { return } case [tixTList:GetState $w] { {s0} { tixTList:GoState s8 $w $key } {b0} { tixTList:GoState b8 $w $key } } } proc tixTList:Return {w} { if {[$w cget -state] == "disabled"} { return } case [tixTList:GetState $w] { {s0} { tixTList:GoState s9 $w } {b0} { tixTList:GoState b9 $w } } } proc tixTList:Space {w} { if {[$w cget -state] == "disabled"} { return } case [tixTList:GetState $w] { {s0} { tixTList:GoState s10 $w } {b0} { tixTList:GoState b10 $w } } } #---------------------------------------------------------------------- # # STATE MANIPULATION # # #---------------------------------------------------------------------- proc tixTList:GetState {w} { global $w:priv:state if {[info exists $w:priv:state]} { # # If the app has changed the selectmode, reset the state to the # original state. # set type [string index [$w cget -selectmode] 0] if {"[string index [set $w:priv:state] 0]" != "$type"} { unset $w:priv:state } } if {![info exists $w:priv:state]} { case [$w cget -selectmode] { single { set $w:priv:state s0 } browse { set $w:priv:state b0 } multiple { set $w:priv:state m0 } extended { set $w:priv:state e0 } default { set $w:priv:state unknown } } } return [set $w:priv:state] } proc tixTList:SetState {w n} { global $w:priv:state set $w:priv:state $n } proc tixTList:GoState {n w args} { # puts "going from [tixTList:GetState $w] --> $n" tixTList:SetState $w $n eval tixTList:GoState-$n $w $args } #---------------------------------------------------------------------- # States #---------------------------------------------------------------------- #---------------------------------------------------------------------- # SINGLE SELECTION #---------------------------------------------------------------------- proc tixTList:GoState-s0 {w} { } proc tixTList:GoState-s1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent } tixTList:GoState s2 $w } proc tixTList:GoState-s2 {w} { } proc tixTList:GoState-s3 {w} { set ent [$w info anchor] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } tixTList:GoState s0 $w } proc tixTList:GoState-s4 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent } } proc tixTList:GoState-s5 {w} { tixTList:StartScan $w } proc tixTList:GoState-s6 {w} { global tkPriv tixTList:DoScan $w } proc tixTList:GoState-s7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallCommand $w $ent } tixTList:GoState s0 $w } proc tixTList:GoState-s8 {w key} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 } else { set anchor [$w info $key $anchor] } $w anchor set $anchor $w see $anchor tixTList:GoState s0 $w } proc tixTList:GoState-s9 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixTList:CallCommand $w [$w info anchor] $w selection clear $w selection set $anchor } tixTList:GoState s0 $w } proc tixTList:GoState-s10 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixTList:CallBrowseCmd $w [$w info anchor] $w selection clear $w selection set $anchor } tixTList:GoState s0 $w } #---------------------------------------------------------------------- # BROWSE SELECTION #---------------------------------------------------------------------- proc tixTList:GoState-b0 {w} { } proc tixTList:GoState-b1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } tixTList:GoState b2 $w } proc tixTList:GoState-b2 {w} { } proc tixTList:GoState-b3 {w} { set ent [$w info anchor] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } tixTList:GoState b0 $w } proc tixTList:GoState-b4 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } } proc tixTList:GoState-b5 {w} { tixTList:StartScan $w } proc tixTList:GoState-b6 {w} { global tkPriv tixTList:DoScan $w } proc tixTList:GoState-b7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallCommand $w $ent } tixTList:GoState b0 $w } proc tixTList:GoState-b8 {w key} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 } else { set anchor [$w info $key $anchor] } $w anchor set $anchor $w selection clear $w selection set $anchor $w see $anchor tixTList:CallBrowseCmd $w $anchor tixTList:GoState b0 $w } proc tixTList:GoState-b9 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixTList:CallCommand $w [$w info anchor] $w selection clear $w selection set $anchor } tixTList:GoState b0 $w } proc tixTList:GoState-b10 {w} { set anchor [$w info anchor] if {$anchor == ""} { set anchor 0 $w anchor set $anchor $w see $anchor } if {[$w info anchor] != ""} { # ! may not have any elements # tixTList:CallBrowseCmd $w [$w info anchor] $w selection clear $w selection set $anchor } tixTList:GoState b0 $w } #---------------------------------------------------------------------- # MULTIPLE SELECTION #---------------------------------------------------------------------- proc tixTList:GoState-m0 {w} { } proc tixTList:GoState-m1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } tixTList:GoState m2 $w } proc tixTList:GoState-m2 {w} { } proc tixTList:GoState-m3 {w} { set ent [$w info anchor] if {$ent != ""} { tixTList:CallBrowseCmd $w $ent } tixTList:GoState m0 $w } proc tixTList:GoState-m4 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$to != ""} { $w selection clear $w selection set $from $to tixTList:CallBrowseCmd $w $to } tixTList:GoState m5 $w } proc tixTList:GoState-m5 {w} { } proc tixTList:GoState-m6 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixTList:CallBrowseCmd $w $ent } tixTList:GoState m0 $w } proc tixTList:GoState-m7 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$from == ""} { set from $to $w anchor set $from $w see $from } if {$to != ""} { $w selection clear $w selection set $from $to tixTList:CallBrowseCmd $w $to } tixTList:GoState m5 $w } proc tixTList:GoState-m8 {w} { tixTList:StartScan $w } proc tixTList:GoState-m9 {w} { tixTList:DoScan $w } proc tixTList:GoState-xm7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallCommand $w $ent } tixTList:GoState m0 $w } #---------------------------------------------------------------------- # EXTENDED SELECTION #---------------------------------------------------------------------- proc tixTList:GoState-e0 {w} { } proc tixTList:GoState-e1 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w anchor set $ent $w see $ent $w selection clear $w selection set $ent tixTList:CallBrowseCmd $w $ent } tixTList:GoState e2 $w } proc tixTList:GoState-e2 {w} { } proc tixTList:GoState-e3 {w} { set ent [$w info anchor] if {$ent != ""} { tixTList:CallBrowseCmd $w $ent } tixTList:GoState e0 $w } proc tixTList:GoState-e4 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$to != ""} { $w selection clear $w selection set $from $to tixTList:CallBrowseCmd $w $to } tixTList:GoState e5 $w } proc tixTList:GoState-e5 {w} { } proc tixTList:GoState-e6 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { tixTList:CallBrowseCmd $w $ent } tixTList:GoState e0 $w } proc tixTList:GoState-e7 {w x y} { set from [$w info anchor] set to [$w nearest $x $y] if {$from == ""} { set from $to $w anchor set $from $w see $from } if {$to != ""} { $w selection clear $w selection set $from $to tixTList:CallBrowseCmd $w $to } tixTList:GoState e5 $w } proc tixTList:GoState-e8 {w} { tixTList:StartScan $w } proc tixTList:GoState-e9 {w} { tixTList:DoScan $w } proc tixTList:GoState-e10 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { if {[$w info anchor] == ""} { $w anchor set $ent $w see $ent } if {[$w selection includes $ent]} { $w selection clear $ent } else { $w selection set $ent } tixTList:CallBrowseCmd $w $ent } tixTList:GoState e2 $w } proc tixTList:GoState-xm7 {w x y} { set ent [$w nearest $x $y] if {$ent != ""} { $w selection clear $w selection set $ent tixTList:CallCommand $w $ent } tixTList:GoState e0 $w } #---------------------------------------------------------------------- # callback actions #---------------------------------------------------------------------- proc tixTList:SetAnchor {w x y} { set ent [$w nearest $x $y] if {$ent != "" && [$w entrycget $ent -state] != "disabled"} { $w anchor set $ent $w see $ent return $ent } return "" } proc tixTList:Select {w ent} { $w selection clear $w select set $ent } proc tixTList:StartScan {w} { global tkPriv set tkPriv(afterId) [after 50 tixTList:AutoScan $w] } proc tixTList:DoScan {w} { global tkPriv set x $tkPriv(x) set y $tkPriv(y) set X $tkPriv(X) set Y $tkPriv(Y) set out 0 if {$y >= [winfo height $w]} { $w yview scroll 1 units set out 1 } if {$y < 0} { $w yview scroll -1 units set out 1 } if {$x >= [winfo width $w]} { $w xview scroll 2 units set out 1 } if {$x < 0} { $w xview scroll -2 units set out 1 } if {$out} { set tkPriv(afterId) [after 50 tixTList:AutoScan $w] } } proc tixTList:CallBrowseCmd {w ent} { set browsecmd [$w cget -browsecmd] if {$browsecmd != ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $browsecmd bind $ent } } proc tixTList:CallCommand {w ent} { set command [$w cget -command] if {$command != ""} { set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $command bind $ent } } Tix8.4.3/PopMenu.tcl 0000644 00000012574 15231152137 0010003 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: PopMenu.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $ # # PopMenu.tcl -- # # This file implements the TixPopupMenu widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # inMenubutton - #-------------------------------------------------------------------------- # foreach fun {tkMenuUnpost tkMbButtonUp tkMbEnter tkMbPost} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun tixWidgetClass tixPopupMenu { -classname TixPopupMenu -superclass tixShell -method { bind post unbind } -flag { -buttons -installcolormap -postcmd -spring -state -title } -configspec { {-buttons buttons Buttons {{3 {Any}}}} {-installcolormap installColormap InstallColormap false} {-postcmd postCmd PostCmd ""} {-spring spring Spring 1 tixVerifyBoolean} {-state state State normal} {-cursor corsor Cursor arrow} } -static { -buttons } -default { {*Menu.tearOff 0} } } proc tixPopupMenu:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(g:clients) "" } proc tixPopupMenu:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget wm overrideredirect $w 1 wm withdraw $w set data(w:menubutton) [menubutton $w.menubutton -text $data(-title) \ -menu $w.menubutton.menu -anchor w] set data(w:menu) [menu $w.menubutton.menu] pack $data(w:menubutton) -expand yes -fill both } proc tixPopupMenu:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings foreach elm $data(-buttons) { set btn [lindex $elm 0] foreach mod [lindex $elm 1] { tixBind TixPopupMenu:MB:$w <$mod-ButtonPress-$btn> \ "tixPopupMenu:Unpost $w" tixBind TixPopupMenu:$w <$mod-ButtonPress-$btn> \ "tixPopupMenu:post $w %W %x %y" } tixBind TixPopupMenu:MB:$w <ButtonRelease-$btn> \ "tixPopupMenu:BtnRelease $w %X %Y" tixBind TixPopupMenu:M:$w <Unmap> \ "tixPopupMenu:Unmap $w" tixBind TixPopupMenu:$w <ButtonRelease-$btn> \ "tixPopupMenu:BtnRelease $w %X %Y" tixAddBindTag $data(w:menubutton) TixPopupMenu:MB:$w tixAddBindTag $data(w:menu) TixPopupMenu:M:$w } } #---------------------------------------------------------------------- # PrivateMethods: #---------------------------------------------------------------------- proc tixPopupMenu:Unpost {w} { upvar #0 $w data catch { tkMenuUnpost "" } # tkMbButtonUp $data(w:menubutton) } proc tixPopupMenu:BtnRelease {w rootX rootY} { upvar #0 $w data set cW [winfo containing -displayof $w $rootX $rootY] if {$data(-spring)} { tixPopupMenu:Unpost $w } } proc tixPopupMenu:Unmap {w} { upvar #0 $w data wm withdraw $w } proc tixPopupMenu:Destructor {w} { upvar #0 $w data foreach client $data(g:clients) { if {[winfo exists $client]} { tixDeleteBindTag $client TixPopupMenu:$w } } # delete the extra bindings # foreach tag [list TixPopupMenu:MB:$w TixPopupMenu:M:$w] { foreach e [bind $tag] { bind $tag $e "" } } tixChainMethod $w Destructor } proc tixPopupMenu:config-title {w value} { upvar #0 $w data $data(w:menubutton) config -text $value } #---------------------------------------------------------------------- # PublicMethods: #---------------------------------------------------------------------- proc tixPopupMenu:bind {w args} { upvar #0 $w data foreach client $args { if {[lsearch $data(g:clients) $client] == -1} { lappend data(g:clients) $client tixAppendBindTag $client TixPopupMenu:$w } } } proc tixPopupMenu:unbind {w args} { upvar #0 $w data foreach client $args { if {[winfo exists $client]} { set index [lsearch $data(g:clients) $client] if {$index != -1} { tixDeleteBindTag $client TixPopupMenu:$w set data(g:clients) [lreplace $data(g:clients) $index $index] } } } } proc tixPopupMenu:post {w client x y} { upvar #0 $w data global tkPriv if {$data(-state) == "disabled"} { return } set rootx [expr $x + [winfo rootx $client]] set rooty [expr $y + [winfo rooty $client]] if {$data(-postcmd) != ""} { set ret [tixEvalCmdBinding $w $data(-postcmd) "" $rootx $rooty] if {![tixGetBoolean $ret]} { return } } if {[string is true -strict $data(-installcolormap)]} { wm colormapwindows . $w } set menuWidth [winfo reqwidth $data(w:menu)] set width [winfo reqwidth $w] set height [winfo reqheight $w] if {$width < $menuWidth} { set width $menuWidth } set wx $rootx set wy $rooty # trick: the following lines allow the popup menu # acquire a stable width and height when it is finally # put on the visible screen. Advoid flashing # wm geometry $w +10000+10000 wm deiconify $w raise $w update wm geometry $w ${width}x${height}+${wx}+${wy} update tkMbEnter $data(w:menubutton) tkMbPost $tkPriv(inMenubutton) $rootx $rooty } Tix8.4.3/OldUtil.tcl 0000644 00000005760 15231152137 0007773 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: OldUtil.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # OldUtil.tcl - # # This is an undocumented file. # Are these features used in Tix : NO. # Should I use these features : NO. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc setenv {name args} { global env if {[llength $args] == 1} { return [set env($name) [lindex $args 0]] } else { if {[info exists env($ename)] == 0} { bgerror "Error in setenv: " "environment variable \"$name\" does not exist" } else { return $env($name) } } } #---------------------------------------------------------------------- # # # U T I L I T Y F U N C T I O N S F O R T I X # # #---------------------------------------------------------------------- # RESET THE STRING IN THE ENTRY proc tixSetEntry {entry string} { set oldstate [lindex [$entry config -state] 4] $entry config -state normal $entry delete 0 end $entry insert 0 $string $entry config -state $oldstate } # GET THE FIRST SELECTED ITEM IN A LIST proc tixListGetSingle {lst} { set indices [$lst curselection] if {$indices != ""} { return [$lst get [lindex $indices 0]] } else { return "" } } #---------------------------------------------------------------------- # RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED #---------------------------------------------------------------------- proc tixDialogRestore {w {flag -geometry}} { global tixDPos if {[info exists tixDPos($w)]} { if {![winfo ismapped $w]} { wm geometry $w $tixDPos($w) wm deiconify $w } } elseif {$flag eq "-geometry"} { update set tixDPos($w) [winfo geometry $w] } else { update set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w] } } #---------------------------------------------------------------------- # RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED #---------------------------------------------------------------------- proc tixDialogWithdraw {w {flag -geometry}} { global tixDPos if {[winfo ismapped $w]} { if {$flag eq "-geometry"} { set tixDPos($w) [winfo geometry $w] } else { set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w] } wm withdraw $w } } #---------------------------------------------------------------------- # RECORD A DIALOG'S POSITION AND RESTORE IT THE NEXT TIME IT IS OPENED #---------------------------------------------------------------------- proc tixDialogDestroy {w {flag -geometry}} { global tixDPos if {[winfo ismapped $w]} { if {$flag eq "-geometry"} { set tixDPos($w) [winfo geometry $w] } else { set tixDPos($w) +[winfo rootx $w]+[winfo rooty $w] } } destroy $w } Tix8.4.3/StdBBox.tcl 0000644 00000003170 15231152137 0007715 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StdBBox.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # StdBBox.tcl -- # # Standard Button Box, used in standard dialog boxes # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixStdButtonBox { -classname TixStdButtonBox -superclass tixButtonBox -flag { -applycmd -cancelcmd -helpcmd -okcmd } -configspec { {-applycmd applyCmd ApplyCmd ""} {-cancelcmd cancelCmd CancelCmd ""} {-helpcmd helpCmd HelpCmd ""} {-okcmd okCmd OkCmd ""} } -default { {.borderWidth 1} {.relief raised} {.padX 5} {.padY 10} {*Button.anchor c} {*Button.padX 5} } } proc tixStdButtonBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget $w add ok -text OK -under 0 -width 6 -command $data(-okcmd) $w add apply -text Apply -under 0 -width 6 -command $data(-applycmd) $w add cancel -text Cancel -under 0 -width 6 -command $data(-cancelcmd) $w add help -text Help -under 0 -width 6 -command $data(-helpcmd) } proc tixStdButtonBox:config {w flag value} { upvar #0 $w data case $flag { -okcmd { $data(w:ok) config -command $value } -applycmd { $data(w:apply) config -command $value } -cancelcmd { $data(w:cancel) config -command $value } -helpcmd { $data(w:help) config -command $value } default { tixChainMethod $w config $flag $value } } } Tix8.4.3/Balloon.tcl 0000644 00000031745 15231152137 0010007 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Balloon.tcl,v 1.7 2008/02/27 22:17:28 hobbs Exp $ # # Balloon.tcl -- # # The help widget. It provides both "balloon" type of help # message and "status bar" type of help message. You can use # this widget to indicate the function of the widgets inside # your application. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixBalloon { -classname TixBalloon -superclass tixShell -method { bind post unbind } -flag { -installcolormap -initwait -state -statusbar -cursor } -configspec { {-installcolormap installColormap InstallColormap false} {-initwait initWait InitWait 1000} {-state state State both} {-statusbar statusBar StatusBar ""} {-cursor cursor Cursor {}} } -default { {*background #ffff60} {*foreground black} {*borderWidth 0} {.borderWidth 1} {.background black} {*Label.anchor w} {*Label.justify left} } } # static seem to be -installcolormap -initwait -statusbar -cursor # Class Record # global tixBalloon set tixBalloon(bals) "" proc tixBalloon:InitWidgetRec {w} { upvar #0 $w data global tixBalloon tixChainMethod $w InitWidgetRec set data(isActive) 0 set data(client) "" lappend tixBalloon(bals) $w } proc tixBalloon:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget if {[tk windowingsystem] eq "aqua"} { ::tk::unsupported::MacWindowStyle style $w help none } else { wm overrideredirect $w 1 } catch {wm attributes $w -topmost 1} wm positionfrom $w program wm withdraw $w # Frame 1 : arrow frame $w.f1 -bd 0 set data(w:label) [label $w.f1.lab -bd 0 -relief flat \ -bitmap [tix getbitmap balarrow]] pack $data(w:label) -side left -padx 1 -pady 1 # Frame 2 : Message frame $w.f2 -bd 0 set data(w:message) [label $w.f2.message -padx 0 -pady 0 -bd 0] pack $data(w:message) -side left -expand yes -fill both -padx 10 -pady 1 # Pack all pack $w.f1 -fill both pack $w.f2 -fill both # This is an event tag used by the clients # bind TixBal$w <Destroy> [list tixBalloon:ClientDestroy $w %W] } proc tixBalloon:Destructor {w} { global tixBalloon set bals "" foreach b $tixBalloon(bals) { if {$w != $b} { lappend bals $b } } set tixBalloon(bals) $bals tixChainMethod $w Destructor } #---------------------------------------------------------------------- # Config: #---------------------------------------------------------------------- proc tixBalloon:config-state {w value} { upvar #0 $w data set re {^(none|balloon|status|both)$} if {![regexp -- $re $value]} { error "invalid value $value, must be none, balloon, status, or both" } } #---------------------------------------------------------------------- # "RAW" event bindings: #---------------------------------------------------------------------- bind all <B1-Motion> "+tixBalloon_XXMotion %X %Y 1" bind all <B2-Motion> "+tixBalloon_XXMotion %X %Y 2" bind all <B3-Motion> "+tixBalloon_XXMotion %X %Y 3" bind all <B4-Motion> "+tixBalloon_XXMotion %X %Y 4" bind all <B5-Motion> "+tixBalloon_XXMotion %X %Y 5" bind all <Any-Motion> "+tixBalloon_XXMotion %X %Y 0" # Should %b be 0? %b is illegal bind all <Leave> "+tixBalloon_XXMotion %X %Y 0" bind all <Button> "+tixBalloon_XXButton %X %Y %b" bind all <ButtonRelease> "+tixBalloon_XXButtonUp %X %Y %b" proc tixBalloon_XXMotion {rootX rootY b} { global tixBalloon foreach w $tixBalloon(bals) { tixBalloon:XXMotion $w $rootX $rootY $b } } proc tixBalloon_XXButton {rootX rootY b} { global tixBalloon foreach w $tixBalloon(bals) { tixBalloon:XXButton $w $rootX $rootY $b } } proc tixBalloon_XXButtonUp {rootX rootY b} { global tixBalloon foreach w $tixBalloon(bals) { tixBalloon:XXButtonUp $w $rootX $rootY $b } } # return true if d is a descendant of w # proc tixIsDescendant {w d} { return [expr {$w eq "." || [string match $w.* $d]}] } # All the button events are fine if the ballooned widget is # a descendant of the grabbing widget # proc tixBalloon:GrabBad {w cw} { global tixBalloon set g [grab current $w] if {$g == ""} { return 0 } if {[info exists tixBalloon(g_ignore,$g)]} { return 1 } if {[info exists tixBalloon(g_ignore,[winfo class $g])]} { return 1 } if {$g == $cw || [tixIsDescendant $g $cw]} { return 0 } return 1 } proc tixBalloon:XXMotion {w rootX rootY b} { upvar #0 $w data if {![info exists data(-state)]} { # puts "tixBalloon:XXMotion called without a state\n$w" set data(state) none return } if {$data(-state) eq "none"} { return } if {$b == 0} { if {[info exists data(b:1)]} {unset data(b:1)} if {[info exists data(b:2)]} {unset data(b:2)} if {[info exists data(b:3)]} {unset data(b:3)} if {[info exists data(b:4)]} {unset data(b:4)} if {[info exists data(b:5)]} {unset data(b:5)} } if {[llength [array names data b:*]]} { # Some buttons are down. Do nothing # return } set cw [winfo containing -displayof $w $rootX $rootY] if {[tixBalloon:GrabBad $w $cw]} { return } # Find the a client window that matches # if {$w eq $cw || [string match $w.* $cw]} { # Cursor moved over the balloon -- Ignore return } while {$cw != ""} { if {[info exists data(m:$cw)]} { set client $cw break } else { set cw [winfo parent $cw] } } if {![info exists client]} { # The cursor is at a position covered by a non-client # Popdown the balloon if it is up if {$data(isActive)} { tixBalloon:Deactivate $w } set data(client) "" if {[info exists data(cancel)]} { unset data(cancel) } return } if {$data(client) ne $client} { if {$data(isActive)} { tixBalloon:Deactivate $w } set data(client) $client after $data(-initwait) tixBalloon:SwitchToClient $w $client } } proc tixBalloon:XXButton {w rootX rootY b} { upvar #0 $w data tixBalloon:XXMotion $w $rootX $rootY $b set data(b:$b) 1 if {$data(isActive)} { tixBalloon:Deactivate $w } else { set data(cancel) 1 } } proc tixBalloon:XXButtonUp {w rootX rootY b} { upvar #0 $w data tixBalloon:XXMotion $w $rootX $rootY $b if {[info exists data(b:$b)]} { unset data(b:$b) } } #---------------------------------------------------------------------- # "COOKED" event bindings: #---------------------------------------------------------------------- # switch the balloon to a new client # proc tixBalloon:SwitchToClient {w client} { upvar #0 $w data if {![winfo exists $w]} { return } if {![winfo exists $client]} { return } if {$client ne $data(client)} { return } if {[info exists data(cancel)]} { unset data(cancel) return } if {[tixBalloon:GrabBad $w $w]} { return } tixBalloon:Activate $w } proc tixBalloon:ClientDestroy {w client} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(client) eq $client} { tixBalloon:Deactivate $w set data(client) "" } # Maybe thses have already been unset by the Destroy method # if {[info exists data(m:$client)]} {unset data(m:$client)} if {[info exists data(s:$client)]} {unset data(s:$client)} } #---------------------------------------------------------------------- # Popping up balloon: #---------------------------------------------------------------------- proc tixBalloon:Activate {w} { upvar #0 $w data if {[tixBalloon:GrabBad $w $w]} { return } if {[winfo containing -displayof $w \ [winfo pointerx $w] [winfo pointery $w]] == ""} { return } if {![info exists data(-state)]} { # puts "tixBalloon:Activate called without a state\n$w" set data(state) none return } if {$data(-state) eq "none"} { return } switch -exact -- $data(-state) { "both" { tixBalloon:PopUp $w tixBalloon:SetStatus $w } "balloon" { tixBalloon:PopUp $w } "status" { tixBalloon:SetStatus $w } } set data(isActive) 1 after 200 tixBalloon:Verify $w } # %% Perhaps this is no more needed # proc tixBalloon:Verify {w} { upvar #0 $w data if {![winfo exists $w]} { return } if {!$data(isActive)} { return } if {[tixBalloon:GrabBad $w $w]} { tixBalloon:Deactivate $w return } if {[winfo containing -displayof $w \ [winfo pointerx $w] [winfo pointery $w]] == ""} { tixBalloon:Deactivate $w return } after 200 tixBalloon:Verify $w } proc tixBalloon:Deactivate {w} { upvar #0 $w data tixBalloon:PopDown $w tixBalloon:ClearStatus $w set data(isActive) 0 if {[info exists data(cancel)]} { unset data(cancel) } } proc tixBalloon:PopUp {w} { upvar #0 $w data if {[string is true -strict $data(-installcolormap)]} { wm colormapwindows [winfo toplevel $data(client)] $w } # trick: the following lines allow the balloon window to # acquire a stable width and height when it is finally # put on the visible screen # set client $data(client) if {$data(m:$client) == ""} {return ""} $data(w:message) config -text $data(m:$client) wm geometry $w +10000+10000 wm deiconify $w raise $w update # The windows may become destroyed as a result of the "update" command # if {![winfo exists $w]} { return } if {![winfo exists $client]} { return } # Put it on the visible screen # set x [expr {[winfo rootx $client]+[winfo width $client]/2}] set y [expr {int([winfo rooty $client]+[winfo height $client]/1.3)}] set width [winfo reqwidth $w] set height [winfo reqheight $w] set scrwidth [winfo vrootwidth $w] set scrheight [winfo vrootheight $w] # If the balloon is too far right, pull it back to the left # if {($x + $width) > $scrwidth} { set x [expr {$scrwidth - $width}] } # If the balloon is too far left, pull it back to the right # if {$x < 0} { set x 0 } # If the listbox is below bottom of screen, put it upwards # if {($y + $height) > $scrheight} { set y [expr {$scrheight-$height}] } if {$y < 0} { set y 0 } wm geometry $w +$x+$y after idle raise $w } proc tixBalloon:PopDown {w} { upvar #0 $w data # Close the balloon # wm withdraw $w # We don't set the data(client) to be zero, so that the balloon # will re-appear only if you move out then in the client window # set data(client) "" } proc tixBalloon:SetStatus {w} { upvar #0 $w data if {![winfo exists $data(-statusbar)] || ![info exists data(s:$data(client))]} { return } set vv [$data(-statusbar) cget -textvariable] if {$vv == ""} { $data(-statusbar) config -text $data(s:$data(client)) } else { uplevel #0 set $vv [list $data(s:$data(client))] } } proc tixBalloon:ClearStatus {w} { upvar #0 $w data if {![winfo exists $data(-statusbar)]} { return } # Clear the StatusBar widget # set vv [$data(-statusbar) cget -textvariable] if {$vv == ""} { $data(-statusbar) config -text "" } else { uplevel #0 set $vv [list ""] } } #---------------------------------------------------------------------- # PublicMethods: #---------------------------------------------------------------------- # %% if balloon is already popped-up for this client, change mesage # proc tixBalloon:bind {w client args} { upvar #0 $w data set alreadyBound [info exists data(m:$client)] set opt(-balloonmsg) "" set opt(-statusmsg) "" set opt(-msg) "" tixHandleOptions opt {-balloonmsg -msg -statusmsg} $args if {$opt(-balloonmsg) != ""} { set data(m:$client) $opt(-balloonmsg) } else { set data(m:$client) $opt(-msg) } if {$opt(-statusmsg) != ""} { set data(s:$client) $opt(-statusmsg) } else { set data(s:$client) $opt(-msg) } tixAppendBindTag $client TixBal$w } proc tixBalloon:post {w client} { upvar #0 $w data if {![info exists data(m:$client)] || $data(m:$client) == ""} { return } tixBalloon:Enter $w $client incr data(fakeEnter) } proc tixBalloon:unbind {w client} { upvar #0 $w data if {[info exists data(m:$client)]} { if {[info exists data(m:$client)]} {unset data(m:$client)} if {[info exists data(s:$client)]} {unset data(s:$client)} if {[winfo exists $client]} { catch {tixDeleteBindTag $client TixBal$w} } } } #---------------------------------------------------------------------- # # Utility function # #---------------------------------------------------------------------- # # $w can be a widget name or a classs name proc tixBalIgnoreWhenGrabbed {wc} { global tixBalloon set tixBalloon(g_ignore,$wc) "" } tixBalIgnoreWhenGrabbed TixComboBox tixBalIgnoreWhenGrabbed Menu tixBalIgnoreWhenGrabbed Menubutton Tix8.4.3/Tree.tcl 0000644 00000011107 15231152137 0007306 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Tree.tcl,v 1.7 2004/04/09 21:39:12 hobbs Exp $ # # Tree.tcl -- # # This file implements the TixTree widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixTree { -classname TixTree -superclass tixVTree -method { autosetmode close getmode open setmode addchild anchor column delete entrycget entryconfigure header hide indicator info item nearest see selection show } -flag { -browsecmd -command -opencmd -closecmd } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-closecmd closeCmd CloseCmd ""} {-opencmd openCmd OpenCmd ""} } -default { {.scrollbar auto} {*Scrollbar.takeFocus 0} {*borderWidth 1} {*hlist.background #c3c3c3} {*hlist.drawBranch 1} {*hlist.height 10} {*hlist.highlightBackground #d9d9d9} {*hlist.indicator 1} {*hlist.indent 20} {*hlist.itemType imagetext} {*hlist.padX 2} {*hlist.padY 2} {*hlist.relief sunken} {*hlist.takeFocus 1} {*hlist.wideSelection 0} {*hlist.width 20} } } proc tixTree:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixTree:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget } proc tixTree:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings } #---------------------------------------------------------------------- # # Widget commands # #---------------------------------------------------------------------- proc tixTree:autosetmode {w} { tixTree:SetModes $w "" } proc tixTree:close {w ent} { upvar #0 $w data set type [tixVTree:GetType $w $ent] if {$type == "close"} { tixCallMethod $w Activate $ent $type } } proc tixTree:open {w ent} { upvar #0 $w data set type [tixVTree:GetType $w $ent] if {$type == "open"} { tixCallMethod $w Activate $ent $type } } proc tixTree:getmode {w ent} { tixVTree:GetType $w $ent } proc tixTree:setmode {w ent mode} { tixVTree:SetMode $w $ent $mode } foreach cmd { addchild anchor column delete entrycget entryconfigure header hide indicator info item nearest see selection show } { proc tixTree:$cmd {w args} { # These are hlist passthrough methods to work around # Tix' ignorant inheritance model. upvar #0 $w data set cmd [lindex [split [lindex [info level 0] 0] :] end] uplevel 1 [linsert $args 0 $data(w:hlist) $cmd] } } unset cmd #---------------------------------------------------------------------- # # Private Methods # #---------------------------------------------------------------------- proc tixTree:SetModes {w ent} { upvar #0 $w data set mode none if {$ent == ""} { set children [$data(w:hlist) info children] } else { set children [$data(w:hlist) info children $ent] } if {$children != ""} { set mode close foreach c $children { if {[$data(w:hlist) info hidden $c]} { set mode open } tixTree:SetModes $w $c } } if {$ent != ""} { tixVTree:SetMode $w $ent $mode } } #---------------------------------------------------------------------- # # Virtual Methods # #---------------------------------------------------------------------- proc tixTree:OpenCmd {w ent} { upvar #0 $w data if {$data(-opencmd) != ""} { tixTree:CallSwitchCmd $w $data(-opencmd) $ent } else { tixChainMethod $w OpenCmd $ent } } proc tixTree:CloseCmd {w ent} { upvar #0 $w data if {$data(-closecmd) != ""} { tixTree:CallSwitchCmd $w $data(-closecmd) $ent } else { tixChainMethod $w CloseCmd $ent } } # Call the opencmd or closecmd, depending on the mode ($cmd argument) # proc tixTree:CallSwitchCmd {w cmd ent} { upvar #0 $w data set bind(specs) {%V} set bind(%V) $ent tixEvalCmdBinding $w $cmd bind $ent } proc tixTree:Command {w B} { upvar #0 $w data upvar $B bind tixChainMethod $w Command $B set ent [tixEvent flag V] if {$data(-command) != ""} { tixEvalCmdBinding $w $data(-command) bind $ent } } proc tixTree:BrowseCmd {w B} { upvar #0 $w data set ent [tixEvent flag V] if {$data(-browsecmd) != ""} { tixEvalCmdBinding $w $data(-browsecmd) "" $ent } } Tix8.4.3/OptMenu.tcl 0000644 00000022260 15231152137 0010000 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: OptMenu.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # OptMenu.tcl -- # # This file implements the TixOptionMenu widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixOptionMenu { -classname TixOptionMenu -superclass tixLabelWidget -method { add delete disable enable entrycget entryconfigure entries } -flag { -command -disablecallback -dynamicgeometry -value -variable -validatecmd -state } -forcecall { -variable -state } -configspec { {-command command Command ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-dynamicgeometry dynamicGeometry DynamicGeometry 0 tixVerifyBoolean} {-state state State normal} {-value value Value ""} {-validatecmd validateCmd ValidateCmd ""} {-variable variable Variable ""} } -default { {.highlightThickness 0} {.takeFocus 0} {.frame.menubutton.relief raised} {.frame.menubutton.borderWidth 2} {.frame.menubutton.anchor w} {.frame.menubutton.highlightThickness 2} {.frame.menubutton.takeFocus 1} } } proc tixOptionMenu:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(nItems) 0 set data(items) "" set data(posted) 0 set data(varInited) 0 set data(maxWidth) 0 } proc tixOptionMenu:ConstructFramedWidget {w frame} { upvar #0 $w data tixChainMethod $w ConstructFramedWidget $frame set data(w:menubutton) [menubutton $frame.menubutton -indicatoron 1] set data(w:menu) [menu $frame.menubutton.menu -tearoff 0] pack $data(w:menubutton) -side left -expand yes -fill both $data(w:menubutton) config -menu $data(w:menu) bind $data(w:menubutton) <Up> [bind Menubutton <space>] bind $data(w:menubutton) <Down> [bind Menubutton <space>] tixSetMegaWidget $data(w:menubutton) $w } proc tixOptionMenu:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings } #---------------------------------------------------------------------- # Private methods #---------------------------------------------------------------------- proc tixOptionMenu:Invoke {w name} { upvar #0 $w data if {"$data(-state)" == "normal"} { tixOptionMenu:SetValue $w $name } } proc tixOptionMenu:SetValue {w value {noUpdate 0}} { upvar #0 $w data if {$data(-validatecmd) != ""} { set value [tixEvalCmdBinding $w $data(-validatecmd) "" $value] } set name $value if {$name == "" || [info exists data(varInited)]} { # variable may contain a bogus value if {![info exists data($name,index)]} { set data(-value) "" tixVariable:UpdateVariable $w $data(w:menubutton) config -text "" return } } if {[info exists data($name,index)]} { $data(w:menubutton) config -text $data($name,label) set data(-value) $value if {! $noUpdate} { tixVariable:UpdateVariable $w } if {$data(-command) != "" && !$data(-disablecallback)} { if {![info exists data(varInited)]} { set bind(specs) "" tixEvalCmdBinding $w $data(-command) bind $value } } } else { error "item \"$value\" does not exist" } } proc tixOptionMenu:SetMaxWidth {w} { upvar #0 $w data foreach name $data(items) { set len [string length $data($name,label)] if {$data(maxWidth) < $len} { set data(maxWidth) $len } } if {$data(maxWidth) > 0} { $data(w:menubutton) config -width $data(maxWidth) } } #---------------------------------------------------------------------- # Configuration #---------------------------------------------------------------------- proc tixOptionMenu:config-state {w value} { upvar #0 $w data if {![info exists data(w:label)]} { return } if {$value == "normal"} { catch { $data(w:label) config -fg \ [$data(w:menubutton) cget -foreground] } $data(w:menubutton) config -state $value } else { catch { $data(w:label) config -fg \ [$data(w:menubutton) cget -disabledforeground] } $data(w:menubutton) config -state $value } } proc tixOptionMenu:config-value {w value} { upvar #0 $w data tixOptionMenu:SetValue $w $value # This will tell the Intrinsics: "Please use this value" # because "value" might be altered by SetValues # return $data(-value) } proc tixOptionMenu:config-variable {w arg} { upvar #0 $w data if {[tixVariable:ConfigVariable $w $arg]} { # The value of data(-value) is changed if tixVariable:ConfigVariable # returns true tixOptionMenu:SetValue $w $data(-value) 1 } catch { unset data(varInited) } set data(-variable) $arg } #---------------------------------------------------------------------- # Public Methdos #---------------------------------------------------------------------- proc tixOptionMenu:add {w type name args} { upvar #0 $w data if {[info exists data($name,index)]} { error "item $name already exists in the option menu $w" } case $type { "command" { set validOptions { -command -label } set opt(-command) "" set opt(-label) $name tixHandleOptions -nounknown opt $validOptions $args if {$opt(-command) != ""} { error "option -command cannot be specified" } # Create a new item inside the menu # eval $data(w:menu) add command $args \ [list -label $opt(-label) \ -command "tixOptionMenu:Invoke $w \{$name\}"] set index $data(nItems) # Store info about this item # set data($index,name) $name set data($name,type) cmd set data($name,label) $opt(-label) set data($name,index) $index if {$index == 0} { $data(w:menubutton) config -text $data($name,label) tixOptionMenu:SetValue $w $name } incr data(nItems) lappend data(items) $name if $data(-dynamicgeometry) { tixOptionMenu:SetMaxWidth $w } } "separator" { $data(w:menu) add separator set index $data(nItems) # Store info about this item # set data($index,name) $name set data($name,type) sep set data($name,label) "" set data($name,index) $index incr data(nItems) lappend data(items) $name } default { error "only types \"separator\" and \"command\" are allowed" } } return "" } proc tixOptionMenu:delete {w item} { upvar #0 $w data if {![info exists data($item,index)]} { error "item $item does not exist in $w" } # Rehash the item list set newItems "" set oldIndex 0 set newIndex 0 foreach name $data(items) { if {$item == $name} { unset data($name,label) unset data($name,index) unset data($name,type) $data(w:menu) delete $oldIndex } else { set data($name,index) $newIndex set data($newIndex,name) $name incr newIndex lappend newItems $name } incr oldIndex } incr oldIndex -1; unset data($oldIndex,name) set data(nItems) $newIndex set data(items) $newItems if {$data(-value) == $item} { set newVal "" foreach item $data(items) { if {$data($item,type) == "cmd"} { set newVal $item } } tixOptionMenu:SetValue $w $newVal } return "" } proc tixOptionMenu:disable {w item} { upvar #0 $w data if {![info exists data($item,index)]} { error "item $item does not exist in $w" } else { catch {$data(w:menu) entryconfig $data($item,index) -state disabled} } } proc tixOptionMenu:enable {w item} { upvar #0 $w data if {![info exists data($item,index)]} { error "item $item does not exist in $w" } else { catch {$data(w:menu) entryconfig $data($item,index) -state normal} } } proc tixOptionMenu:entryconfigure {w item args} { upvar #0 $w data if {![info exists data($item,index)]} { error "item $item does not exist in $w" } else { return [eval $data(w:menu) entryconfig $data($item,index) $args] } } proc tixOptionMenu:entrycget {w item arg} { upvar #0 $w data if {![info exists data($item,index)]} { error "item $item does not exist in $w" } else { return [$data(w:menu) entrycget $data($item,index) $arg] } } proc tixOptionMenu:entries {w} { upvar #0 $w data return $data(items) } proc tixOptionMenu:Destructor {w} { tixVariable:DeleteVariable $w # Chain this to the superclass # tixChainMethod $w Destructor } #---------------------------------------------------------------------- # Obsolete # These have been replaced by new commands in Tk 4.0 # proc tixOptionMenu:Post {w} { upvar #0 $w data set rootx [winfo rootx $data(w:frame)] set rooty [winfo rooty $data(w:frame)] # adjust for the border of the menu and frame # incr rootx [lindex [$data(w:menu) config -border] 4] incr rooty [lindex [$data(w:frame) config -border] 4] incr rooty [lindex [$data(w:menu) config -border] 4] set value $data(-value) set y [$data(w:menu) yposition $data($value,index)] $data(w:menu) post $rootx [expr $rooty - $y] $data(w:menu) activate $data($value,index) grab -global $data(w:menubutton) set data(posted) 1 } Tix8.4.3/LabEntry.tcl 0000644 00000004137 15231152137 0010134 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: LabEntry.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # LabEntry.tcl -- # # TixLabelEntry Widget: an entry box with a label # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixLabelEntry { -classname TixLabelEntry -superclass tixLabelWidget -method { } -flag { -disabledforeground -state } -forcecall { -state } -static { } -configspec { {-disabledforeground disabledForeground DisabledForeground #303030} {-state state State normal} } -default { {.borderWidth 0} {*entry.relief sunken} {*entry.width 7} {*label.anchor e} {*label.borderWidth 0} } } proc tixLabelEntry:ConstructFramedWidget {w frame} { upvar #0 $w data tixChainMethod $w ConstructFramedWidget $frame set data(w:entry) [entry $frame.entry] pack $data(w:entry) -side left -expand yes -fill both # This value is used to configure the disable/normal fg of the ebtry # set data(entryfg) [$data(w:entry) cget -fg] set data(labelfg) [$data(w:label) cget -fg] } proc tixLabelEntryBind {} { tixBind TixLabelEntry <FocusIn> { if {[focus -displayof [set %W(w:entry)]] ne [set %W(w:entry)]} { focus [%W subwidget entry] [set %W(w:entry)] selection from 0 [set %W(w:entry)] selection to end [set %W(w:entry)] icursor end } } } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixLabelEntry:config-state {w value} { upvar #0 $w data if {$value == "normal"} { catch { $data(w:label) config -fg $data(labelfg) } $data(w:entry) config -state $value -fg $data(entryfg) } else { catch { $data(w:label) config -fg $data(-disabledforeground) } $data(w:entry) config -state $value -fg $data(-disabledforeground) } } Tix8.4.3/SHList.tcl 0000644 00000007321 15231152137 0007560 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SHList.tcl,v 1.7 2004/04/09 21:37:33 hobbs Exp $ # # SHList.tcl -- # # This file implements Scrolled HList widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixScrolledHList { -classname TixScrolledHList -superclass tixScrolledWidget -method { } -flag { -highlightbackground -highlightcolor -highlightthickness } -configspec { {-highlightbackground -highlightBackground HighlightBackground #d9d9d9} {-highlightcolor -highlightColor HighlightColor black} {-highlightthickness -highlightThickness HighlightThickness 2} } -default { {.scrollbar auto} {*f1.borderWidth 1} {*hlist.Background #c3c3c3} {*hlist.highlightBackground #d9d9d9} {*hlist.relief sunken} {*hlist.takeFocus 1} {*Scrollbar.takeFocus 0} } -forcecall { -highlightbackground -highlightcolor -highlightthickness } } proc tixScrolledHList:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(pw:f1) [frame $w.f1 -takefocus 0] set data(w:hlist) \ [tixHList $w.f1.hlist -bd 0 -takefocus 1 -highlightthickness 0] pack $data(w:hlist) -in $data(pw:f1) -expand yes -fill both -padx 0 -pady 0 set data(w:hsb) [scrollbar $w.hsb -orient horizontal -takefocus 0] set data(w:vsb) [scrollbar $w.vsb -orient vertical -takefocus 0] set data(pw:client) $data(pw:f1) } proc tixScrolledHList:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:hlist) config \ -xscrollcommand [list $data(w:hsb) set] \ -yscrollcommand [list $data(w:vsb) set] \ -sizecmd [list tixScrolledWidget:Configure $w] $data(w:hsb) config -command [list $data(w:hlist) xview] $data(w:vsb) config -command [list $data(w:hlist) yview] } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixScrolledHList:config-takefocus {w value} { upvar #0 $w data $data(w:hlist) config -takefocus $value } proc tixScrolledHList:config-highlightbackground {w value} { upvar #0 $w data $data(pw:f1) config -highlightbackground $value } proc tixScrolledHList:config-highlightcolor {w value} { upvar #0 $w data $data(pw:f1) config -highlightcolor $value } proc tixScrolledHList:config-highlightthickness {w value} { upvar #0 $w data $data(pw:f1) config -highlightthickness $value } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- # virtual # proc tixScrolledHList:RepackHook {w} { upvar #0 $w data tixChainMethod $w RepackHook } #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement #---------------------------------------------------------------------- proc tixScrolledHList:GeometryInfo {w mW mH} { upvar #0 $w data if {[winfo class $w.f1] eq "Frame"} { set extra [expr {[$w.f1 cget -bd]+[$w.f1 cget -highlightthickness]}] } else { set extra 0 } set mW [expr {$mW - $extra*2}] set mH [expr {$mH - $extra*2}] if {$mW < 1} { set mW 1 } if {$mH < 1} { set mH 1 } return [$data(w:hlist) geometryinfo $mW $mH] } Tix8.4.3/ChkList.tcl 0000644 00000011737 15231152137 0007761 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: ChkList.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $ # # ChkList.tcl -- # # This file implements the TixCheckList widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixCheckList { -classname TixCheckList -superclass tixTree -method { getselection getstatus setstatus } -flag { -radio } -configspec { {-radio radio Radio false tixVerifyBoolean} {-ignoreinvoke ignoreInvoke IgnoreInvoke true tixVerifyBoolean} } -static { -radio } -default { {.scrollbar auto} {.doubleClick false} {*Scrollbar.takeFocus 0} {*borderWidth 1} {*hlist.background #c3c3c3} {*hlist.drawBranch 1} {*hlist.height 10} {*hlist.highlightBackground #d9d9d9} {*hlist.indicator 1} {*hlist.indent 20} {*hlist.itemType imagetext} {*hlist.padX 3} {*hlist.padY 0} {*hlist.relief sunken} {*hlist.takeFocus 1} {*hlist.wideSelection 0} {*hlist.width 20} } } proc tixCheckList:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec if {$data(-radio)} { set data(selected) "" } } #---------------------------------------------------------------------- # # Widget commands # #---------------------------------------------------------------------- # Helper function for getselection # proc tixCheckList:GetSel {w var ent mode} { upvar #0 $w data upvar $var img set ents "" catch { if {[$data(w:hlist) entrycget $ent -bitmap] eq $img($mode)} { lappend ents $ent } } foreach child [$data(w:hlist) info children $ent] { set ents [concat $ents [tixCheckList:GetSel $w img $child $mode]] } return $ents } # Mode can be on, off, default # proc tixCheckList:getselection {w {mode on}} { upvar #0 $w data set img(on) [tix getbitmap ck_on] set img(off) [tix getbitmap ck_off] set img(default) [tix getbitmap ck_def] set ents "" foreach child [$data(w:hlist) info children] { set ents [concat $ents [tixCheckList:GetSel $w img $child $mode]] } return $ents } proc tixCheckList:getstatus {w ent} { upvar #0 $w data if {[$data(w:hlist) entrycget $ent -itemtype] eq "imagetext"} { set img(on) [tix getbitmap ck_on] set img(off) [tix getbitmap ck_off] set img(default) [tix getbitmap ck_def] set bitmap [$data(w:hlist) entrycget $ent -bitmap] if {$bitmap eq $img(on)} { set status on } if {$bitmap eq $img(off)} { set status off } if {$bitmap eq $img(default)} { set status default } } if {[info exists status]} { return $status } else { return "none" } } proc tixCheckList:setstatus {w ent {mode on}} { upvar #0 $w data if {$data(-radio)} { set status [tixCheckList:getstatus $w $ent] if {$status eq $mode} { return } if {$mode eq "on"} { if {$data(selected) != ""} { tixCheckList:Select $w $data(selected) off } set data(selected) $ent tixCheckList:Select $w $ent $mode } elseif {$mode eq "off"} { if {$data(selected) eq $ent} { return } tixCheckList:Select $w $ent $mode } else { tixCheckList:Select $w $ent $mode } } else { tixCheckList:Select $w $ent $mode } } proc tixCheckList:Select {w ent mode} { upvar #0 $w data if {[$data(w:hlist) entrycget $ent -itemtype] eq "imagetext"} { set img(on) ck_on set img(off) ck_off set img(default) ck_def if [catch { set bitmap [tix getbitmap $img($mode)] $data(w:hlist) entryconfig $ent -bitmap $bitmap }] { # must be the "none" mode # catch { $data(w:hlist) entryconfig $ent -bitmap "" } } } return $mode } proc tixCheckList:HandleCheck {w ent} { upvar #0 $w data if {[$data(w:hlist) entrycget $ent -itemtype] eq "imagetext"} { set img(on) [tix getbitmap ck_on] set img(off) [tix getbitmap ck_off] set img(default) [tix getbitmap ck_def] set curMode [tixCheckList:getstatus $w $ent] case $curMode { on { tixCheckList:setstatus $w $ent off } off { tixCheckList:setstatus $w $ent on } none { return } default { tixCheckList:setstatus $w $ent on } } } } proc tixCheckList:Command {w B} { upvar #0 $w data upvar $B bind set ent [tixEvent flag V] tixCheckList:HandleCheck $w $ent tixChainMethod $w Command $B } proc tixCheckList:BrowseCmd {w B} { upvar #0 $w data upvar $B bind set ent [tixEvent flag V] case [tixEvent type] { {<ButtonPress-1> <space>} { tixCheckList:HandleCheck $w $ent } } tixChainMethod $w BrowseCmd $B } Tix8.4.3/CObjView.tcl 0000644 00000017072 15231152137 0010066 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: CObjView.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # CObjView.tcl -- # # This file implements the Canvas Object View widget. This is a base # class of IconView. It implements: # (1) Automatic placement/adjustment of the scrollbars according # to the canvas objects inside the canvas subwidget. The # scrollbars are adjusted so that the canvas is just large # enough to see all the objects. # # (2) D+D bindings of the objects (%% not implemented) # # (3) Keyboard traversal of the objects (%% not implemented). By the # virtual method :SelectObject. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixCObjView { -classname TixCObjView -superclass tixScrolledWidget -method { adjustscrollregion } -flag { -xscrollincrement -yscrollincrement } -static { } -configspec { {-xscrollincrement xScrollIncrement ScrollIncrement 10} {-yscrollincrement yScrollIncrement ScrollIncrement 10} } -default { {.scrollbar auto} {*borderWidth 1} {*canvas.background #c3c3c3} {*canvas.highlightBackground #d9d9d9} {*canvas.relief sunken} {*canvas.takeFocus 1} {*Scrollbar.takeFocus 0} } -forcecall { -scrollbar } } proc tixCObjView:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:canvas) \ [canvas $w.canvas] set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical] set data(pw:client) $data(w:canvas) set data(xorig) 0 set data(yorig) 0 set data(sx1) 0 set data(sy1) 0 set data(sx2) 0 set data(sy2) 0 } proc tixCObjView:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings # %% scan/drag of canvas?? # # $data(w:canvas) config \ # -xscrollcommand "tixCObjView:XScroll $w"\ # -yscrollcommand "tixCObjView:YScroll $w" $data(w:hsb) config -command "tixCObjView:UserScroll $w x" $data(w:vsb) config -command "tixCObjView:UserScroll $w y" } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixCObjView:config-takefocus {w value} { upvar #0 $w data $data(w:canvas) config -takefocus $value } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- proc tixCObjView:adjustscrollregion {w} { upvar #0 $w data set cW [tixWinWidth $data(w:canvas)] set cH [tixWinHeight $data(w:canvas)] tixCObjView:GetScrollRegion $w $cW $cH 1 1 } #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- proc tixCObjView:GeometryInfo {w cW cH} { upvar #0 $w data set bd \ [expr [$data(w:canvas) cget -bd] + [$data(w:canvas) cget -highlightthickness]] incr cW -[expr {2*$bd}] incr cH -[expr {2*$bd}] return [tixCObjView:GetScrollRegion $w $cW $cH 0 0] } proc tixCObjView:PlaceWindow {w} { upvar #0 $w data set cW [tixWinWidth $data(w:canvas)] set cH [tixWinHeight $data(w:canvas)] tixCObjView:GetScrollRegion $w $cW $cH 1 0 tixChainMethod $w PlaceWindow } proc tixCObjView:GetScrollRegion {w cW cH setReg callConfig} { upvar #0 $w data set x1max $data(xorig) set y1max $data(yorig) set x2min [expr {$x1max + $cW - 1}] set y2min [expr {$y1max + $cH - 1}] set bbox [$data(w:canvas) bbox all] if {$bbox == ""} { set bbox {0 0 1 1} } set x1 [lindex $bbox 0] set y1 [lindex $bbox 1] set x2 [lindex $bbox 2] set y2 [lindex $bbox 3] set bd \ [expr [$data(w:canvas) cget -bd] + [$data(w:canvas) cget -highlightthickness]] incr x1 -$bd incr y1 -$bd incr x2 -$bd incr y2 -$bd if {$x1 > $x1max} { set x1 $x1max } if {$y1 > $y1max} { set y1 $y1max } if {$x2 < $x2min} { set x2 $x2min } if {$y2 < $y2min} { set y2 $y2min } set data(sx1) $x1 set data(sy1) $y1 set data(sx2) $x2 set data(sy2) $y2 set sW [expr {$x2 - $x1 + 1}] set sH [expr {$y2 - $y1 + 1}] # puts "sregion = {$x1 $y1 $x2 $y2}; sW=$sW; cW=$cW" if {$sW > $cW} { set hsbSpec {0.5 1} } else { set hsbSpec {0 1} } if {$sH > $cH} { set vsbSpec {0.5 1} } else { set vsbSpec {0 1} } if $setReg { tixCObjView:SetScrollBars $w $cW $cH $sW $sH } if $callConfig { tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } return [list $hsbSpec $vsbSpec] } #xF = xFirst # proc tixCObjView:SetScrollBars {w cW cH sW sH} { upvar #0 $w data # puts "$data(xorig) <--> $data(sx1)" set xF [expr ($data(xorig).0-$data(sx1).0)/$sW.0] set xL [expr $cW.0/$sW.0 + $xF] set yF [expr ($data(yorig).0-$data(sy1).0)/$sH.0] set yL [expr $cH.0/$sH.0 + $yF] # puts "$xF $xL : $yF $yL" $data(w:hsb) set $xF $xL $data(w:vsb) set $yF $yL } proc tixCObjView:UserScroll {w dir type args} { upvar #0 $w data $data(w:canvas) config -xscrollincrement 1 -yscrollincrement 1 case $dir { x { set n $data(xorig) set orig $data(xorig) set s1 $data(sx1) set total [expr {$data(sx2)-$data(sx1)}] set page [tixWinWidth $data(w:canvas)] set min $data(sx1) set max [expr {$data(sx1)+$total-$page}] set inc $data(-xscrollincrement) } y { set n $data(yorig) set orig $data(yorig) set s1 $data(sy1) set total [expr {$data(sy2)-$data(sy1)}] set page [tixWinHeight $data(w:canvas)] set min $data(sy1) set max [expr {$data(sy1)+$total-$page}] set inc $data(-yscrollincrement) } } case $type { scroll { set amt [lindex $args 0] set unit [lindex $args 1] case $unit { units { incr n [expr int($inc)*$amt] } pages { incr n [expr {$page*$amt}] } } } moveto { set first [lindex $args 0] set n [expr round($first*$total)+$s1] } } if {$n < $min} { set n $min } if {$n > $max} { set n $max } # puts "n=$n min=$min max=$max" case $dir { x { $data(w:canvas) xview scroll [expr {$n-$orig}] units set data(xorig) $n } y { $data(w:canvas) yview scroll [expr {$n-$orig}] units set data(yorig) $n } } set cW [tixWinWidth $data(w:canvas)] set cH [tixWinHeight $data(w:canvas)] set sW [expr {$data(sx2)-$data(sx1)+1}] set sH [expr {$data(sy2)-$data(sy1)+1}] tixCObjView:SetScrollBars $w $cW $cH $sW $sH } # Junk # # proc tixCObjView:XScroll {w first last} { upvar #0 $w data set sc [$data(w:canvas) cget -scrollregion] if {$sc == ""} { set x1 1 set x2 [tixWinWidth $data(w:canvas)] } else { set x1 [lindex $sc 0] set x2 [lindex $sc 2] } set W [expr {$x2 - $x1}] if {$W < 1} { set W 1 } $data(w:hsb) set $first $last # tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } # Junk # proc tixCObjView:YScroll {w first last} { upvar #0 $w data set sc [$data(w:canvas) cget -scrollregion] if {$sc == ""} { set y1 1 set y2 [tixWinHeight $data(w:canvas)] } else { set y1 [lindex $sc 1] set y2 [lindex $sc 3] } set H [expr {$y2 - $y1}] if {$H < 1} { set H 1 } $data(w:vsb) set $first $last # tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } Tix8.4.3/Variable.tcl 0000644 00000005003 15231152137 0010132 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Variable.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $ # # Variable.tcl -- # # Routines in this file are used to set up and operate variables # for classes that support the -variable option # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # tixVariable:ConfigVariable -- # # Set up the -variable option for the object $w # # Side effects: # # data(-variable) is changed to the name of the global variable # if the global variable exists, data(-value) takes the value of this # variable. # if the global variable does not exist, it is created with the # current data(-value) # # Return value: # # true is data(-value) is changed, indicating that data(-command) # should be invoked. # proc tixVariable:ConfigVariable {w arg} { upvar #0 $w data set changed 0 if {$data(-variable) != ""} { uplevel #0 \ [list trace vdelete $data(-variable) w "tixVariable:TraceProc $w"] } if {$arg != ""} { if {[uplevel #0 info exists [list $arg]]} { # This global variable exists, we use its value # set data(-value) [uplevel #0 set [list $arg]] set changed 1 } else { # This global variable does not exist; let's set it # uplevel #0 [list set $arg $data(-value)] } uplevel #0 \ [list trace variable $arg w "tixVariable:TraceProc $w"] } return $changed } proc tixVariable:UpdateVariable {w} { upvar #0 $w data if {$data(-variable) != ""} { uplevel #0 \ [list trace vdelete $data(-variable) w "tixVariable:TraceProc $w"] uplevel #0 \ [list set $data(-variable) $data(-value)] uplevel #0 \ [list trace variable $data(-variable) w "tixVariable:TraceProc $w"] # just in case someone has another trace and restricted my change # set data(-value) [uplevel #0 set [list $data(-variable)]] } } proc tixVariable:TraceProc {w name1 name2 op} { upvar #0 $w data set varname $data(-variable) if {[catch {$w config -value [uplevel #0 [list set $varname]]} err]} { uplevel #0 [list set $varname [list [$w cget -value]]] error $err } return } proc tixVariable:DeleteVariable {w} { upvar #0 $w data # Must delete the trace command of the -variable # if {$data(-variable) != ""} { uplevel #0 \ [list trace vdelete $data(-variable) w "tixVariable:TraceProc $w"] } } Tix8.4.3/MultView.tcl 0000644 00000007170 15231152137 0010170 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: MultView.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # MultView.tcl -- # # Implements the multi-view widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixMultiView { -classname TixMultiView -superclass tixPrimitive -method { add } -flag { -browsecmd -command -view } -forcecall { -view } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-view view View icon tixMultiView:VerifyView} } -alias { } -default { } } proc tixMultiView:InitWidgetRec {w} { upvar #0 $w data global env tixChainMethod $w InitWidgetRec } #---------------------------------------------------------------------- # Construct widget #---------------------------------------------------------------------- proc tixMultiView:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:stlist) [tixScrolledTList $w.stlist] set data(w:sgrid) [tixScrolledGrid $w.sgrid] set data(w:icon) [tixIconView $w.icon] set data(w:tlist) [$data(w:stlist) subwidget tlist] set data(w:grid) [$data(w:sgrid) subwidget grid] $data(w:grid) config -formatcmd [list tixMultiView:GridFormat $w] \ -leftmargin 0 -topmargin 1 } proc tixMultiView:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings } proc tixMultiView:GetWid {w which} { upvar #0 $w data case $which { list { return $data(w:stlist) } icon { return $data(w:icon) } detail { return $data(w:sgrid) } } } #---------------------------------------------------------------------- # Configuration #---------------------------------------------------------------------- proc tixMultiView:config-view {w value} { upvar #0 $w data if {$data(-view) != ""} { pack forget [tixMultiView:GetWid $w $data(-view)] } pack [tixMultiView:GetWid $w $value] -expand yes -fill both } #---------------------------------------------------------------------- # Private methods #---------------------------------------------------------------------- proc tixMultiView:GridFormat {w area x1 y1 x2 y2} { upvar #0 $w data case $area { main { } {x-margin y-margin s-margin} { # cborder specifies consecutive 3d borders # $data(w:grid) format cborder $x1 $y1 $x2 $y2 \ -fill 1 -relief raised -bd 2 -bg gray60 \ -selectbackground gray80 } } } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- # Return value is the index of "$name" in the grid subwidget # # proc tixMultiView:add {w name args} { upvar #0 $w data set validOptions {-image -text} set opt(-image) "" set opt(-text) "" tixHandleOptions -nounknown opt $validOptions $args $data(w:icon) add $name $opt(-image) $opt(-text) $data(w:tlist) insert end -itemtype imagetext \ -image $opt(-image) -text $opt(-text) $data(w:grid) set 0 end -itemtype imagetext \ -image $opt(-image) -text $opt(-text) return max } #---------------------------------------------------------------------- # checker #---------------------------------------------------------------------- proc tixMultiView:VerifyView {value} { case $value { {icon list detail} { return $value } } error "bad view \"$value\", must be detail, icon or list" } Tix8.4.3/SWidget.tcl 0000644 00000023024 15231152137 0007756 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SWidget.tcl,v 1.5 2002/01/24 09:13:58 idiscovery Exp $ # # SWidget.tcl -- # # tixScrolledWidget: virtual base class. Do not instantiate # This is the core class for all scrolled widgets. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixScrolledWidget { -virtual true -classname TixScrolledWidget -superclass tixPrimitive -method { } -flag { -scrollbar -scrollbarspace } -configspec { {-scrollbar scrollbar Scrollbar both} {-scrollbarspace scrollbarSpace ScrollbarSpace {both}} {-sizebox sizeBox SizeBox 0} } } proc tixScrolledWidget:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(x,first) 0 set data(x,last) 0 set data(y,first) 0 set data(y,last) 0 set data(lastSpec) "" set data(lastMW) "" set data(lastMH) "" set data(lastScbW) "" set data(lastScbH) "" set data(repack) 0 set data(counter) 0 set data(vsbPadY) 0 set data(hsbPadX) 0 } proc tixScrolledWidget:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixManageGeometry $data(pw:client) "tixScrolledWidget:ClientGeomProc $w" bind $data(pw:client) <Configure> \ [list tixScrolledWidget:ClientGeomProc $w "" $data(pw:client)] tixManageGeometry $data(w:hsb) "tixScrolledWidget:ClientGeomProc $w" bind $data(w:hsb) <Configure> \ [list tixScrolledWidget:ClientGeomProc $w "" $data(w:hsb)] tixManageGeometry $data(w:vsb) "tixScrolledWidget:ClientGeomProc $w" bind $data(w:vsb) <Configure> \ [list tixScrolledWidget:ClientGeomProc $w "" $data(w:vsb)] bind $w <Configure> "tixScrolledWidget:MasterGeomProc $w" tixWidgetDoWhenIdle tixScrolledWidget:Repack $w set data(repack) 1 } proc tixScrolledWidget:config-scrollbar {w value} { upvar #0 $w data global tcl_platform if {[lindex $value 0] == "auto"} { foreach xspec [lrange $value 1 end] { case $xspec { {+x -x +y -y} {} default { error "bad -scrollbar value \"$value\"" } } } } else { case $value in { {none x y both} {} default { error "bad -scrollbar value \"$value\"" } } } if {$data(-sizebox) && $tcl_platform(platform) == "windows"} { set data(-scrollbar) both } if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixScrolledWidget:Repack $w } } proc tixScrolledWidget:config-scrollbarspace {w value} { upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixScrolledWidget:Repack $w } } proc tixScrolledWidget:config-sizebox {w value} { error "unimplemented" } #---------------------------------------------------------------------- # # Scrollbar calculations # #---------------------------------------------------------------------- proc tixScrolledWidget:ClientGeomProc {w type client} { upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixScrolledWidget:Repack $w } } proc tixScrolledWidget:MasterGeomProc {w} { upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixScrolledWidget:Repack $w } } proc tixScrolledWidget:Configure {w} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(repack) == 0} { set data(repack) 1 tixWidgetDoWhenIdle tixScrolledWidget:Repack $w } } proc tixScrolledWidget:ScrollCmd {w scrollbar axis first last} { upvar #0 $w data $scrollbar set $first $last } # Show or hide the scrollbars as required. # # spec: 00 = need none # spec: 01 = need y # spec: 10 = need x # spec: 11 = need xy # proc tixScrolledWidget:Repack {w} { tixCallMethod $w RepackHook } proc tixScrolledWidget:RepackHook {w} { upvar #0 $w data global tcl_platform if {![winfo exists $w]} { # This was generated by the <Destroy> event # return } set client $data(pw:client) # Calculate the size of the master # set mreqw [winfo reqwidth $w] set mreqh [winfo reqheight $w] set creqw [winfo reqwidth $client] set creqh [winfo reqheight $client] set scbW [winfo reqwidth $w.vsb] set scbH [winfo reqheight $w.hsb] case $data(-scrollbarspace) { "x" { incr creqh $scbH } "y" { incr creqw $scbW } "both" { incr creqw $scbW incr creqh $scbH } } if {$data(-width) != 0} { set creqw $data(-width) } if {$data(-height) != 0} { set creqh $data(-height) } if {$mreqw != $creqw || $mreqh != $creqh } { if {![info exists data(counter)]} { set data(counter) 0 } if {$data(counter) < 50} { incr data(counter) tixGeometryRequest $w $creqw $creqh tixWidgetDoWhenIdle tixScrolledWidget:Repack $w set data(repack) 1 return } } set data(counter) 0 set mw [winfo width $w] set mh [winfo height $w] set cw [expr $mw - $scbW] set ch [expr $mh - $scbH] set scbx [expr $mw - $scbW] set scby [expr $mh - $scbH] # Check the validity of the sizes: if window was not mapped then # sizes will be below 1x1 if {$cw < 1} { set cw 1 } if {$ch < 1} { set ch 1 } if {$scbx < 1} { set scbx 1 } if {$scby < 1} { set scby 1 } if {[lindex $data(-scrollbar) 0] == "auto"} { # Find out how we are going to pack the scrollbars # set spec [tixScrolledWidget:CheckScrollbars $w $scbW $scbH] foreach xspec [lrange $data(-scrollbar) 1 end] { case $xspec { +x { set spec [expr $spec | 10] } -x { set spec [expr $spec & 01] } +y { set spec [expr $spec | 01] } -y { set spec [expr $spec & 10] } } } if {$spec == 0} { set spec 00 } if {$spec == 1} { set spec 01 } } else { case $data(-scrollbar) in { none { set spec 00 } x { set spec 10 } y { set spec 01 } both { set spec 11 } } } if {$data(lastSpec)==$spec && $data(lastMW)==$mw && $data(lastMH)==$mh} { if {$data(lastScbW) == $scbW && $data(lastScbH) == $scbH} { tixCallMethod $w PlaceWindow set data(repack) 0 return } } set vsbH [expr $mh - $data(vsbPadY)] set hsbW [expr $mw - $data(hsbPadX)] if {$vsbH < 1} { set vsbH 1 } if {$hsbW < 1} { set hsbW 1 } case $spec in { "00" { tixMoveResizeWindow $client 0 0 $mw $mh tixMapWindow $client tixUnmapWindow $data(w:hsb) tixUnmapWindow $data(w:vsb) } "01" { tixMoveResizeWindow $client 0 0 $cw $mh tixMoveResizeWindow $data(w:vsb) $scbx $data(vsbPadY) $scbW $vsbH tixMapWindow $client tixUnmapWindow $data(w:hsb) tixMapWindow $data(w:vsb) } "10" { tixMoveResizeWindow $client 0 0 $mw $ch tixMoveResizeWindow $data(w:hsb) $data(hsbPadX) $scby $hsbW $scbH tixMapWindow $client tixMapWindow $data(w:hsb) tixUnmapWindow $data(w:vsb) } "11" { set vsbH [expr $ch - $data(vsbPadY)] set hsbW [expr $cw - $data(hsbPadX)] if {$vsbH < 1} { set vsbH 1 } if {$hsbW < 1} { set hsbW 1 } tixMoveResizeWindow $client 0 0 $cw $ch tixMoveResizeWindow $data(w:vsb) $scbx $data(vsbPadY) $scbW $vsbH tixMoveResizeWindow $data(w:hsb) $data(hsbPadX) $scby $hsbW $scbH if {$data(-sizebox) && $tcl_platform(platform) == "windows"} { tixMoveResizeWindow $data(w:sizebox) $scbx $scby $scbW $scbH } tixMapWindow $client tixMapWindow $data(w:hsb) tixMapWindow $data(w:vsb) if {$data(-sizebox) && $tcl_platform(platform) == "windows"} { tixMapWindow $data(w:sizebox) } } } set data(lastSpec) $spec set data(lastMW) $mw set data(lastMH) $mh set data(lastScbW) $scbW set data(lastScbH) $scbH tixCallMethod $w PlaceWindow set data(repack) 0 } proc tixScrolledWidget:PlaceWindow {w} { # virtual base function } # # Helper function # proc tixScrolledWidget:NeedScrollbar {w axis} { upvar #0 $w data if {$data($axis,first) > 0.0} { return 1 } if {$data($axis,last) < 1.0} { return 1 } return 0 } # Return whether H and V needs scrollbars in a list of two booleans # # proc tixScrolledWidget:CheckScrollbars {w scbW scbH} { upvar #0 $w data set mW [winfo width $w] set mH [winfo height $w] set info [tixCallMethod $w GeometryInfo $mW $mH] if {$info != ""} { set xSpec [lindex $info 0] set ySpec [lindex $info 1] set data(x,first) [lindex $xSpec 0] set data(x,last) [lindex $xSpec 1] set data(y,first) [lindex $ySpec 0] set data(y,last) [lindex $ySpec 1] } set needX [tixScrolledWidget:NeedScrollbar $w x] set needY [tixScrolledWidget:NeedScrollbar $w y] if {[winfo ismapped $w]==0} { return "$needX$needY" } if {$needX && $needY} { return 11 } if {$needX == 0 && $needY == 0} { return 00 } if {$needX} { set mH [expr $mH - $scbH] } if {$needY} { set mW [expr $mW - $scbW] } set info [tixCallMethod $w GeometryInfo $mW $mH] if {$info != ""} { set xSpec [lindex $info 0] set ySpec [lindex $info 1] set data(x,first) [lindex $xSpec 0] set data(x,last) [lindex $xSpec 1] set data(y,first) [lindex $ySpec 0] set data(y,last) [lindex $ySpec 1] } set needX [tixScrolledWidget:NeedScrollbar $w x] set needY [tixScrolledWidget:NeedScrollbar $w y] return "$needX$needY" } Tix8.4.3/bitmaps/plus.xbm 0000644 00000000303 15231152137 0011031 0 ustar 00 #define plus_width 9 #define plus_height 9 static unsigned char plus_bits[] = { 0xff, 0x01, 0x01, 0x01, 0x11, 0x01, 0x11, 0x01, 0x7d, 0x01, 0x11, 0x01, 0x11, 0x01, 0x01, 0x01, 0xff, 0x01}; Tix8.4.3/bitmaps/resize2.xbm 0000644 00000000461 15231152137 0011436 0 ustar 00 #define resize2_width 13 #define resize2_height 13 #define resize2_x_hot 6 #define resize2_y_hot 6 static unsigned char resize2_bits[] = { 0xc0, 0x1f, 0x80, 0x10, 0x00, 0x11, 0x80, 0x11, 0xc0, 0x16, 0x60, 0x1b, 0xb1, 0x11, 0xdb, 0x00, 0x6d, 0x00, 0x31, 0x00, 0x11, 0x00, 0x21, 0x00, 0x7f, 0x00}; Tix8.4.3/bitmaps/hourglas.mask 0000644 00000001711 15231152137 0012043 0 ustar 00 #define hourglass_mask_width 32 #define hourglass_mask_height 32 #define hourglass_mask_x_hot 16 #define hourglass_mask_y_hot 15 static char hourglass_mask_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x7f, 0xfc, 0xff, 0xff, 0x7f, 0x58, 0x00, 0x00, 0x34, 0x58, 0x00, 0x00, 0x34, 0x58, 0x00, 0x00, 0x34, 0x98, 0x00, 0x00, 0x32, 0x98, 0x00, 0x00, 0x32, 0x98, 0x00, 0x00, 0x32, 0x18, 0x01, 0x00, 0x31, 0x18, 0xfd, 0x7e, 0x31, 0x18, 0xfa, 0xbf, 0x30, 0x18, 0xe4, 0x4f, 0x30, 0x18, 0xd8, 0x37, 0x30, 0x18, 0x20, 0x09, 0x30, 0x18, 0x40, 0x05, 0x30, 0x18, 0x20, 0x08, 0x30, 0x18, 0x18, 0x31, 0x30, 0x18, 0x04, 0x41, 0x30, 0x18, 0x02, 0x80, 0x30, 0x18, 0x01, 0x00, 0x31, 0x18, 0x01, 0x00, 0x31, 0x98, 0x00, 0x01, 0x32, 0x98, 0x00, 0x01, 0x32, 0x98, 0x80, 0x03, 0x32, 0x58, 0xc0, 0x07, 0x34, 0x58, 0xf0, 0x1f, 0x34, 0x58, 0xfe, 0xff, 0x34, 0xf8, 0xff, 0xff, 0x3f, 0xfc, 0xff, 0xff, 0x7f, 0xfc, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/openfold.gif 0000644 00000000124 15231152137 0011634 0 ustar 00 GIF89a � ��� � !� , %��a�'/T[Bْ� Q�= 8��T窸+�̑DrK ; Tix8.4.3/bitmaps/file.xpm 0000644 00000000452 15231152137 0011010 0 ustar 00 /* XPM */ static char * file_xpm[] = { "12 12 3 1", " s None c None", ". c black", "X c #FFFFFFFFF3CE", " ........ ", " .XXXXXX. ", " .XXXXXX... ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .XXXXXXXX. ", " .......... "}; Tix8.4.3/bitmaps/srcfile.gif 0000644 00000000117 15231152137 0011457 0 ustar 00 GIF89a � ��� ��� !� , D�k� X{�@i�^�U�jd�b� ބn� ; Tix8.4.3/bitmaps/cbxarrow.xbm 0000644 00000000407 15231152137 0011702 0 ustar 00 #define cbxarrow_width 11 #define cbxarrow_height 14 static char cbxarrow_bits[] = { 0x00, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0x70, 0x00, 0xfe, 0x03, 0xfc, 0x01, 0xf8, 0x00, 0x70, 0x00, 0x20, 0x00, 0x00, 0x00, 0xfe, 0x03, 0xfe, 0x03}; Tix8.4.3/bitmaps/decr.xbm 0000644 00000000143 15231152137 0010765 0 ustar 00 #define decr_width 7 #define decr_height 4 static char decr_bits[] = { 0x7f, 0x3e, 0x1c, 0x08}; Tix8.4.3/bitmaps/srcfile.xbm 0000644 00000000362 15231152137 0011502 0 ustar 00 #define srcfile_width 12 #define srcfile_height 12 static unsigned char srcfile_bits[] = { 0xfe, 0x01, 0x02, 0x01, 0x02, 0x07, 0x02, 0x04, 0x72, 0x04, 0x8a, 0x04, 0x0a, 0x04, 0x0a, 0x04, 0x8a, 0x04, 0x72, 0x04, 0x02, 0x04, 0xfe, 0x07}; Tix8.4.3/bitmaps/folder.gif 0000644 00000000117 15231152137 0011303 0 ustar 00 GIF89a � �� � !� , ��a�'/T[Bْ� Q�Vi>h����q�R ; Tix8.4.3/bitmaps/minusarm.xpm 0000644 00000000334 15231152137 0011723 0 ustar 00 /* XPM */ static char * minusarm_xpm[] = { "9 9 3 1", " c black", ". c yellow", "X c #808080808080", " ", " ....... ", " ....... ", " .XXXXX. ", " .X X. ", " .XXXXX. ", " ....... ", " ....... ", " "}; Tix8.4.3/bitmaps/openfold.xpm 0000644 00000000642 15231152137 0011700 0 ustar 00 /* XPM */ static char * openfolder_xpm[] = { /* width height num_colors chars_per_pixel */ "16 12 3 1", /* colors */ " s None c None", ". c black", "X c #f0ff80", /* pixels */ " .... ", " .XXXX. ", " .XXXXXX. ", "............. ", ".XXXXXXXXXXX. ", ".XXX............", ".XX.XXXXXXXXXXX.", ".XX.XXXXXXXXXX. ", ".X.XXXXXXXXXXX. ", ".X.XXXXXXXXXXX. ", "..XXXXXXXXXX.. ", "............. "}; Tix8.4.3/bitmaps/info.gif 0000644 00000000237 15231152137 0010766 0 ustar 00 GIF89a � ���!� , v���� aC��[�V�tyϧ�\Iz��HjȖ����I �|O��)�O�W�Rɔ��|���1���Y�<���1R���9u]sc�q�0��d��:���Gu�Ǥ3H�8�g�Hrg�P ; Tix8.4.3/bitmaps/plus.gif 0000644 00000000072 15231152137 0011013 0 ustar 00 GIF89a � ��� !� , ��� �� "Ks�,�S ; Tix8.4.3/bitmaps/folder.xpm 0000644 00000000642 15231152137 0011345 0 ustar 00 /* XPM */ static char * folder_foo_xpm[] = { /* width height num_colors chars_per_pixel */ "16 12 3 1", /* colors */ " s None c None", ". c black", "X c #f0ff80", /* pixels */ " .... ", " .XXXX. ", " .XXXXXX. ", "............. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", ".XXXXXXXXXXX. ", "............. "}; Tix8.4.3/bitmaps/tick.xbm 0000644 00000000373 15231152137 0011007 0 ustar 00 #define tick_width 14 #define tick_height 14 static char tick_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x38, 0x00, 0x1c, 0x00, 0x0e, 0x00, 0x07, 0x80, 0x03, 0xc2, 0x01, 0xe7, 0x00, 0x7f, 0x00, 0x3e, 0x00, 0x1c, 0x00, 0x08, 0x00}; Tix8.4.3/bitmaps/resize1.xbm 0000644 00000000461 15231152137 0011435 0 ustar 00 #define resize1_width 13 #define resize1_height 13 #define resize1_x_hot 6 #define resize1_y_hot 6 static unsigned char resize1_bits[] = { 0x7f, 0x00, 0x21, 0x00, 0x11, 0x00, 0x31, 0x00, 0x6d, 0x00, 0xdb, 0x00, 0xb1, 0x11, 0x60, 0x1b, 0xc0, 0x16, 0x80, 0x11, 0x00, 0x11, 0x80, 0x10, 0xc0, 0x1f}; Tix8.4.3/bitmaps/info.xpm 0000644 00000002352 15231152137 0011025 0 ustar 00 /* XPM */ static char * info_xpm[] = { "32 32 3 1", " s None c None", ". c #000000000000", "X c white", " ", " ......... ", " ...XXXXXXXXX... ", " .XXXXXXXXXXXXXXX. ", " ..XXXXXXXXXXXXXXXXX.. ", " .XXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXX...XXXXXXXXXX. ", " .XXXXXXXXX.....XXXXXXXXX. ", " .XXXXXXXXX.......XXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXXX.....XXXXXXXXXXX. ", ".XXXXXXXXXXXXX...XXXXXXXXXXXXX. ", ".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", ".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXX.......XXXXXXXXX. ", " .XXXXXXXX.......XXXXXXXX. ", " .XXXXXXXX.......XXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXX. ", " ..XXXXXXXXXXXXXXXXX.. ", " .XXXXXXXXXXXXXXX. ", " ...XXXXXXXXX... ", " ......... "}; Tix8.4.3/bitmaps/ck_on.xbm 0000644 00000000373 15231152137 0011146 0 ustar 00 #define ck_on_width 13 #define ck_on_height 13 static unsigned char ck_on_bits[] = { 0xff, 0x1f, 0x01, 0x10, 0x01, 0x10, 0x01, 0x14, 0x01, 0x16, 0x01, 0x17, 0x89, 0x13, 0xdd, 0x11, 0xf9, 0x10, 0x71, 0x10, 0x21, 0x10, 0x01, 0x10, 0xff, 0x1f}; Tix8.4.3/bitmaps/system.xbm 0000644 00000000426 15231152137 0011400 0 ustar 00 #define system_width 15 #define system_height 15 static unsigned char system_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x3f, 0x02, 0x20, 0x02, 0x20, 0xfe, 0x3f, 0xfe, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/drop.xbm 0000644 00000000506 15231152137 0011017 0 ustar 00 #define drop_width 16 #define drop_height 16 #define drop_x_hot 6 #define drop_y_hot 4 static unsigned char drop_bits[] = { 0x00, 0x00, 0xfe, 0x07, 0x02, 0x04, 0x02, 0x04, 0x42, 0x04, 0xc2, 0x04, 0xc2, 0x05, 0xc2, 0x07, 0xc2, 0x07, 0xc2, 0x0f, 0xfe, 0x1f, 0xc0, 0x07, 0xc0, 0x06, 0x00, 0x0c, 0x00, 0x1c, 0x00, 0x08}; Tix8.4.3/bitmaps/minimize.xbm 0000644 00000000434 15231152137 0011674 0 ustar 00 #define minimize_width 15 #define minimize_height 15 static unsigned char minimize_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x01, 0x20, 0x03, 0x20, 0x03, 0xe0, 0x03, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/minus.gif 0000644 00000000071 15231152137 0011162 0 ustar 00 GIF89a � ��� !� , ��� ��^ �Lye|�� ; Tix8.4.3/bitmaps/plusarm.xbm 0000644 00000000314 15231152137 0011533 0 ustar 00 #define plusarm_width 9 #define plusarm_height 9 static unsigned char plusarm_bits[] = { 0xff, 0x01, 0x01, 0x01, 0x6d, 0x01, 0x6d, 0x01, 0x01, 0x01, 0x6d, 0x01, 0x6d, 0x01, 0x01, 0x01, 0xff, 0x01}; Tix8.4.3/bitmaps/srcfile.xpm 0000644 00000000446 15231152137 0011523 0 ustar 00 /* XPM */ static char * srcfile_xpm[] = { "12 12 3 1", " s None c None", ". c black", "X c gray91", " ........ ", " .XXXXXX. ", " .XXXXXX... ", " .XXXXXXXX. ", " .XX...XXX. ", " .X.XXX.XX. ", " .X.XXXXXX. ", " .X.XXXXXX. ", " .X.XXX.XX. ", " .XX...XXX. ", " .XXXXXXXX. ", " .......... "}; Tix8.4.3/bitmaps/act_fold.xbm 0000644 00000000335 15231152137 0011626 0 ustar 00 #define act_fold_width 16 #define act_fold_height 10 static unsigned char act_fold_bits[] = { 0xfc, 0x00, 0xaa, 0x0f, 0x55, 0x15, 0xeb, 0xff, 0x15, 0x80, 0x0b, 0x40, 0x05, 0x20, 0x03, 0x10, 0x01, 0x08, 0xff, 0x07}; Tix8.4.3/bitmaps/act_fold.xpm 0000644 00000000664 15231152137 0011651 0 ustar 00 /* XPM */ static char * act_fold_xpm[] = { /* width height num_colors chars_per_pixel */ "16 12 4 1", /* colors */ " s None c None", ". c black", "X c yellow", "o c #5B5B57574646", /* pixels */ " .... ", " .XXXX. ", " .XXXXXX. ", "............. ", ".oXoXoXoXoXo. ", ".XoX............", ".oX.XXXXXXXXXXX.", ".Xo.XXXXXXXXXX. ", ".o.XXXXXXXXXXX. ", ".X.XXXXXXXXXXX. ", "..XXXXXXXXXX.. ", "............. "}; Tix8.4.3/bitmaps/plusarm.gif 0000644 00000000074 15231152137 0011515 0 ustar 00 GIF87a � �� lhh , �����`@(g(t�^�DL� ; Tix8.4.3/bitmaps/plusarm.xpm 0000644 00000000324 15231152137 0011552 0 ustar 00 /* XPM */ static char * plusarm_xpm[] = { "9 9 3 1", " c black", ". c yellow", "X c gray40", " ", " ....... ", " ... ... ", " ..X X.. ", " . X . ", " ..X X.. ", " ... ... ", " ....... ", " "}; Tix8.4.3/bitmaps/no_entry.gif 0000644 00000000260 15231152137 0011664 0 ustar 00 GIF89a � ��� �@�� !� , �����a� ����(�\偦&6��^������6m�6K�;�L/��2 �T� �j������jW"�� �R�+���i͚=U��mW� ���� ��w�#Ȕ��XHƀ(��� 3T��0�p�Q ; Tix8.4.3/bitmaps/cross.xbm 0000644 00000000376 15231152137 0011211 0 ustar 00 #define cross_width 14 #define cross_height 14 static char cross_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x06, 0x18, 0x0e, 0x1c, 0x1c, 0x0e, 0x38, 0x07, 0xf0, 0x03, 0xe0, 0x01, 0xe0, 0x01, 0xf0, 0x03, 0x38, 0x07, 0x1c, 0x0e, 0x0e, 0x1c, 0x06, 0x18}; Tix8.4.3/bitmaps/file.gif 0000644 00000000114 15231152137 0010744 0 ustar 00 GIF89a � �� ��� !� , D�k� X{�@i�Yl�yW(r�G���}� ; Tix8.4.3/bitmaps/maximize.xbm 0000644 00000000434 15231152137 0011676 0 ustar 00 #define maximize_width 15 #define maximize_height 15 static unsigned char maximize_bits[] = { 0x00, 0x00, 0x00, 0x00, 0xfc, 0x1f, 0x04, 0x10, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0x04, 0x70, 0xfc, 0x7f, 0xf0, 0x7f, 0xf0, 0x7f}; Tix8.4.3/bitmaps/warning.gif 0000644 00000000264 15231152137 0011500 0 ustar 00 GIF89a � ��� �� !� , �����a� ����(�\偦&6�i�����)� şm�Y���p@Z���=#0�i:�B(*g<Z/Ϭh[��*^1�\n9�Su5v��� <E�G��;2m��'�5� �u�b���2�����0��5�D�s�y�ijP ; Tix8.4.3/bitmaps/restore.xbm 0000644 00000000431 15231152137 0011533 0 ustar 00 #define restore_width 15 #define restore_height 15 static unsigned char restore_bits[] = { 0x00, 0x00, 0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f, 0x00, 0x00, 0xfc, 0x1f, 0xf8, 0x0f, 0xf0, 0x07, 0xe0, 0x03, 0xc0, 0x01, 0x80, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/balarrow.xbm 0000644 00000000173 15231152137 0011664 0 ustar 00 #define balarrow_width 6 #define balarrow_height 6 static char balarrow_bits[] = { 0x1f, 0x07, 0x07, 0x09, 0x11, 0x20}; Tix8.4.3/bitmaps/act_fold.gif 0000644 00000000132 15231152137 0011600 0 ustar 00 GIF89a � �� �� [WF!� , +��a�'/T[Bْ�8 � ؍�U�U��>��P���q�, ; Tix8.4.3/bitmaps/minus.xbm 0000644 00000000306 15231152137 0011204 0 ustar 00 #define minus_width 9 #define minus_height 9 static unsigned char minus_bits[] = { 0xff, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0xff, 0x01}; Tix8.4.3/bitmaps/textfile.xbm 0000644 00000000365 15231152137 0011702 0 ustar 00 #define textfile_width 12 #define textfile_height 12 static unsigned char textfile_bits[] = { 0xfe, 0x01, 0x02, 0x01, 0x02, 0x07, 0x7a, 0x04, 0x02, 0x04, 0x3a, 0x04, 0x02, 0x04, 0xfa, 0x04, 0x02, 0x04, 0xfa, 0x04, 0x02, 0x04, 0xfe, 0x07}; Tix8.4.3/bitmaps/minusarm.gif 0000644 00000000073 15231152137 0011664 0 ustar 00 GIF87a � �� ��� , ����넔 qD�S���� ; Tix8.4.3/bitmaps/incr.xbm 0000644 00000000143 15231152137 0011003 0 ustar 00 #define incr_width 7 #define incr_height 4 static char incr_bits[] = { 0x08, 0x1c, 0x3e, 0x7f}; Tix8.4.3/bitmaps/file.xbm 0000644 00000000351 15231152137 0010770 0 ustar 00 #define file_width 12 #define file_height 12 static unsigned char file_bits[] = { 0xfe, 0x00, 0x02, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0xfe, 0x03}; Tix8.4.3/bitmaps/minus.xpm 0000644 00000000311 15231152137 0011216 0 ustar 00 /* XPM */ static char * minus_xpm[] = { "9 9 2 1", ". s None c None", " c black", " ", " ....... ", " ....... ", " ....... ", " . . ", " ....... ", " ....... ", " ....... ", " "}; Tix8.4.3/bitmaps/no_entry.xpm 0000644 00000002372 15231152137 0011731 0 ustar 00 /* XPM */ static char * no_entry_xpm[] = { "32 32 4 1", " s None c None", ". c #000000000000", "X c red", "o c yellow", " ", " ......... ", " ...XXXXXXXXX... ", " .XXXXXXXXXXXXXXX. ", " ..XXXXXXXXXXXXXXXXX.. ", " .XXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", ".XXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ", ".XXX.......................XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.ooooooooooooooooooooo.XXX. ", ".XXX.......................XXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXX. ", " ..XXXXXXXXXXXXXXXXX.. ", " .XXXXXXXXXXXXXXX. ", " ...XXXXXXXXX... ", " ......... "}; Tix8.4.3/bitmaps/harddisk.xbm 0000644 00000001600 15231152137 0011640 0 ustar 00 #define harddisk_width 32 #define harddisk_height 32 static unsigned char harddisk_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0x1f, 0x08, 0x00, 0x00, 0x18, 0xa8, 0xaa, 0xaa, 0x1a, 0x48, 0x55, 0xd5, 0x1d, 0xa8, 0xaa, 0xaa, 0x1b, 0x48, 0x55, 0x55, 0x1d, 0xa8, 0xfa, 0xaf, 0x1a, 0xc8, 0xff, 0xff, 0x1d, 0xa8, 0xfa, 0xaf, 0x1a, 0x48, 0x55, 0x55, 0x1d, 0xa8, 0xaa, 0xaa, 0x1a, 0x48, 0x55, 0x55, 0x1d, 0xa8, 0xaa, 0xaa, 0x1a, 0xf8, 0xff, 0xff, 0x1f, 0xf8, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/ck_def.xbm 0000644 00000000376 15231152137 0011273 0 ustar 00 #define ck_def_width 13 #define ck_def_height 13 static unsigned char ck_def_bits[] = { 0xff, 0x1f, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0x55, 0x15, 0x01, 0x10, 0xff, 0x1f}; Tix8.4.3/bitmaps/mktransgif.tcl 0000644 00000000371 15231152137 0012214 0 ustar 00 # # $Id: mktransgif.tcl,v 1.1.1.1 2000/05/17 11:08:46 idiscovery Exp $ # #!/usr/local/bin/tclsh set dont(plusarm.gif) 1 set dont(minusarm.gif) 1 foreach file [glob *.gif] { if ![info exists dont($file)] { puts "giftool -1 -B $file" } } Tix8.4.3/bitmaps/network.xbm 0000644 00000001575 15231152137 0011553 0 ustar 00 #define network_width 32 #define network_height 32 static unsigned char network_bits[] = { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x7f, 0x00, 0x00, 0x02, 0x40, 0x00, 0x00, 0xfa, 0x5f, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0x0a, 0x52, 0x00, 0x00, 0x0a, 0x52, 0x00, 0x00, 0x8a, 0x51, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0x4a, 0x50, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0x0a, 0x50, 0x00, 0x00, 0xfa, 0x5f, 0x00, 0x00, 0x02, 0x40, 0xfe, 0x7f, 0x52, 0x55, 0x02, 0x40, 0xaa, 0x6a, 0xfa, 0x5f, 0xfe, 0x7f, 0x0a, 0x50, 0xfe, 0x7f, 0x0a, 0x52, 0x80, 0x00, 0x0a, 0x52, 0x80, 0x00, 0x8a, 0x51, 0x80, 0x00, 0x0a, 0x50, 0x80, 0x00, 0x4a, 0x50, 0x80, 0x00, 0x0a, 0x50, 0xe0, 0x03, 0x0a, 0x50, 0x20, 0x02, 0xfa, 0xdf, 0x3f, 0x03, 0x02, 0x40, 0xa0, 0x02, 0x52, 0x55, 0xe0, 0x03, 0xaa, 0x6a, 0x00, 0x00, 0xfe, 0x7f, 0x00, 0x00, 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; Tix8.4.3/bitmaps/hourglas.xbm 0000644 00000001654 15231152137 0011704 0 ustar 00 #define hourglass_width 32 #define hourglas_height 32 #define hourglas_x_hot 16 #define hourglas_y_hot 15 static char hourglas_bits[] = { 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0x7c, 0x00, 0x00, 0x7c, 0x7c, 0x00, 0x00, 0x7c, 0x7c, 0x00, 0x00, 0x7c, 0xfc, 0x00, 0x00, 0x7e, 0xfc, 0x00, 0x00, 0x7e, 0xfc, 0x00, 0x00, 0x7e, 0xbc, 0x01, 0x00, 0x7b, 0xbc, 0xfd, 0x7e, 0x7b, 0x3c, 0xfb, 0xbf, 0x79, 0x3c, 0xe6, 0xcf, 0x78, 0x3c, 0xdc, 0x77, 0x78, 0x3c, 0x38, 0x39, 0x78, 0x3c, 0x60, 0x0d, 0x78, 0x3c, 0x38, 0x38, 0x78, 0x3c, 0x1c, 0x71, 0x78, 0x3c, 0x06, 0xc1, 0x78, 0x3c, 0x03, 0x80, 0x79, 0xbc, 0x01, 0x00, 0x7b, 0xbc, 0x01, 0x00, 0x7b, 0xfc, 0x00, 0x01, 0x7e, 0xfc, 0x00, 0x01, 0x7e, 0xfc, 0x80, 0x03, 0x7e, 0x7c, 0xc0, 0x07, 0x7c, 0x7c, 0xf0, 0x1f, 0x7c, 0x7c, 0xfe, 0xff, 0x7c, 0xfe, 0xff, 0xff, 0x7f, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff}; Tix8.4.3/bitmaps/openfile.xbm 0000644 00000000335 15231152137 0011654 0 ustar 00 #define openfile_width 16 #define openfile_height 10 static unsigned char openfile_bits[] = { 0xf8, 0x01, 0x04, 0x06, 0x02, 0x08, 0x02, 0x10, 0xe2, 0xff, 0x52, 0x55, 0xaa, 0x2a, 0x56, 0x15, 0xaa, 0x0a, 0xfe, 0x07}; Tix8.4.3/bitmaps/openfold.xbm 0000644 00000000335 15231152137 0011661 0 ustar 00 #define openfold_width 16 #define openfold_height 10 static unsigned char openfold_bits[] = { 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0xc1, 0xff, 0x21, 0x80, 0x11, 0x40, 0x09, 0x20, 0x05, 0x10, 0x03, 0x08, 0xff, 0x07}; Tix8.4.3/bitmaps/plus.xpm 0000644 00000000310 15231152137 0011045 0 ustar 00 /* XPM */ static char * plus_xpm[] = { "9 9 2 1", ". s None c None", " c black", " ", " ....... ", " ... ... ", " ... ... ", " . . ", " ... ... ", " ... ... ", " ....... ", " "}; Tix8.4.3/bitmaps/minusarm.xbm 0000644 00000000317 15231152137 0011706 0 ustar 00 #define minusarm_width 9 #define minusarm_height 9 static unsigned char minusarm_bits[] = { 0xff, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x7d, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x7d, 0x01, 0x01, 0x01, 0xff, 0x01}; Tix8.4.3/bitmaps/textfile.xpm 0000644 00000000456 15231152137 0011721 0 ustar 00 /* XPM */ static char * textfile_xpm[] = { "12 12 3 1", " s None c None", ". c black", "X c #FFFFFFFFF3CE", " ........ ", " .XXXXXX. ", " .XXXXXX... ", " .X....XXX. ", " .XXXXXXXX. ", " .X...XXXX. ", " .XXXXXXXX. ", " .X.....XX. ", " .XXXXXXXX. ", " .X.....XX. ", " .XXXXXXXX. ", " .......... "}; Tix8.4.3/bitmaps/ck_off.xbm 0000644 00000000376 15231152137 0011307 0 ustar 00 #define ck_off_width 13 #define ck_off_height 13 static unsigned char ck_off_bits[] = { 0xff, 0x1f, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0x01, 0x10, 0xff, 0x1f}; Tix8.4.3/bitmaps/warning.xpm 0000644 00000002356 15231152137 0011543 0 ustar 00 /* XPM */ static char * warning_xpm[] = { "32 32 3 1", " s None c None", ". c #000000000000", "X c yellow", " ", " ......... ", " ...XXXXXXXXX... ", " .XXXXXXXXXXXXXXX. ", " ..XXXXXXXXXXXXXXXXX.. ", " .XXXXXXXXX...XXXXXXXXX. ", " .XXXXXXXXX.....XXXXXXXXX. ", " .XXXXXXXXX.....XXXXXXXXX. ", " .XXXXXXXXX.......XXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", " .XXXXXXXXXX.......XXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXX.......XXXXXXXXXXX. ", ".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", ".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", ".XXXXXXXXXXXX.....XXXXXXXXXXXX. ", ".XXXXXXXXXXXXX...XXXXXXXXXXXXX. ", " .XXXXXXXXXXXXXXXXXXXXXXXXXXX. ", " .XXXXXXXXXXXX...XXXXXXXXXXXX. ", " .XXXXXXXXXXX.....XXXXXXXXXXX. ", " .XXXXXXXXX.......XXXXXXXXX. ", " .XXXXXXXX.......XXXXXXXX. ", " .XXXXXXXX.......XXXXXXXX. ", " .XXXXXXXX.....XXXXXXXX. ", " ..XXXXXXX...XXXXXXX.. ", " .XXXXXXXXXXXXXXX. ", " ...XXXXXXXXX... ", " ......... "}; Tix8.4.3/bitmaps/textfile.gif 0000644 00000000117 15231152137 0011654 0 ustar 00 GIF89a � ��� ��� !� , D�k� X{� ��Ɔx\Wq ��䇝�^g ; Tix8.4.3/bitmaps/folder.xbm 0000644 00000000327 15231152137 0011327 0 ustar 00 #define folder_width 16 #define folder_height 10 static unsigned char folder_bits[] = { 0xfc, 0x00, 0x02, 0x07, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0x01, 0x08, 0xff, 0x07}; Tix8.4.3/DefSchm.tcl 0000644 00000005705 15231152137 0007727 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DefSchm.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # DefSchm.tcl -- # # Implements the default color and font schemes for Tix. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc tixSetDefaultFontset {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Serif" set fixedfont "Courier New" set size 8 } unix { set font "helvetica" set fixedfont "courier" set size -12 } set tixOption(font) [list $font $size] set tixOption(bold_font) [list $font $size bold] set tixOption(menu_font) [list $font $size] set tixOption(italic_font) [list $font $size bold italic] set tixOption(fixed_font) [list $fixedfont $size] set tixOption(border1) 1 } proc tixSetDefaultScheme-Color {} { global tixOption set tixOption(bg) #d9d9d9 set tixOption(fg) black set tixOption(dark1_bg) #c3c3c3 set tixOption(dark1_fg) black set tixOption(dark2_bg) #a3a3a3 set tixOption(dark2_fg) black set tixOption(inactive_bg) #a3a3a3 set tixOption(inactive_fg) black set tixOption(light1_bg) #ececec set tixOption(light1_fg) white set tixOption(light2_bg) #fcfcfc set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) #d9d9d9 set tixOption(input2_bg) #d9d9d9 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) #c3c3c3 set tixOption(selector) #b03060 } proc tixSetDefaultScheme-Mono {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black } Tix8.4.3/DialogS.tcl 0000644 00000010310 15231152137 0007724 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DialogS.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # DialogS.tcl -- # # # Implements the DialogShell widget. It tells the window # manager that it is a dialog window and should be treated specially. # The exact treatment depends on the treatment of the window # manager # # Copyright (c) 1994-1996, Expert Interface Technologies # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixDialogShell { -superclass tixShell -classname TixDialogShell -method { popdown popup center } -flag { -mapped -minheight -minwidth -parent -transient } -static {} -configspec { {-mapped mapped Mapped 0} {-minwidth minWidth MinWidth 0} {-minheight minHeight MinHeight 0} {-transient transient Transient true} {-parent parent Parent ""} } } #---------------------------------------------------------------------- # Construct widget #---------------------------------------------------------------------- proc tixDialogShell:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget # Set the title of this shell appropriately # if {$data(-title) == ""} { # dynamically sets the title # set data(-title) [winfo name $w] } wm title $w $data(-title) # Set the parent of this dialog shell # if {$data(-parent) == ""} { set data(-parent) [winfo parent $w] } # Set the minsize and maxsize of the thing # wm minsize $w $data(-minwidth) $data(-minheight) wm transient $w "" } # The next procedures manage the dialog boxes # proc tixDialogShell:popup {w {parent ""}} { upvar #0 $w data # First update to make sure the boxes are the right size # update idletask # Then we set the position and update # # tixDialogShell:center $w $parent # and now make it visible. Viola! Centered over parent. # wm deiconify $w after idle raise $w } # This procedure centers a dialog box over a window making sure that the # dialog box doesn't appear off the screen # # However, if the parent is smaller than this dialog, make this dialog # appear at parent(x,y) + (20,20) # proc tixDialogShell:center {w {parent ""}} { upvar #0 $w data # Tell the WM that we'll do this ourselves. wm sizefrom $w user wm positionfrom $w user if {$parent == ""} { set parent $data(-parent) } if {$parent == "" || [catch {set parent [winfo toplevel $parent]}]} { set parent "." } # Where is my parent and what are it's dimensions # if {$parent != ""} { set pargeo [split [wm geometry $parent] "+x"] set parentW [lindex $pargeo 0] set parentH [lindex $pargeo 1] set parx [lindex $pargeo 2] set pary [lindex $pargeo 3] if {[string is true -strict $data(-transient)]} { wm transient $w $parent } } else { set parentW [winfo screenwidth $w] set parentH [winfo screenheight $w] set parx 0 set pary 0 set parent [winfo parent $w] } # What are is the offset of the virtual window set vrootx [winfo vrootx $parent] set vrooty [winfo vrooty $parent] # What are my dimensions ? set dialogW [winfo reqwidth $w] set dialogH [winfo reqheight $w] if {$dialogW < $parentW-30 || $dialogW < $parentH-30} { set dialogx [expr {$parx+($parentW-$dialogW)/2+$vrootx}] set dialogy [expr {$pary+($parentH-$dialogH)/2+$vrooty}] } else { # This dialog is too big. Place it at (parentx, parenty) + (20,20) # set dialogx [expr {$parx+20+$vrootx}] set dialogy [expr {$pary+20+$vrooty}] } set maxx [expr {[winfo screenwidth $parent] - $dialogW}] set maxy [expr {[winfo screenheight $parent] - $dialogH}] # Make sure it doesn't go off screen # if {$dialogx < 0} { set dialogx 0 } else { if {$dialogx > $maxx} { set dialogx $maxx } } if {$dialogy < 0} { set dialogy 0 } else { if {$dialogy > $maxy} { set dialogy $maxy } } # set my new position (and dimensions) # if {[wm geometry $w] == "1x1+0+0"} { wm geometry $w ${dialogW}x${dialogH}+${dialogx}+${dialogy} } } proc tixDialogShell:popdown {w args} { wm withdraw $w } Tix8.4.3/Primitiv.tcl 0000644 00000024437 15231152137 0010224 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Primitiv.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $ # # Primitiv.tcl -- # # This is the primitive widget. It is just a frame with proper # inheritance wrapping. All new Tix widgets will be derived from # this widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # No superclass, so the superclass switch is not used # # tixWidgetClass tixPrimitive { -virtual true -superclass {} -classname TixPrimitive -method { cget configure subwidget subwidgets } -flag { -background -borderwidth -cursor -height -highlightbackground -highlightcolor -highlightthickness -options -relief -takefocus -width -bd -bg } -static { -options } -configspec { {-background background Background #d9d9d9} {-borderwidth borderWidth BorderWidth 0} {-cursor cursor Cursor ""} {-height height Height 0} {-highlightbackground highlightBackground HighlightBackground #c3c3c3} {-highlightcolor highlightColor HighlightColor black} {-highlightthickness highlightThickness HighlightThickness 0} {-options options Options ""} {-relief relief Relief flat} {-takefocus takeFocus TakeFocus 0 tixVerifyBoolean} {-width width Width 0} } -alias { {-bd -borderwidth} {-bg -background} } } #---------------------------------------------------------------------- # ClassInitialization: #---------------------------------------------------------------------- # not used # Implemented in C # # Override: never proc tixPrimitive:Constructor {w args} { upvar #0 $w data upvar #0 $data(className) classRec # Set up some minimal items in the class record. # set data(w:root) $w set data(rootCmd) $w:root # We need to create the root widget in order to parse the options # database tixCallMethod $w CreateRootWidget # Parse the default options from the options database # tixPrimitive:ParseDefaultOptions $w # Parse the options supplied by the user # tixPrimitive:ParseUserOptions $w $args # Rename the widget command so that it can be use to access # the methods of this class tixPrimitive:MkWidgetCmd $w # Inistalize the Widget Record # tixCallMethod $w InitWidgetRec # Construct the compound widget # tixCallMethod $w ConstructWidget # Do the bindings # tixCallMethod $w SetBindings # Call the configuration methods for all "force call" options # foreach option $classRec(forceCall) { tixInt_ChangeOptions $w $option $data($option) } } # Create only the root widget. We need the root widget to query the option # database. # # Override: seldom. (unless you want to use a toplevel as root widget) # Chain : never. proc tixPrimitive:CreateRootWidget {w args} { upvar #0 $w data upvar #0 $data(className) classRec frame $w -class $data(ClassName) } proc tixPrimitive:ParseDefaultOptions {w} { upvar #0 $w data upvar #0 $data(className) classRec # SET UP THE INSTANCE RECORD ACCORDING TO DEFAULT VALUES IN # THE OPTIONS DATABASE # foreach option $classRec(options) { set spec [tixInt_GetOptionSpec $data(className) $option] if {[lindex $spec 0] eq "="} { continue } set o_name [lindex $spec 1] set o_class [lindex $spec 2] set o_default [lindex $spec 3] if {![catch {option get $w $o_name $o_class} db_default]} { if {$db_default ne ""} { set data($option) $db_default } else { set data($option) $o_default } } else { set data($option) $o_default } } } proc tixPrimitive:ParseUserOptions {w arglist} { upvar #0 $w data upvar #0 $data(className) classRec # SET UP THE INSTANCE RECORD ACCORDING TO COMMAND ARGUMENTS FROM # THE USER OF THE TIX LIBRARY (i.e. Application programmer:) # foreach {option arg} $arglist { if {[lsearch $classRec(options) $option] != "-1"} { set spec [tixInt_GetOptionSpec $data(className) $option] if {[lindex $spec 0] ne "="} { set data($option) $arg } else { set realOption [lindex $spec 1] set data($realOption) $arg } } else { error "unknown option $option. Should be: [tixInt_ListOptions $w]" } } } #---------------------------------------------------------------------- # Initialize the widget record # # # Override: always # Chain : always, before proc tixPrimitive:InitWidgetRec {w} { # default: do nothing } #---------------------------------------------------------------------- # SetBindings # # # Override: sometimes # Chain : sometimes, before # bind TixDestroyHandler <Destroy> { [tixGetMethod %W [set %W(className)] Destructor] %W } proc tixPrimitive:SetBindings {w} { upvar #0 $w data if {[winfo toplevel $w] eq $w} { bindtags $w [concat TixDestroyHandler [bindtags $w]] } else { bind $data(w:root) <Destroy> \ "[tixGetMethod $w $data(className) Destructor] $w" } } #---------------------------------------------------------------------- # PrivateMethod: ConstructWidget # # Construct and set up the compound widget # # Override: sometimes # Chain : sometimes, before # proc tixPrimitive:ConstructWidget {w} { upvar #0 $w data $data(rootCmd) config \ -background $data(-background) \ -borderwidth $data(-borderwidth) \ -cursor $data(-cursor) \ -relief $data(-relief) if {$data(-width) != 0} { $data(rootCmd) config -width $data(-width) } if {$data(-height) != 0} { $data(rootCmd) config -height $data(-height) } set rootname *[string range $w 1 end] foreach {spec value} $data(-options) { option add $rootname*$spec $value 100 } } #---------------------------------------------------------------------- # PrivateMethod: MkWidgetCmd # # Construct and set up the compound widget # # Override: sometimes # Chain : sometimes, before # proc tixPrimitive:MkWidgetCmd {w} { upvar #0 $w data rename $w $data(rootCmd) tixInt_MkInstanceCmd $w } #---------------------------------------------------------------------- # ConfigOptions: #---------------------------------------------------------------------- #---------------------------------------------------------------------- # ConfigMethod: config # # Configure one option. # # Override: always # Chain : automatic. # # Note the hack of [winfo width] in this procedure # # The hack is necessary because of the bad interaction between TK's geometry # manager (the packer) and the frame widget. The packer determines the size # of the root widget of the ComboBox (a frame widget) according to the # requirement of the slaves inside the frame widget, NOT the -width # option of the frame widget. # # However, everytime the frame widget is # configured, it sends a geometry request to the packer according to its # -width and -height options and the packer will temporarily resize # the frame widget according to the requested size! The packer then realizes # something is wrong and revert to the size determined by the slaves. This # cause a flash on the screen. # foreach opt {-height -width -background -borderwidth -cursor -highlightbackground -highlightcolor -relief -takefocus -bd -bg} { set tixPrimOpt($opt) 1 } proc tixPrimitive:config {w option value} { global tixPrimOpt upvar #0 $w data if {[info exists tixPrimOpt($option)]} { $data(rootCmd) config $option $value } } #---------------------------------------------------------------------- # PublicMethods: #---------------------------------------------------------------------- #---------------------------------------------------------------------- # This method is used to implement the "subwidgets" widget command. # Will be re-written in C. It can't be used as a public method because # of the lame substring comparison routines used in tixClass.c # # proc tixPrimitive:subwidgets {w type args} { upvar #0 $w data case $type { -class { set name [lindex $args 0] set args [lrange $args 1 end] # access subwidgets of a particular class # # note: if $name=="Frame", will *not return the root widget as well # set sub "" foreach des [tixDescendants $w] { if {[winfo class $des] eq $name} { lappend sub $des } } # Note: if the there is no subwidget of this class, does not # cause any error. # if {$args eq ""} { return $sub } else { foreach des $sub { eval [linsert $args 0 $des] } return "" } } -group { set name [lindex $args 0] set args [lrange $args 1 end] # access subwidgets of a particular group # if {[info exists data(g:$name)]} { if {$args eq ""} { set ret "" foreach item $data(g:$name) { lappend ret $w.$item } return $ret } else { foreach item $data(g:$name) { eval [linsert $args 0 $w.$item] } return "" } } else { error "no such subwidget group $name" } } -all { set sub [tixDescendants $w] if {$args eq ""} { return $sub } else { foreach des $sub { eval [linsert $args 0 $des] } return "" } } default { error "unknown flag $type, should be -all, -class or -group" } } } #---------------------------------------------------------------------- # PublicMethod: subwidget # # Access a subwidget withe a particular name # # Override: never # Chain : never # # This is implemented in native C code in tixClass.c # proc tixPrimitive:subwidget {w name args} { upvar #0 $w data if {[info exists data(w:$name)]} { if {$args eq ""} { return $data(w:$name) } else { return [eval [linsert $args 0 $data(w:$name)]] } } else { error "no such subwidget $name" } } #---------------------------------------------------------------------- # PrivateMethods: #---------------------------------------------------------------------- # delete the widget record and remove the command # proc tixPrimitive:Destructor {w} { upvar #0 $w data if {![info exists data(w:root)]} { return } if {[llength [info commands $w]]} { # remove the command rename $w "" } if {[llength [info commands $data(rootCmd)]]} { # remove the command of the root widget rename $data(rootCmd) "" } # delete the widget record catch {unset data} } Tix8.4.3/pref/12Point.fsc 0000644 00000003775 15231152137 0010604 0 ustar 00 # # $Id: 12Point.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixPref:InitFontSet:12Point {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Serif" set fixedfont "Courier New" } unix { set font "helvetica" set fixedfont "courier" } set tixOption(font) [list $font -12] set tixOption(bold_font) [list $font -12 bold] set tixOption(menu_font) [list $font -12] set tixOption(italic_font) [list $font -12 bold italic] set tixOption(fixed_font) [list $fixedfont -12] set tixOption(border1) 1 } proc tixPref:SetFontSet:12Point {} { global tixOption option add *Font $tixOption(font) $tixOption(prioLevel) option add *font $tixOption(font) $tixOption(prioLevel) option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel) option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel) option add *Label.font $tixOption(bold_font) $tixOption(prioLevel) option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel) option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel) option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel) option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel) option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel) option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel) } Tix8.4.3/pref/TK.cs 0000644 00000002000 15231152137 0007474 0 ustar 00 # # $Id: TK.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) #d9d9d9 set tixOption(fg) black set tixOption(dark1_bg) #c3c3c3 set tixOption(dark1_fg) black set tixOption(dark2_bg) #a3a3a3 set tixOption(dark2_fg) black set tixOption(inactive_bg) #a3a3a3 set tixOption(inactive_fg) black set tixOption(light1_bg) #ececec set tixOption(light1_fg) white set tixOption(light2_bg) #fcfcfc set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) #d9d9d9 set tixOption(input2_bg) #d9d9d9 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) #c3c3c3 set tixOption(selector) #b03060 } Tix8.4.3/pref/14Point.fs 0000644 00000001177 15231152137 0010435 0 ustar 00 # # $Id: 14Point.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Serif" set fixedfont "Courier New" } unix { set font "helvetica" set fixedfont "courier" } set tixOption(font) [list $font -14] set tixOption(bold_font) [list $font -14 bold] set tixOption(menu_font) [list $font -14] set tixOption(italic_font) [list $font -14 bold italic] set tixOption(fixed_font) [list $fixedfont -14] set tixOption(border1) 1 } Tix8.4.3/pref/WmDefault.py 0000644 00000006655 15231152137 0011115 0 ustar 00 # -*- mode: python; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WmDefault.py,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # """One of the bad things about Tk/Tkinter is that it does not pick up the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows window manager scheme. One of the good things about Tk/Tkinter is that it is not tied to one particular widget set so it could pick up the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows window manager scheme. The WmDefault package is for making Tk/Tkinter applications use the prevailing CDE/KDE/GNOME/Windows scheme. It tries to find the files and/or settings that the current window manager is using, and then sets the Tk options database accordingly. Download the latest version of wm_default from http://tix.sourceforge.net either as a part of the standard Tix distribution, or as a part of the Tix Applications: http://tix.sourceforge.net/Tide. wm_default does not require Tix, but is Tix enabled. """ import os, sys, traceback, string import tkMessageBox def setup(root, wm=''): """1) find the files and/or settings (::wm_default::setup). Takes one optional argument: wm, the name of the window manager as a string, if known. One of: windows gnome kde1 kde2 cde kde. """ try: try: # Make sure Tcl/Tk knows wm_default is installed root.tk.eval("package require wm_default") except: # Try again with this directory on the Tcl/Tk path dir = os.path.dirname (self.__file__) root.tk.eval('global auto_path; lappend auto_path {%s}' % dir) root.tk.eval("package require wm_default") except: t, v, tb = sys.exc_info() text = "Error loading WmDefault\n" for line in traceback.format_exception(t,v,tb): text = text + line + '\n' try: tkMessageBox.showerror ('WmDefault Error', text) except: sys.stderr.write( text ) return root.tk.call('::wm_default::setup', wm) def addoptions(root, cnf=None, **kw): """2) Setting the Tk options database (::wm_default::addoptions). You can override the settings in 1) by adding your values to the call to addoptions(). """ if cnf is None: return root.tk.splitlist(root.tk.call('::wm_default::addoptions')) return root.tk.splitlist( apply(root.tk.call, ('::wm_default::addoptions',) + root._options(cnf,kw))) def getoptions(root): """Returns the current settings, as a dictionary. """ words = root.tk.splitlist(root.tk.call('::wm_default::getoptions')) dict = {} for i in range(0, len(words), 2): key = words[i] value = words[i+1] dict[key] = value return dict def parray(root): """Returns a string of the current settings, one value-pair per line. """ return root.tk.call('::wm_default::parray') if __name__ == "__main__": dir = "" if len(sys.argv) > 0: # Assume the name of the file containing the tixinspect Tcl source # is the same as argument on the command line with .tcl dir = os.path.dirname(sys.argv[0]) if not dir or not os.path.isdir(dir) or not os.path.isabs(dir): # Or, assume it's in the same directory as this one: dir = os.getcwd() import Tkinter root = Tkinter.Tk() setup(root) addoptions(root, {'foreground': 'red'}) retval = getoptions(root) print retval Tix8.4.3/pref/TK.fs 0000644 00000000772 15231152137 0007515 0 ustar 00 # # $Id: TK.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption set tixOption(font) -Adobe-Helvetica-Medium-R-Normal--*-120-* set tixOption(bold_font) -Adobe-Helvetica-Bold-R-Normal--*-120-* set tixOption(menu_font) -Adobe-Helvetica-Bold-R-Normal--*-120-* set tixOption(italic_font) -Adobe-Helvetica-Bold-O-Normal--*-120-* set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-* set tixOption(border1) 1 } Tix8.4.3/pref/SGIGray.csc 0000644 00000054011 15231152137 0010577 0 ustar 00 # # $Id: SGIGray.csc,v 1.2 2000/10/12 02:00:00 idiscovery Exp $ # proc tixPref:SetScheme-Color:SGIGray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray set tixOption(dark1_fg) black set tixOption(dark2_bg) gray50 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray50 set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray35 set tixOption(input1_bg) rosybrown set tixOption(input2_bg) rosybrown set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:SGIGray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } Tix8.4.3/pref/12Point.fs 0000644 00000001200 15231152137 0010416 0 ustar 00 # # $Id: 12Point.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Serif" set fixedfont "Courier New" } unix { set font "helvetica" set fixedfont "courier" } set tixOption(font) [list $font -12] set tixOption(bold_font) [list $font -12 bold] set tixOption(menu_font) [list $font -12] set tixOption(italic_font) [list $font -12 bold italic] set tixOption(fixed_font) [list $fixedfont -12] set tixOption(border1) 1 } Tix8.4.3/pref/TkWin.cs 0000644 00000004306 15231152137 0010225 0 ustar 00 # # $Id: TkWin.cs,v 1.1 2000/10/12 01:41:04 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) SystemButtonFace set tixOption(fg) SystemButtonText set tixOption(dark1_bg) SystemScrollbar set tixOption(dark1_fg) SystemButtonText # set tixOption(dark2_bg) SystemDisabledText # set tixOption(dark2_fg) black set tixOption(inactive_bg) SystemButtonFace set tixOption(inactive_fg) SystemButtonText set tixOption(light1_bg) SystemButtonFace # set tixOption(light1_fg) white # set tixOption(light2_bg) #fcfcfc # set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) SystemDisabledText set tixOption(input1_bg) SystemWindow # set tixOption(input2_bg) # set tixOption(output1_bg) $tixOption(dark1_bg) # set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) SystemHighlightText set tixOption(select_bg) SystemHighlight set tixOption(selector) SystemHighlight } proc tixSetScheme-Mono {} { global tixOption set tixOption(bg) SystemButtonFace set tixOption(fg) SystemButtonText set tixOption(dark1_bg) SystemScrollbar set tixOption(dark1_fg) SystemButtonText # set tixOption(dark2_bg) SystemDisabledText # set tixOption(dark2_fg) black set tixOption(inactive_bg) SystemButtonFace set tixOption(inactive_fg) SystemButtonText set tixOption(light1_bg) SystemButtonFace # set tixOption(light1_fg) white # set tixOption(light2_bg) #fcfcfc # set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) SystemDisabledText set tixOption(input1_bg) white # set tixOption(input2_bg) # set tixOption(output1_bg) $tixOption(dark1_bg) # set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) SystemHighlightText set tixOption(select_bg) SystemHighlight set tixOption(selector) SystemHighlight } Tix8.4.3/pref/10Point.fsc 0000644 00000003776 15231152137 0010603 0 ustar 00 # # $Id: 10Point.fsc,v 1.2 2002/01/24 09:17:02 idiscovery Exp $ # proc tixPref:InitFontSet:10Point {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Sherif" set fixedfont "Courier New" } unix { set font "helvetica" set fixedfont "courier" } set tixOption(font) [list $font -10] set tixOption(bold_font) [list $font -10 bold] set tixOption(menu_font) [list $font -10] set tixOption(italic_font) [list $font -10 bold italic] set tixOption(fixed_font) [list $fixedfont -10] set tixOption(border1) 1 } proc tixPref:SetFontSet:10Point {} { global tixOption option add *Font $tixOption(font) $tixOption(prioLevel) option add *font $tixOption(font) $tixOption(prioLevel) option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel) option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel) option add *Label.font $tixOption(bold_font) $tixOption(prioLevel) option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel) option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel) option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel) option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel) option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel) option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel) } Tix8.4.3/pref/Gray.cs 0000644 00000002025 15231152137 0010067 0 ustar 00 # # $Id: Gray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray set tixOption(dark1_fg) black set tixOption(dark2_bg) gray50 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray50 set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(dark1_bg) set tixOption(input2_bg) $tixOption(bg) set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow } Tix8.4.3/pref/SGIGray.cs 0000644 00000002002 15231152137 0010425 0 ustar 00 # # $Id: SGIGray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray set tixOption(dark1_fg) black set tixOption(dark2_bg) gray50 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray50 set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray35 set tixOption(input1_bg) rosybrown set tixOption(input2_bg) rosybrown set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow } Tix8.4.3/pref/WmDefault.tcl 0000755 00000102065 15231152137 0011242 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # # $Id: WmDefault.tcl,v 1.7 2008/03/17 22:47:00 hobbs Exp $ # # Description: Package for making Tk apps use the CDE/KDE/Gnome/Windows scheme # Prefix: wm_default:: # Url: http://tix.sourceforge.net/Tixapps/ # # Usage: # It should be sufficient at the beginning of a wish app to simply: # # package require wm_default # wm_default::setup # wm_default::addoptions # # wm_default::setup takes an optional argument - the scheme if already # known, one of: windows gnome kde1 kde2 cde kde # wm_default::addoptions takes optional arguments - pairs of variables # and values to override the kde settings. e.g. # wm_default::addoptions -background blue # # Description: # package for making Tk apps look nice under CDE or KDE or Windows # # The stuff below attempts to use the options database and the # various files under ~/.dt, $DTHOME, and /usr/dt to figure out # the user's current font and color set. It then uses tk's # palette routines to set sensible defaults, and then override # some of the options to try to make them look like CDE. # # There really *must* be an easier way to get text background # colors and the radiobutton highlight colors out of the # options database or winfo atom... Unfortunately, I can't # figure out how... # This package is based on the cde package by D. J. Hagberg, Jr.: # dhagberg@glatmos.com ######################################################################## # # # Copyright 1998 D. J. Hagberg, Jr. and Global Atmospherics, Inc. # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, provided # that the above copyright notice appear in all copies. # D. J. Hagberg, Jr. and Global Atmospherics, Inc. make no representations # about the suitability of this software for any It is provided "as is" # without express or implied warranty. By use of this software the user # agrees to indemnify and hold harmless D. J. Hagberg, Jr. and Global # Atmospherics, Inc. from any claims or liability for loss arising out # of such use. ######################################################################## package require Tk proc tixDetermineWM {} { # Returns one of cde kde1 kde2 gnome windows or "" global tcl_platform env set type "" if {$tcl_platform(platform) eq "windows"} { set type windows } else { # The most definitive way is to check the X atoms # I'm not sure if we can determine this using regular Tk wm calls # I don't want to intern these symbols if they're not there. if {![catch {exec xlsatoms} xatoms]} { if {[string match *GNOME_SESSION_CORBA_COOKIE* $xatoms]} { set type gnome } elseif {[string match *KDEChangeStyle* $xatoms]} { set type kde1 } elseif {[string match *KDE_DESKTOP_WINDOW* $xatoms]} { set type kde2 } } if {$type != ""} { # drop through } elseif {[info exists env(KDEDIR)] && [file isdir $env(KDEDIR)]} { # one or two? set type kde2 } elseif {[info exists env(DTHOME)] && [file isdir $env(DTHOME)]} { set type cde } else { # Maybe look for other Unix window managers? # if {[file isfile $env(HOME)/.fwm2rc]} {} # if {[file isfile $env(HOME)/.fwmrc]} {} # if {[file isfile $env(HOME)/.twmrc]} {} # But twm and fwm don't color applications; mwm maybe? # Hope someone comes up with the code for openlook :-) return "" } } return $type } namespace eval ::wm_default { global tcl_platform env set _usetix [llength [info commands "tix"]] variable wm "" variable _frame_widgets {*Frame *Toplevel} #what about tixGrid? if {$_usetix} { lappend _frame_widgets *TixLabelFrame *TixButtonBox *TixCObjView \ *TixListNoteBook *TixPanedWindow *TixStdButtonBox \ *TixExFileSelectBox } variable _menu_font_widgets {*Menu *Menubutton} if {$_usetix} {lappend _menu_font_widgets *TixMenu} variable _button_font_widgets {*Button} variable _system_font_widgets {*Label \ *Message \ *Scale *Radiobutton *Checkbutton } if {$_usetix} { lappend _system_font_widgets \ *TixBalloon*message *TixLabelFrame*Label \ *TixControl*label *TixControl*Label \ *TixLabelEntry*label *TixNoteBook.nbframe \ *TixFileEntry*label *TixComboBox*label \ *TixOptionMenu*menubutton *TixBitmapButton*label \ *TixMwmClient*title *TixFileSelectBox*Label } variable _text_type_widgets {*Canvas *Entry *Listbox *Text} if {$_usetix} { lappend _text_type_widgets \ *TixComboBox*Entry *TixControl*entry *TixScrolledHList*hlist \ *TixDirTree*hlist *TixDirList*hlist *TixTree*hlist \ *TixMultiList*Listbox *TixScrolledListBox*listbox \ *TixFileEntry*Entry *TixLabelEntry*Entry \ *TixFileEntry*entry *TixLabelEntry*entry \ *TixScrolledTList*tlist *TixScrolledText*text \ *TixHList *TixCheckList*hlist # These arent working yet lappend _text_type_widgets \ *TixDirTree*f1 *TixDirList*f1 \ *TixFileSelectBox*file*listbox \ *TixFileSelectBox*directory*listbox \ *TixExFileSelectBox*filelist*listbox } variable _insert_type_widgets {*Entry *Text} if {$_usetix} { lappend _insert_type_widgets \ *TixControl*entry *TixComboBox*Entry } variable _select_type_widgets {*Checkbutton \ *Radiobutton \ *Menu} variable _active_borderwidth_widgets {*Button *Radiobutton *Checkbutton} # Other Widgets that are given a borderwidth of $wm_default::borderwidth variable _nonzero_borderwidth_widgets {} # Widgets that are given a borderwidth of 0 # must not be *Entry variable _null_borderwidth_widgets {*Menubutton *Label} variable _scrollbar_widgets {} variable _scrollbar_widgets {*Scrollbar} if {$_usetix} { lappend _scrollbar_widgets \ *TixTree*Scrollbar *TixDirTree*Scrollbar *TixDirList*Scrollbar \ *TixScrolledTList*Scrollbar *TixScrolledListBox*Scrollbar \ *TixScrolledHList*Scrollbar *TixMultiView*Scrollbar \ *TixScrolledText*Scrollbar *TixScrolledWindow*Scrollbar \ *TixCObjView*Scrollbar } proc debug {str} { if {[llength [info commands "tix"]] && [string is true -strict [tix cget -debug]]} { puts $str } } # Return the array of what we have deduced proc getoptions {} { set retval {} set len [string length "::wm_default::"] foreach variable [lsort [info vars ::wm_default::*]] { if {[string match ::wm_default::_* $variable]} {continue} set key [string range $variable $len end] lappend retval $key [set $variable] } return $retval } # Print out the array of what we have deduced proc parray {} { set retval "" foreach {key val} [::wm_default::getoptions] { append retval [join [list $key $val]] "\n" } debug $retval return $retval } # Pick a default borderwidth in pixels set _bd 2 # Pick a default font size in pixels set _screenheight [winfo screenheight .] if {$_screenheight < 500} { # for 800x600 or smaller set _pixel 10 set _point 8 # Pick a default borderwidth which smaller set _bd 1 } elseif {$_screenheight < 800} { # for 1024x768 set _pixel 12 set _point 8 } elseif {$_screenheight < 1100} { # for 1200x1000 set _pixel 12 set _point 8 } else { set _pixel 12 set _point 10 } # setup defaults depending on the OS and Window Manager # Really should do another version for mono if {$tcl_platform(platform) eq "windows"} { if {$tcl_platform(osVersion) < 5} { set _prop_default "MS Sans Serif" } else { set _prop_default "Tahoma" } # make sure this font is installed set _allowed [string tolow [font families]] foreach font [list $_prop_default "MS Sans Serif" Tahoma Arial System] { if {[lsearch -exact $_allowed [string tolow $font]] > -1} { set _prop_default $font break } } set _fixed_default {Courier New} # make sure this font is installed foreach font [list $_fixed_default Courier System] { if {[lsearch -exact $_allowed [string tolow $font]] > -1} { set _fixed_default $font break } } # Windows colors: # "3dDarkShadow", COLOR_3DDKSHADOW, # "3dLight", COLOR_3DLIGHT, # "ActiveBorder", COLOR_ACTIVEBORDER, # "ActiveCaption", COLOR_ACTIVECAPTION, # "AppWorkspace", COLOR_APPWORKSPACE, # "Background", COLOR_BACKGROUND, # "ButtonFace", COLOR_BTNFACE, # "ButtonHighlight", COLOR_BTNHIGHLIGHT, # "ButtonShadow", COLOR_BTNSHADOW, # "ButtonText", COLOR_BTNTEXT, # "CaptionText", COLOR_CAPTIONTEXT, # "DisabledText", COLOR_GRAYTEXT, # "GrayText", COLOR_GRAYTEXT, # "Highlight", COLOR_HIGHLIGHT, # "HighlightText", COLOR_HIGHLIGHTTEXT, # "InactiveBorder", COLOR_INACTIVEBORDER, # "InactiveCaption", COLOR_INACTIVECAPTION, # "InactiveCaptionText", COLOR_INACTIVECAPTIONTEXT, # "InfoBackground", COLOR_INFOBK, # "InfoText", COLOR_INFOTEXT, # "Menu", COLOR_MENU, # "MenuText", COLOR_MENUTEXT, # "Scrollbar", COLOR_SCROLLBAR, # "Window", COLOR_WINDOW, # "WindowFrame", COLOR_WINDOWFRAME, # "WindowText", COLOR_WINDOWTEXT, variable \ background "SystemButtonFace" \ foreground "SystemButtonText" \ disabledforeground "SystemDisabledText" \ disabledbackground "SystemButtonShadow" \ textfamily $_prop_default \ systemfamily $_prop_default \ menufamily $_prop_default \ fixedfamily $_fixed_default \ fontsize $_point \ textbackground "SystemWindow" \ textforeground "SystemWindowText" \ disabledtextbackground "SystemDisabledText" \ selectbackground "SystemHighlight" \ selectforeground "SystemHighlightText" \ selectcolor "SystemWindow" \ highlightcolor "SystemWindowFrame" \ highlightbackground "SystemButtonFace" \ scrollbars "SystemScrollbar" \ borderwidth $_bd \ menubackground "SystemMenu" \ menuforeground "SystemMenuText" variable highlightthickness 1 # Windows does not have an activebackground, but Tk does variable activebackground $background variable activeforeground $foreground } else { # intended for Unix # Tk uses the following defaults: #define NORMAL_BG "#d9d9d9" #define ACTIVE_BG "#ececec" #define SELECT_BG "#c3c3c3" #define TROUGH "#c3c3c3" #define INDICATOR "#b03060" #define DISABLED "#a3a3a3" # We know . exists and it has a background # This should be "#d9d9d9" under default Tk set _bg [. cget -background] set _prop_default helvetica # make sure this font is installed set _allowed [string tolow [font families]] foreach font [list $_prop_default times fixed] { if {[lsearch -exact $_allowed [string tolow $font]] > -1} { set _prop_default $font break } } set _fixed_default courier # make sure this font is installed foreach font [list $_fixed_default fixed] { if {[lsearch -exact $_allowed [string tolow $font]] > -1} { set _fixed_default $font break } } variable \ background $_bg \ foreground Black \ disabledforeground #808080 \ disabledbackground #a3a3a3 \ textfamily $_prop_default \ systemfamily $_prop_default \ menufamily $_prop_default \ fixedfamily $_fixed_default \ fontsize $_pixel \ textbackground white \ textforeground Black \ disabledtextbackground $_bg \ selectbackground #000080 \ selectforeground white \ selectcolor yellow \ highlightcolor Black \ highlightbackground $_bg \ scrollbars "#c3c3c3" \ borderwidth $_bd \ menubackground $_bg \ menuforeground Black variable highlightthickness 1 # Windows does not have an activebackground, but Tk does variable activebackground "#ececec" variable activeforeground $foreground } # priority should be userDefault? if {$_usetix} { variable priority [tix cget -schemepriority] } else { variable priority 75 } # variables that will be derived during addoptions - set to null for now variable system_font {} variable menu_font {} variable fixed_font {} variable text_font {} # Different desktops have different visible regions # This is not working properly yet. variable geometry 0+0+[winfo screenwidth .]+$_screenheight # Different desktops have different focusmodels: clicktofocus or # followsmouse This is not working properly yet variable focusmodel clicktofocus # Some desktops have standardized link colors # This is not working properly yet variable linkcolor "#0000ff" vlinkcolor "#800000" alinkcolor "#800080" proc default {args} { # Override the defaults with any optional arguments foreach {var val} $args { set $var $val } } proc setup {{type ""}} { # type is one of the recognized window managers # one of: cde kde win global tcl_platform env if {$type == ""} { if {[set type [::tixDetermineWM]] == ""} { set ::wm_default::wm "" # Generic unix return } } setup-$type set ::wm_default::wm $type # todo - make the menubutton enter and leave events more compatible } proc setup-windows {args} { # Already done by Tk above. # Should find out the useable window region } proc setup-gnome {args} { # GNOME is still barely supported because of the difficulty # of finding and parsing sawfish definition files. # First you have to find what window manager, then what theme, # then find the files, then parse them according to each Wm's syntax. global env set bg $wm_default::background set fg $wm_default::foreground set txtFont $wm_default::textfamily set btnFont $wm_default::systemfamily debug "Setting up Gnome environment" set file ~/.gnome/theme-switcher-capplet if {![file exists $file] || \ [catch {open $file} fd] || $fd == ""} { debug "Skipping $file" } else { debug "Reading $file" set contents [read $fd] catch {close $fd} if {![regexp -- "use_theme_font=true" $contents]} { # not activated } elseif {[regexp -- "\nfont=(\[-a-zA-Z0-9,\]+)" $contents \ foo font]} { set_unix_font $font } } } proc set_unix_font {font} { set list [split $font "-"] set font [lindex $list 2] set font [string tolow $font] if {$font != "" && [lsearch -exact [font families] $font] > -1} { set wm_default::textfamily $font debug "Setting textfamily to $font" set wm_default::systemfamily $font set wm_default::menufamily $font } else { debug "Unable to set font: '$list'" } if {[set size [lindex $list 7]] != "" && \ [string is integer -strict $size]} { debug "Setting fontsize to '$size'" set wm_default::fontsize $size } elseif {[set size [lindex $list 8]] != "" && \ [string is integer -strict $size]} { if {$size > 100} {set size [expr {$size / 10}]} debug "Setting fontsize to '$size'" set wm_default::fontsize $size } else { debug "Unable to set fontsize: '$list'" } } # Common to KDE1 and KDE2 proc setup-kde {args} { global env set file ~/.kderc if {![file exists $file] || [catch {open $file} fd] || $fd == ""} { debug "Skipping $file" } else { debug "Reading $file" set contents [read $fd] catch {close $fd} if {[regexp -- "\nfixedfamily=(\[-a-zA-Z0-9, \]+)" $contents \ foo font]} { set list [split $font ","] set font [lindex $list 0] set wm_default::fixedfamily $font debug "Setting fixedfamily to $font" } if {[regexp -- "\nfont=(\[-a-zA-Z0-9, \]+)" $contents \ foo font]} { set list [split $font ","] set font [lindex $list 0] set wm_default::textfamily $font debug "Setting textfamily to $font" set wm_default::systemfamily $font set wm_default::menufamily $font } } } proc setup-kde1 {args} { # Shortcut for the moment return [eval setup-kde $args] } proc set-kde2-color {str contents var} { if {[regexp -- "\n${str}=(\[0-9,\]+)" $contents -> color]} { set color [eval [list format "#%02x%02x%02x"] [split $color ","]] set ::wm_default::$var $color debug "setting $var to $color" } } proc setup-kde2 {args} { global env set bg $wm_default::background set fg $wm_default::foreground set txtFont $wm_default::textfamily set btnFont $wm_default::systemfamily debug "Setting up KDE environment" # Look for system the user settings set dirs ~/.kde if {[info exists env(KDEDIR)] && [file isdir $env(KDEDIR)]} { lappend dirs $env(KDEDIR) } # read them sequentially and overwrite the previous values foreach dir $dirs { set file $dir/share/config/kdeglobals if {![file exists $file] || [catch {open $file} fd] || $fd == ""} { debug "Skipping $file" } else { debug "Reading $file" set contents [read $fd] catch {close $fd} set-kde2-color background $contents background set-kde2-color foreground $contents foreground set-kde2-color selectBackground $contents selectbackground set-kde2-color selectForeground $contents selectforeground set-kde2-color windowBackground $contents textbackground set-kde2-color visitedLinkColor $contents vlinkcolor set-kde2-color linkColor $contents linkcolor if {[regexp -- "\nactiveFont=(\[-a-zA-Z0-9, \]+)" $contents \ foo font]} { set list [split $font ","] set font [lindex $list 0] set wm_default::textfamily $font set size [lindex $list 1] if {[string is integer -strict $size]} { set wm_default::fontsize $size } debug "Setting textfamily to $font" set wm_default::systemfamily $font set wm_default::menufamily $font } } # should pick up visitedLinkColor set file $dir/share/config/kwmrc if {![file exists $file] || [catch {open $file} fd] || $fd == ""} { debug "Skipping $file" } else { debug "Reading $file" set contents [read $fd] catch {close $fd} if {[regexp -- "\nDesktop1Region=(\[0-9+\]+)" $contents \ foo region]} { set wm_default::geometry $region debug "Setting geometry to $region" } if {[regexp -- "\nFocusPolicy=ClickToFocus" $contents \ foo region]} { set wm_default::focusmodel clicktofocus debug "Setting focusmodel to clicktofocus" } else { # followsmouse } } } return [eval setup-kde $args] } proc setup-cde {args} { namespace import wm_default::* set bg $wm_default::background set fg $wm_default::foreground set txtFont $wm_default::textfamily set sysFont $wm_default::systemfamily debug "Setting up CDE environment" # if any of these options are missing, we must not be under CDE set txtFont [option get . textfamilyList textfamilyList] set sysFont [option get . systemfamilyList systemfamilyList] if {$txtFont ne "" && $sysFont ne ""} { set txtFont [lindex [split $txtFont :] 0] set sysFont [lindex [split $sysFont :] 0] if {$txtFont ne ""} {set textfamily $txtFont} if {$sysFont ne ""} {set systemfamily $sysFont} # # If we can find the user's dt.resources file, we can find out the # palette and text background/foreground colors # set txtBg $bg set txtFg $fg set selFg $selectforeground set selBg $selectbackground set selCol $selectcolor set fh "" set palf "" set cur_rsrc ~/.dt/sessions/current/dt.resources set hom_rsrc ~/.dt/sessions/home/dt.resources if {[file readable $cur_rsrc] && [file readable $hom_rsrc]} { if {[file mtime $cur_rsrc] > [file mtime $hom_rsrc]} { if {[catch {open $cur_rsrc r} fh]} {set fh ""} } else { if {[catch {open $hom_rsrc r} fh]} {set fh ""} } } elseif {[file readable $cur_rsrc]} { if {[catch {open $cur_rsrc r} fh]} {set fh ""} } elseif {[file readable $hom_rsrc]} { if {[catch {open $hom_rsrc r} fh]} {set fh ""} } if {[string length $fh] > 0} { while {[gets $fh ln] != -1} { regexp -- "^\\*0\\*ColorPalette:\[ \t]*(.*)\$" $ln nil palf regexp -- "^Window.Color.Background:\[ \t]*(.*)\$" $ln nil txtBg regexp -- "^Window.Color.Foreground:\[ \t]*(.*)\$" $ln nil txtFg } catch {close $fh} if {$txtBg ne $bg} { set selBg $txtFg set selFg $txtBg } } # # If the *0*ColorPalette setting was found above, try to find the # indicated file in ~/.dt, $DTHOME, or /usr/dt. The 3rd line in the # file will be the radiobutton/checkbutton selectColor. # if {[string length $palf]} { set dtdir /usr/dt if [info exists env(DTHOME)] { set dtdir $env(DTHOME) } if {[file readable ~/.dt/palettes/$palf]} { set palf ~/.dt/palettes/$palf } elseif {[file readable $dtdir/palettes/$palf]} { set palf $dtdir/palettes/$palf } else { set palf "" } if {[string length $palf]} { if {![catch {open $palf r} fh]} { # selectColor will be the 3rd line in the file -- set ln ""; catch {gets $fh; gets $fh; gets $fh ln} set ln [string trim $ln] if {[string length $ln]} {set selCol $ln} close $fh } } } set wm_default::background $bg set wm_default::foreground $fg set wm_default::textfamily $txtFont set wm_default::systemfamily $sysFont set wm_default::menufamily $sysFont set wm_default::textbackground $txtBg set wm_default::textforeground $txtFg set wm_default::selectbackground $selBg set wm_default::selectforeground $selFg set wm_default::selectcolor $selCol } } proc derivefonts {} { global tcl_platform env # variables that will be derived variable system_font variable menu_font variable fixed_font variable text_font # # Set default fonts # global tcl_platform env switch -exact -- $tcl_platform(platform) windows { set system_font [list $::wm_default::systemfamily $::wm_default::fontsize] set menu_font [list $::wm_default::menufamily $::wm_default::fontsize] set text_font [list $::wm_default::textfamily $::wm_default::fontsize] set fixed_font [list $::wm_default::fixedfamily $::wm_default::fontsize] } default { set system_font [list $::wm_default::systemfamily -$::wm_default::fontsize] if {[set type $::wm_default::wm] == ""} { # Generic unix # some Unix Wms seem to make Menu fonts bold - ugly IMHO set menu_font [list $::wm_default::menufamily -$::wm_default::fontsize bold] } else { # gnome kde1 kde2 cde kde don't set menu_font [list $::wm_default::menufamily -$::wm_default::fontsize] } set text_font [list $::wm_default::textfamily -$::wm_default::fontsize] set fixed_font [list $::wm_default::fixedfamily -$::wm_default::fontsize] } } proc addoptions {args} { global tcl_platform env tix_version # variables that will be derived variable system_font variable menu_font variable fixed_font variable text_font if {[info commands "tix"] != ""} {set _usetix 1} {set _usetix 0} # Override what you have found with any optional arguments foreach {var val} $args { set var [string trimleft $var "-"] set ::wm_default::$var $val } set pri $::wm_default::priority # If you are running under Tix, set the colorscheme now # The options below will then override the Tix settings if {$_usetix} { # Tix's focus model is very non-standard bind TixComboBox <FocusIn> "" bind TixComboBox <FocusOut> "" if {$tix_version < "8.2"} { # works?? option add *TixNoteBook.nbframe.inactiveBackground \ $::wm_default::disabledbackground $pri } else { # works?? option add *TixNoteBook.nbframe.inactiveBackground \ $::wm_default::background $pri } # works?? option add *TixPanedWindow.seperatorBg \ $::wm_default::disabledbackground $pri option add *TixPanedWindow.handleBg \ $::wm_default::disabledbackground $pri # works?? option add *TixPanedWindow.separatorActiveBg \ $::wm_default::activebackground $pri option add *TixPanedWindow.handleActiveBg \ $::wm_default::activebackground $pri option add *TixPanedWindow.Background \ $::wm_default::disabledbackground $pri # works?? option add *TixResizeHandle*background \ $::wm_default::disabledbackground $pri } foreach pref $wm_default::_frame_widgets { option add $pref.background $::wm_default::background $pri } option add *Background $::wm_default::background $pri derivefonts # Set the global defaults to the system font foreach pref [list *Font *font] { option add $pref $system_font $pri } # Set the "system" type defaults to the system font foreach pref $wm_default::_menu_font_widgets { option add $pref.font $menu_font $pri } foreach pref $wm_default::_button_font_widgets { option add $pref.font $system_font $pri option add $pref.disabledForeground $::wm_default::disabledforeground $pri option add $pref.background $::wm_default::background $pri option add $pref.foreground $::wm_default::foreground $pri option add $pref.highlightBackground $::wm_default::highlightbackground $pri } foreach pref $wm_default::_system_font_widgets { option add $pref.font $system_font $pri option add $pref.background $::wm_default::background $pri option add $pref.foreground $::wm_default::foreground $pri option add $pref.highlightBackground $::wm_default::highlightbackground $pri } foreach pref $wm_default::_text_type_widgets { option add $pref.font $text_font $pri option add $pref.relief sunken $pri option add $pref.borderWidth $::wm_default::borderwidth $pri option add $pref.background $::wm_default::textbackground $pri option add $pref.foreground $::wm_default::textforeground $pri option add $pref.selectBackground $::wm_default::selectbackground $pri option add $pref.selectForeground $::wm_default::selectforeground $pri option add $pref.highlightThickness $::wm_default::highlightthickness $pri option add $pref.disabledBackground $::wm_default::disabledtextbackground $pri } foreach pref $wm_default::_insert_type_widgets { option add $pref.relief sunken $pri option add $pref.insertBackground $::wm_default::textforeground $pri option add $pref.highlightThickness $::wm_default::highlightthickness $pri } # # Set the Selector color for radiobuttons, checkbuttons, et. al # foreach pref $wm_default::_select_type_widgets { option add $pref.selectColor $::wm_default::selectcolor $pri option add $pref.background $::wm_default::background $pri option add $pref.foreground $::wm_default::foreground $pri option add $pref.activeBackground $::wm_default::activebackground $pri option add $pref.activeForeground $::wm_default::activeforeground $pri } # Set the "active" defaults - this could be controversial foreach pref $wm_default::_menu_font_widgets { option add $pref.activeBackground $::wm_default::activebackground $pri option add $pref.activeForeground $::wm_default::activeforeground $pri option add $pref.background $::wm_default::background $pri option add $pref.foreground $::wm_default::foreground $pri option add $pref.disabledForeground $::wm_default::disabledforeground $pri option add $pref.highlightThickness $::wm_default::highlightthickness $pri } switch -exact -- $tcl_platform(platform) windows { # Make sure this is set to foreground - check marks on menus set _menu_select_color $::wm_default::foreground } default { # On unix there are recessed check boxes not check marks set _menu_select_color $::wm_default::selectcolor } option add *Menu.selectColor $_menu_select_color $pri if {$_usetix} { option add *TixMenu.selectColor $_menu_select_color $pri option add *TixBalloon*message.background $::wm_default::textbackground $pri } # Windows does not have an activebackground, but Tk does foreach pref $wm_default::_button_font_widgets { option add $pref.activeBackground $::wm_default::activebackground $pri option add $pref.activeForeground $::wm_default::activeforeground $pri } # # Set the default *button borderwidth # # option add *.borderWidth $::wm_default::borderwidth $pri foreach pref $wm_default::_active_borderwidth_widgets { option add $pref.activeBorderWidth $::wm_default::borderwidth $pri option add $pref.borderWidth $::wm_default::borderwidth $pri } foreach pref $wm_default::_nonzero_borderwidth_widgets { option add $pref.borderWidth $::wm_default::borderwidth $pri } foreach pref $wm_default::_null_borderwidth_widgets { option add $pref.borderWidth 0 $pri } if {$_usetix} { if {$tix_version < "8.2"} { option add *TixNoteBook.nbframe.inactiveBackground \ $::wm_default::disabledbackground $pri option add *TixNoteBook*nbframe.inactiveBackground \ $::wm_default::disabledbackground $pri } else { option add *TixNoteBook.nbframe.inactiveBackground \ $::wm_default::background $pri option add *TixNoteBook*nbframe.inactiveBackground \ $::wm_default::background $pri } } foreach pref $wm_default::_scrollbar_widgets { option add $pref.background $::wm_default::background $pri option add $pref.foreground $::wm_default::foreground $pri # Tix 8.1.1 had these wrong option add $pref.troughColor $::wm_default::scrollbars $pri option add $pref.borderWidth $::wm_default::borderwidth $pri } option add *Scale.borderWidth $::wm_default::borderwidth $pri option add *Scale.troughColor $::wm_default::scrollbars $pri option add *highlightColor $::wm_default::highlightcolor $pri option add *highlightBackground $::wm_default::highlightbackground $pri option add *HighlightBackground $::wm_default::highlightbackground $pri # not _system_font_widgets set _focus_widgets [concat \ $::wm_default::_frame_widgets \ $::wm_default::_menu_font_widgets \ $::wm_default::_text_type_widgets \ $::wm_default::_insert_type_widgets \ $::wm_default::_select_type_widgets \ $::wm_default::_active_borderwidth_widgets \ $::wm_default::_nonzero_borderwidth_widgets \ $::wm_default::_null_borderwidth_widgets ] if {$_usetix} { set _tix_hl_widgets [list *TixBitmapButton*label \ *TixComboBox*Entry \ *TixControl*entry \ *TixDirList*hlist \ *TixDirTree*hlist \ *TixFileEntry*Entry \ *TixFileEntry*entry \ *TixMultiList*Listbox \ *TixNoteBook.nbframe \ *TixOptionMenu*menubutton \ *TixScrolledHList*hlist \ *TixScrolledListBox*listbox\ *TixScrolledTList*tlist \ *TixTree*hlist] eval lappend _focus_widgets $_tix_hl_widgets } foreach pref [lsort -uniq $_focus_widgets] { option add $pref.highlightBackground $::wm_default::highlightbackground $pri } # Now for some things to make it look more like the WM # todo - look for and call if {$::wm_default::focusmodel eq "followsmouse"} { tk_focusFollowsMouse } if {$_usetix} { tixSetDefaultOptions if {[lsearch -exact {windows kde1 kde2} $::wm_default::wm] > -1} { # Fix the way Button boxes are packed if {![llength [info procs ::tixButtonBox:add]]} { uplevel #0 auto_load tixButtonBox } proc ::tixButtonBox:add {w name args} { upvar #0 $w data eval [linsert $args 0 button $w.$name] if {![info exists data(-padx)]} {set data(-padx) 5} if {![info exists data(-pady)]} {set data(-pady) 10} if {$data(-orientation) eq "horizontal"} { # Push the Buttons to the right if {[info commands $w.pad] == ""} { label $w.pad pack $w.pad -side left -expand yes -fill both } pack $w.$name -side left \ -expand no \ -padx $data(-padx) -pady $data(-pady) } else { pack $w.$name -side top \ -expand no -fill x \ -padx $data(-padx) -pady $data(-pady) } lappend data(g:buttons) $name set data(w:$name) $w.$name return $w.$name } option add *TixButtonBox.relief flat $::wm_default::priority option add *TixButtonBox.borderwidth 2 $::wm_default::priority } } return [getoptions] } namespace export setup addoptions getoptions parray } package provide wm_default 1.0 proc tixSetDefaultOptions {} { # Returns one of cde kde1 kde2 gnome windows or "" global tcl_platform env tixOption # There is no overlap between the wm_default variable names and # the old style tixOption names. So we can add the wm_default variable # names to the array tixOption, and allow people to upgrade in time. foreach variable { wm linkcolor vlinkcolor alinkcolor background foreground disabledforeground disabledbackground textfamily systemfamily menufamily fixedfamily fontsize textbackground textforeground disabledtextbackground selectbackground selectforeground selectcolor highlightcolor highlightbackground scrollbars borderwidth priority menubackground menuforeground activebackground activeforeground system_font menu_font fixed_font text_font } { set tixOption($variable) [set ::wm_default::$variable] } } Tix8.4.3/pref/Old14Pt.fs 0000644 00000000763 15231152137 0010366 0 ustar 00 # # $Id: Old14Pt.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption set tixOption(font) -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-* set tixOption(bold_font) -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-* set tixOption(menu_font) -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-* set tixOption(italic_font) -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-* set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-* } Tix8.4.3/pref/TixGray.csc 0000644 00000054013 15231152137 0010723 0 ustar 00 # # $Id: TixGray.csc,v 1.2 2000/10/12 02:00:25 idiscovery Exp $ # proc tixPref:SetScheme-Color:TixGray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray86 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray77 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray77 set tixOption(inactive_fg) black set tixOption(light1_bg) gray92 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) gray95 set tixOption(input2_bg) gray95 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:TixGray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } Tix8.4.3/pref/TK.csc 0000644 00000003747 15231152137 0007662 0 ustar 00 # # $Id: TK.csc,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixPref:SetScheme-Color:TK {} { global tixOption set tixOption(bg) #d9d9d9 set tixOption(fg) black set tixOption(dark1_bg) #c3c3c3 set tixOption(dark1_fg) black set tixOption(dark2_bg) #a3a3a3 set tixOption(dark2_fg) black set tixOption(inactive_bg) #a3a3a3 set tixOption(inactive_fg) black set tixOption(light1_bg) #ececec set tixOption(light1_fg) white set tixOption(light2_bg) #fcfcfc set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) #d9d9d9 set tixOption(input2_bg) #d9d9d9 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) #c3c3c3 set tixOption(selector) #b03060 } proc tixPref:SetScheme-Mono:TK {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black } Tix8.4.3/pref/Gray.csc 0000644 00000054030 15231152137 0010235 0 ustar 00 # # $Id: Gray.csc,v 1.2 2000/10/12 01:59:44 idiscovery Exp $ # proc tixPref:SetScheme-Color:Gray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray set tixOption(dark1_fg) black set tixOption(dark2_bg) gray50 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray50 set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(dark1_bg) set tixOption(input2_bg) $tixOption(bg) set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:Gray {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } Tix8.4.3/pref/TkWin.fs 0000644 00000000606 15231152137 0010227 0 ustar 00 # # $Id: TkWin.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption set tixOption(font) "windows-message" set tixOption(bold_font) "windows-status" set tixOption(menu_font) "windows-menu" set tixOption(italic_font) "windows-message" set tixOption(fixed_font) "systemfixed" set tixOption(border1) 1 } Tix8.4.3/pref/WmDefault.csc 0000644 00000034346 15231152137 0011233 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WmDefault.csc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # # proc tixPref:SetScheme-Color:WmDefault {args} { global tixOption package require wm_default if {![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set tixOption(bg) $::wm_default::background set tixOption(fg) $::wm_default::foreground # was "#808080" set tixOption(dark1_bg) $::wm_default::disabledbackground set tixOption(inactive_bg) $::wm_default::disabledbackground set tixOption(inactive_fg) black; # unused # light1 was used for listbox widgets and trough colors set tixOption(light1_bg) $::wm_default::scrollbars set tixOption(light1_fg) white; #unused # text is now used for listbox widgets set tixOption(list_bg) $::wm_default::textbackground set tixOption(active_bg) $::wm_default::activebackground set tixOption(active_fg) $::wm_default::activeforeground set tixOption(disabled_fg) $::wm_default::disabledforeground # new set tixOption(disabled_bg) $::wm_default::disabledtextbackground set tixOption(textbackground) $::wm_default::textbackground set tixOption(input1_fg) $::wm_default::textforeground set tixOption(select_fg) $::wm_default::selectforeground set tixOption(select_bg) $::wm_default::selectbackground set tixOption(selector) $::wm_default::selectcolor set pri $tixOption(prioLevel) # Try to give the subwidget (hlist) the highlightThickness foreach pref {*TixDirTree *TixDirList *TixTree \ *TixScrolledListBox \ *TixScrolledTList *TixScrolledText} { option add $pref.highlightThickness 0 $pri } # necessary: option add *TixBalloon*background white $pri option add *TixBalloon*foreground black $pri option add *TixBalloon.background black $pri # necessary: but should be restricted # was - option add *Label.anchor w $pri option add *TixBalloon*Label.anchor w $pri option add *TixComboBox*Label.anchor w $pri option add *TixFileEntry*Label.anchor w $pri option add *TixLabelEntry*Label.anchor w $pri option add *TixOptionMenu*Label.anchor w $pri option add *TixComboBox*background $tixOption(background) $pri option add *TixFileEntry*Entry.borderWidth 0 $pri option add *TixFileEntry.frame.background $tixOption(textbackground) $pri option add *TixFileEntry*Entry.highlightBackground $::wm_default::highlightbackground $pri option add *TixOptionMenu*menubutton.relief raised $pri option add *TixOptionMenu*menubutton.borderWidth $::wm_default::borderwidth $pri option add *TixResizeHandle*background $tixOption(disabledbackground) $pri option add *handleActiveBg $::wm_default::selectbackground $pri # These may already have been covered by wm_default option add *TixControl*entry.insertBackground $tixOption(textforeground) $pri option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri option add *TixDirTree*f1.relief sunken $pri option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri option add *TixDirList*f1.relief sunken $pri option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri option add *TixScrolledHList*f1.relief sunken $pri option add *TixTree*hlist.background $tixOption(textbackground) $pri option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri option add *TixTree*f1.relief sunken $pri option add *TixFileEntry.background $tixOption(background) $pri option add *TixHList.activeBackground $tixOption(light1_bg) $pri option add *TixHList.disabledBackground $tixOption(disabled_bg) $pri option add *TixLabelEntry*entry.background $tixOption(textbackground) $pri option add *TixLabelEntry*entry.foreground $tixOption(textforeground) $pri option add *TixLabelEntry*entry.insertBackground $tixOption(textforeground) $pri option add *TixMultiView*Listbox.borderWidth 0 $pri option add *TixMultiView*Listbox.highlightThickness 0 $pri option add *TixMultiView*Scrollbar.relief sunken $pri option add *TixMultiView*Scrollbar.width 15 $pri option add *TixMultiView*f1.borderWidth 2 $pri option add *TixMultiView*f1.relief sunken $pri option add *TixMultiView*f1.highlightThickness 2 $pri option add *TixNoteBook.Background $tixOption(background) $pri option add *TixNoteBook.nbframe.Background $tixOption(background) $pri option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri option add *TixNoteBook.nbframe.inactiveBackground $tixOption(disabledbackground) $pri option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri # option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri # option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri option add *TixScrolledTList*tlist.background $tixOption(textbackground) $pri option add *TixScrolledListBox*listbox.background $tixOption(textbackground) $pri option add *TixScrolledWindow.frame.background $tixOption(list_bg) $pri option add *TixTree*hlist.highlightBackground $tixOption(background) $pri option add *TixTree*hlist.background $tixOption(textbackground) $pri option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri option add *TixComboBox*Entry.highlightBackground $tixOption(background) $pri option add *TixComboBox*Entry.background $tixOption(textbackground) $pri option add *TixComboBox*Entry.foreground $tixOption(textforeground) $pri option add *TixComboBox*Entry.insertBackground $tixOption(textforeground) $pri } proc tixPref:SetScheme-Mono:Gray {} { global tixOption package require wm_default if {![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set tixOption(background) lightgray set tixOption(foreground) black set tixOption(dark1_bg) gray70 set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(foreground) set tixOption(disabled_fg) gray55 set tixOption(textbackground) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black set pri $tixOption(prioLevel) # Override what you want with optional arguments to wm_default::adoptions # necessary: option add *TixBalloon*background white $pri option add *TixBalloon*foreground black $pri option add *TixBalloon.background black $pri # necessary: but should be restricted # was - option add *Label.anchor w $pri option add *TixBalloon*Label.anchor w $pri option add *TixComboBox*Label.anchor w $pri option add *TixFileEntry*Label.anchor w $pri option add *TixLabelEntry*Label.anchor w $pri # option add *TixDirTree*hlist.highlightBackground $tixOption(background) $pri # option add *TixDirTree*hlist.background $tixOption(light1_bg) $pri # option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri # option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri # option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri option add *TixDirTree*f1.relief sunken $pri # option add *TixDirList*hlist.highlightBackground $tixOption(background) $pri # option add *TixDirList*hlist.background $tixOption(light1_bg) $pri # option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri # option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri # option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri option add *TixDirList*f1.relief sunken $pri # option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri # option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri # option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri # option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri # option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri option add *TixScrolledHList*f1.relief sunken $pri # option add *TixTree*hlist.highlightBackground $tixOption(background) $pri # option add *TixTree*hlist.background $tixOption(light1_bg) $pri # option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri # option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri # option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri option add *TixTree*f1.relief sunken $pri # option add *TixHList.background $tixOption(light1_bg) $pri # option add *TixHList.activeBackground $tixOption(light1_bg) $pri # option add *TixHList.disabledBackground $tixOption(light1_bg) $pri # option add *TixMultiView*Listbox.borderWidth 0 $pri # option add *TixMultiView*Listbox.highlightThickness 0 $pri option add *TixMultiView*Scrollbar.relief sunken $pri # option add *TixMultiView*f1.borderWidth 2 $pri option add *TixMultiView*f1.relief sunken $pri # option add *TixMultiView*f1.highlightThickness 2 $pri # option add *TixMDIMenuBar*menubar.relief raised $pri # option add *TixMDIMenuBar*menubar.borderWidth 2 $pri # option add *TixMDIMenuBar*Menubutton.padY 2 $pri # option add *TixNoteBook.Background $tixOption(background) $pri # option add *TixNoteBook.nbframe.Background $tixOption(background) $pri # option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri # option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $pri # option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri # option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri # option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri # option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri # option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri # option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri # option add *TixScrolledTList*tlist.highlightBackground $tixOption(background) $pri # option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $pri # option add *TixScrolledListBox*listbox.highlightBackground $tixOption(background) $pri # option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $pri # option add *TixTree*hlist.highlightBackground $tixOption(background) $pri # option add *TixTree*hlist.background $tixOption(light1_bg) $pri # option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri # These were missing # option add *TixMenu*Menu.selectColor $NIMLook(foreground) $pri # option add *TixMDIMenuBar*Menubutton.padY 2 $pri # option add *TixMDIMenuBar*menubar.borderWidth 2 $pri # option add *TixMDIMenuBar*menubar.relief raised $pri # option add *TixMultiView*Listbox.borderWidth 0 $pri # option add *TixMultiView*Listbox.highlightThickness 0 $pri # option add *TixMultiView*Scrollbar.relief sunken $pri # option add *TixMultiView*f1.borderWidth 2 $pri # option add *TixMultiView*f1.highlightThickness 2 $pri option add *TixMultiView*f1.relief sunken $pri } # Leave the standard widgets alone if {0} { option add *Background $tixOption(background) $pri option add *background $tixOption(background) $pri option add *Foreground $tixOption(foreground) $pri option add *foreground $tixOption(foreground) $pri option add *activeBackground $tixOption(active_bg) $pri option add *activeForeground $tixOption(active_fg) $pri option add *HighlightBackground $tixOption(background) $pri option add *selectBackground $tixOption(select_bg) $pri option add *selectForeground $tixOption(select_fg) $pri option add *selectBorderWidth 0 $pri option add *Menu.selectColor $tixOption(foreground) $pri option add *TixMenu.selectColor $tixOption(foreground) $pri option add *Menubutton.padY 5 $pri option add *Button.borderWidth 2 $pri option add *Button.anchor c $pri option add *Checkbutton.selectColor $tixOption(selector) $pri option add *Radiobutton.selectColor $tixOption(selector) $pri option add *Entry.relief sunken $pri option add *Entry.highlightBackground $tixOption(background) $pri option add *Entry.background $tixOption(textbackground) $pri option add *Entry.foreground $tixOption(textforeground) $pri option add *Entry.insertBackground $tixOption(textforeground) $pri option add *Label.anchor w $pri option add *Label.borderWidth 0 $pri option add *Listbox.background $tixOption(textbackground) $pri option add *Listbox.relief sunken $pri option add *Scale.foreground $tixOption(foreground) $pri option add *Scale.activeForeground $tixOption(background) $pri option add *Scale.background $tixOption(background) $pri option add *Scale.sliderForeground $tixOption(background) $pri option add *Scale.sliderBackground $tixOption(light1_bg) $pri option add *Scrollbar.relief sunken $pri option add *Scrollbar.borderWidth $::wm_default::borderwidth $pri option add *Scrollbar.width 15 $pri option add *Text.background $tixOption(textbackground) $pri option add *Text.relief sunken $pri } Tix8.4.3/pref/TkWin.fsc 0000644 00000003212 15231152137 0010366 0 ustar 00 # # $Id: TkWin.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixPref:InitFontSet:TkWin {} { global tixOption set tixOption(font) "windows-message" set tixOption(bold_font) "windows-status" set tixOption(menu_font) "windows-menu" set tixOption(italic_font) "windows-message" set tixOption(fixed_font) "systemfixed" set tixOption(border1) 1 } proc tixPref:SetFontSet:TkWin {} { global tixOption option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel) option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel) option add *Label.font $tixOption(bold_font) $tixOption(prioLevel) option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel) option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel) option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel) option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel) option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel) option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel) } Tix8.4.3/pref/Blue.csc 0000644 00000054030 15231152137 0010222 0 ustar 00 # # $Id: Blue.csc,v 1.2 2000/10/12 01:59:28 idiscovery Exp $ # proc tixPref:SetScheme-Color:Blue {} { global tixOption set tixOption(bg) #9090f0 set tixOption(fg) black set tixOption(dark1_bg) #8080d0 set tixOption(dark1_fg) black set tixOption(dark2_bg) #7070c0 set tixOption(dark2_fg) black set tixOption(inactive_bg) #8080da set tixOption(inactive_fg) black set tixOption(light1_bg) #a8a8ff set tixOption(light1_fg) black set tixOption(light2_bg) #c0c0ff set tixOption(light2_fg) black set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray25 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) yellow option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:Blue {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } Tix8.4.3/pref/WmDefault.fsc 0000644 00000004210 15231152137 0011221 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WmDefault.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # # proc tixPref:InitFontSet:WmDefault {} { global tixOption package require wm_default if {1 || ![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set tixOption(font) $::wm_default::system_font set tixOption(bold_font) [concat $::wm_default::system_font bold] set tixOption(menu_font) $::wm_default::menu_font set tixOption(italic_font) [concat $::wm_default::system_font italic] set tixOption(fixed_font) $::wm_default::fixed_font set tixOption(border1) $::wm_default::borderwidth } proc tixPref:SetFontSet:WmDefault {} { global tixOption package require wm_default if {1 || ![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set pri $tixOption(prioLevel) set tixOption(font) $::wm_default::system_font set tixOption(bold_font) [concat $::wm_default::system_font bold] set tixOption(menu_font) $::wm_default::menu_font set tixOption(italic_font) [concat $::wm_default::system_font italic] set tixOption(fixed_font) $::wm_default::fixed_font set tixOption(text_font) $::wm_default::text_font set tixOption(border1) $::wm_default::borderwidth option add *TixBalloon*Label.font $tixOption(font) $pri option add *TixBitmapButton*label.font $tixOption(font) $pri option add *TixControl*label.font $tixOption(font) $pri option add *TixLabelEntry*label.font $tixOption(font) $pri option add *TixLabelFrame*label.font $tixOption(font) $pri option add *TixMenu.font $tixOption(menu_font) $pri option add *TixMwmClient*title.font $tixOption(font) $pri option add *TixNoteBook.nbframe.font $tixOption(font) $pri # Although its a menubutton, it's more like a button than a menu IMHO option add *TixOptionMenu*menubutton.font $tixOption(font) $pri option add *TixComboBox*Entry.font $tixOption(font) $pri option add *TixFileSelectBox*Label.font $tixOption(font) $pri } Tix8.4.3/pref/Blue.cs 0000644 00000002025 15231152137 0010054 0 ustar 00 # # $Id: Blue.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) #9090f0 set tixOption(fg) black set tixOption(dark1_bg) #8080d0 set tixOption(dark1_fg) black set tixOption(dark2_bg) #7070c0 set tixOption(dark2_fg) black set tixOption(inactive_bg) #8080da set tixOption(inactive_fg) black set tixOption(light1_bg) #a8a8ff set tixOption(light1_fg) black set tixOption(light2_bg) #c0c0ff set tixOption(light2_fg) black set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray25 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) yellow } Tix8.4.3/pref/WmDefault.fs 0000644 00000001363 15231152137 0011064 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WmDefault.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset {} { global tixOption package require wm_default if {![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set tixOption(font) $::wm_default::system_font set tixOption(bold_font) [concat $::wm_default::system_font bold] set tixOption(menu_font) $::wm_default::menu_font set tixOption(italic_font) [concat $::wm_default::system_font italic] set tixOption(fixed_font) $::wm_default::fixed_font set tixOption(text_font) $::wm_default::text_font set tixOption(border1) $::wm_default::borderwidth } Tix8.4.3/pref/Bisque.cs 0000644 00000002004 15231152137 0010412 0 ustar 00 # # $Id: Bisque.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) bisque1 set tixOption(fg) black set tixOption(dark1_bg) bisque2 set tixOption(dark1_fg) black set tixOption(dark2_bg) bisque3 set tixOption(dark2_fg) black set tixOption(inactive_bg) bisque3 set tixOption(inactive_fg) black set tixOption(light1_bg) bisque1 set tixOption(light1_fg) white set tixOption(light2_bg) bisque1 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) bisque2 set tixOption(input2_bg) bisque2 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) bisque2 set tixOption(selector) #b03060 } Tix8.4.3/pref/TK.fsc 0000644 00000001071 15231152137 0007651 0 ustar 00 # # $Id: TK.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixPref:InitFontSet:TK {} { global tixOption set tixOption(font) -Adobe-Helvetica-Medium-R-Normal--*-120-* set tixOption(bold_font) -Adobe-Helvetica-Bold-R-Normal--*-120-* set tixOption(menu_font) -Adobe-Helvetica-Bold-R-Normal--*-120-* set tixOption(italic_font) -Adobe-Helvetica-Bold-O-Normal--*-120-* set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-* set tixOption(border1) 1 } proc tixPref:SetFontSet:TK {} { global tixOption } Tix8.4.3/pref/WmDefault.txt 0000644 00000010344 15231152137 0011272 0 ustar 00 One of the bad things about Tk/Tkinter is that it does not pick up the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows window manager scheme. One of the good things about Tk/Tkinter is that it is not tied to one particular widget set so it could pick up the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows window manager scheme. The WmDefault package is for making Tk/Tkinter applications use the prevailing CDE/KDE/GNOME/Windows scheme. It tries to find the files and/or settings that the current window manager is using, and then sets the Tk options database accordingly (plus a few other things as well). DOWNLOAD -------- Download the latest version of wm_default from http://tix.sourceforge.net either as a part of the standard Tix distribution, or as a part of the Tix Applications: http://tix.sourceforge.net/Tide. wm_default does not require Tix, but is Tix enabled. USAGE: ------ For Tix versions 8.1.2 and above from http://tix.sourceforge.net, WmDefault is the default Tix scheme, so there is nothing else to do. For Tk applications, it should be sufficent at the beginning of a wish app to simply: package require wm_default wm_default::setup wm_default::addoptions The process is divided into 2 steps: 1) find the files and/or settings (::wm_default::setup). This is complete for Windows, pretty good for KDE and CDE, and still barely supported for GNOME because of the difficulty of finding and parsing sawfish definition files. setup takes one optional argument: wm, the name of the window manager as a string, if known. One of: windows gnome kde1 kde2 cde. 2) Setting the Tk options database (::wm_default::addoptions). You can override the settings in 1) by adding your values to the call to addoptions: ::wm_default::addoptions -foreground red -background blue You can examine the settings with ::wm_default::getoptions which returns a Tcl array of the current settings, and ::wm_default::parray which returns a string of the current settings, one value-pair per line. There are a number of assumptions built into the heuristics of addoptions, that may need fine tuning. Post patches to http://tix.sourceforge.net. PYTHON ______ If you are using Tix versions 8.1.2 and above from http://tix.sourceforge.net with Python 2.1 and above, WmDefault is the default Tix scheme, so there is nothing else you need to do. The easiest way to install WmDefault for Tkinter is to copy the WmDefault.* AND THE FILE pkgIndex.tcl from lib/tix8.1/pref to a directory on your PYTHONPATH. Then the following should work: import Tkinter root = Tkinter.Tk() import WmDefault WmDefault.setup(root) WmDefault.addoptions(root, {'foreground': 'red'}) print WmDefault.getoptions(root) SETTINGS -------- Here is a list of all the settings controlled by WmDefault: wm - one of windows gnome kde1 kde2 cde kde background foreground disabledforeground disabledbackground textfamily systemfamily menufamily fixedfamily fontsize - in pixels under Unix, in points under Windows textbackground textforeground disabledtextbackground selectbackground selectforeground selectcolor highlightcolor highlightbackground scrollbars - scrollbar trough color borderwidth priority menubackground menuforeground activebackground activeforeground system_font - a Tcl font spec, a list of family size weight menu_font fixed_font text_font linkcolor - not working completely yet vlinkcolor alinkcolor TO MAKE A PREVIOUS TIX USE THIS AS THE DEFAULT SCHEME: ------------------------------------------------------ 1) Compile Tix with -DTIX_DEF_SCHEME "WmDefault" -DTIX_DEF_FONTSET "WmDefault" or change the defines in generic/tixInit.c #define TIX_DEF_SCHEME "WmDefault" #define TIX_DEF_FONTSET "WmDefault" 2) Edit the installed lib/8.1/Tix.tcl and change the -configspec in tixClass tixAppContext with the following {-fontset WmDefault} {-scheme WmDefault} 3) Copy the files WmDefault.* AND pkgIndex.tcl to the installed lib/tix8.1/pref 4) Make or edit the file lib/tix8.1/pkgIndex.tcl and add the lines package ifneeded wm_default 1.0 \ [list source [file join $dir pref WmDefault.tcl]] Tix8.4.3/pref/TixGray.cs 0000644 00000002002 15231152137 0010547 0 ustar 00 # # $Id: TixGray.cs,v 1.1.1.1 2000/05/17 11:08:47 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray86 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray77 set tixOption(dark2_fg) black set tixOption(inactive_bg) gray77 set tixOption(inactive_fg) black set tixOption(light1_bg) gray92 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) gray95 set tixOption(input2_bg) gray95 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) lightblue set tixOption(selector) yellow } Tix8.4.3/pref/14Point.fsc 0000644 00000004071 15231152137 0010574 0 ustar 00 # # $Id: 14Point.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixPref:InitFontSet:14Point {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { if {$tcl_platform(osVersion) < 5} { set font "MS Sans Serif" } else { set font "Tahoma" } set fixedfont "Courier New" set bd 1 } unix { set font "helvetica" set fixedfont "courier" set bd 2 } set tixOption(font) [list $font -14] set tixOption(bold_font) [list $font -14 bold] set tixOption(menu_font) [list $font -14] set tixOption(italic_font) [list $font -14 bold italic] set tixOption(fixed_font) [list $fixedfont -14] set tixOption(border1) $bd } proc tixPref:SetFontSet:14Point {} { global tixOption option add *Font $tixOption(font) $tixOption(prioLevel) option add *font $tixOption(font) $tixOption(prioLevel) option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel) option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel) option add *Label.font $tixOption(bold_font) $tixOption(prioLevel) option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel) option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel) option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel) option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel) option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel) option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel) option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel) option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel) } Tix8.4.3/pref/TkWin.csc 0000644 00000053436 15231152137 0010400 0 ustar 00 # # $Id: TkWin.csc,v 1.2 2002/01/24 09:16:22 idiscovery Exp $ # proc tixPref:SetScheme-Color:TkWin {} { global tixOption set tixOption(bg) SystemButtonFace set tixOption(fg) SystemButtonText set tixOption(dark1_bg) SystemScrollbar set tixOption(dark1_fg) SystemButtonText # set tixOption(dark2_bg) SystemDisabledText # set tixOption(dark2_fg) black set tixOption(inactive_bg) SystemButtonFace set tixOption(inactive_fg) SystemButtonText set tixOption(light1_bg) SystemButtonFace # set tixOption(light1_fg) white # set tixOption(light2_bg) #fcfcfc # set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) SystemDisabledText set tixOption(input1_bg) SystemWindow # set tixOption(input2_bg) # set tixOption(output1_bg) $tixOption(dark1_bg) # set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) SystemHighlightText set tixOption(select_bg) SystemHighlight set tixOption(selector) SystemHighlight option add *TixBalloon*background "#ffff60" $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.separatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground SystemWindowText $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground SystemWindowText $tixOption(prioLevel) option add *TixComboBox*Entry.selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *TixComboBox*TixScrolledListBox.selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *TixComboBox*TixScrolledListBox.selectForeground $tixOption(select_fg) $tixOption(prioLevel) } # Leave the standard widgets alone if {0} { option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:TkWin {} { global tixOption set tixOption(bg) SystemButtonFace set tixOption(fg) SystemButtonText set tixOption(dark1_bg) SystemScrollbar set tixOption(dark1_fg) SystemButtonText # set tixOption(dark2_bg) SystemDisabledText # set tixOption(dark2_fg) black set tixOption(inactive_bg) SystemButtonFace set tixOption(inactive_fg) SystemButtonText set tixOption(light1_bg) SystemButtonFace # set tixOption(light1_fg) white # set tixOption(light2_bg) #fcfcfc # set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) SystemDisabledText set tixOption(input1_bg) white # set tixOption(input2_bg) # set tixOption(output1_bg) $tixOption(dark1_bg) # set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) SystemHighlightText set tixOption(select_bg) SystemHighlight set tixOption(selector) SystemHighlight option add *TixBalloon*background "#ffff60" $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.separatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground SystemWindowText $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground SystemWindowText $tixOption(prioLevel) option add *TixComboBox*Entry.selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *TixComboBox*TixScrolledListBox.selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *TixComboBox*TixScrolledListBox.selectForeground $tixOption(select_fg) $tixOption(prioLevel) } # Leave the standard widgets alone if {0} { option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) } Tix8.4.3/pref/WmDefault.cs 0000644 00000002654 15231152137 0011065 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WmDefault.cs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetScheme-Color {} { global tixOption package require wm_default if {![info exists ::wm_default::wm]} { wm_default::setup wm_default::addoptions } set tixOption(bg) $::wm_default::background set tixOption(fg) $::wm_default::foreground set tixOption(dark1_bg) #808080 set tixOption(inactive_bg) $::wm_default::disabledbackground set tixOption(inactive_fg) black; # unused # light1 was used for listbox widgets and trough colors set tixOption(light1_bg) $::wm_default::scrollbars set tixOption(light1_fg) white; # unused # text is now used for listbox widgets set tixOption(list_bg) $::wm_default::textbackground set tixOption(active_bg) $::wm_default::activebackground set tixOption(active_fg) $::wm_default::activeforeground set tixOption(disabled_fg) $::wm_default::disabledforeground # new set tixOption(disabled_bg) $::wm_default::disabledtextbackground set tixOption(input1_bg) $::wm_default::textbackground set tixOption(input1_fg) $::wm_default::textforeground set tixOption(select_fg) $::wm_default::selectforeground set tixOption(select_bg) $::wm_default::selectbackground set tixOption(selector) $::wm_default::selectcolor } Tix8.4.3/pref/10Point.fs 0000644 00000001201 15231152137 0010415 0 ustar 00 # # $Id: 10Point.fs,v 1.2 2002/01/24 09:17:02 idiscovery Exp $ # proc tixSetFontset {} { global tixOption tcl_platform switch -- $tcl_platform(platform) "windows" { # This should be Tahoma for Win2000/XP set font "MS Sans Sherif" set fixedfont "Courier New" } unix { set font "helvetica" set fixedfont "courier" } set tixOption(font) [list $font -10] set tixOption(bold_font) [list $font -10 bold] set tixOption(menu_font) [list $font -10] set tixOption(italic_font) [list $font -10 bold italic] set tixOption(fixed_font) [list $fixedfont -10] set tixOption(border1) 1 } Tix8.4.3/pref/Old12Pt.fs 0000644 00000001035 15231152137 0010355 0 ustar 00 # # $Id: Old12Pt.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $ # proc tixSetFontset:12Point {} { global tixOption set tixOption(font) -*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-* set tixOption(bold_font) -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-* set tixOption(menu_font) -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-* set tixOption(italic_font) -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-* set tixOption(fixed_font) -*-courier-medium-r-*-*-12-*-*-*-*-*-*-* set tixOption(border1) 1 } Tix8.4.3/pref/pkgIndex.tcl 0000644 00000000406 15231152137 0011114 0 ustar 00 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # Tcl package index file, version 1.0 # # $Id: pkgIndex.tcl,v 1.2 2002/01/24 09:17:02 idiscovery Exp $ # package ifneeded wm_default 1.0 [list source [file join $dir WmDefault.tcl]] Tix8.4.3/pref/Bisque.csc 0000644 00000054013 15231152137 0010564 0 ustar 00 # # $Id: Bisque.csc,v 1.2 2000/10/12 01:59:13 idiscovery Exp $ # proc tixPref:SetScheme-Color:Bisque {} { global tixOption set tixOption(bg) bisque1 set tixOption(fg) black set tixOption(dark1_bg) bisque2 set tixOption(dark1_fg) black set tixOption(dark2_bg) bisque3 set tixOption(dark2_fg) black set tixOption(inactive_bg) bisque3 set tixOption(inactive_fg) black set tixOption(light1_bg) bisque1 set tixOption(light1_fg) white set tixOption(light2_bg) bisque1 set tixOption(light2_fg) white set tixOption(active_bg) $tixOption(dark1_bg) set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) bisque2 set tixOption(input2_bg) bisque2 set tixOption(output1_bg) $tixOption(dark1_bg) set tixOption(output2_bg) $tixOption(bg) set tixOption(select_fg) black set tixOption(select_bg) bisque2 set tixOption(selector) #b03060 option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } proc tixPref:SetScheme-Mono:Bisque {} { global tixOption set tixOption(bg) lightgray set tixOption(fg) black set tixOption(dark1_bg) gray70 set tixOption(dark1_fg) black set tixOption(dark2_bg) gray60 set tixOption(dark2_fg) white set tixOption(inactive_bg) lightgray set tixOption(inactive_fg) black set tixOption(light1_bg) gray90 set tixOption(light1_fg) white set tixOption(light2_bg) gray95 set tixOption(light2_fg) white set tixOption(active_bg) gray90 set tixOption(active_fg) $tixOption(fg) set tixOption(disabled_fg) gray55 set tixOption(input1_bg) $tixOption(light1_bg) set tixOption(input2_bg) $tixOption(light1_bg) set tixOption(output1_bg) $tixOption(light1_bg) set tixOption(output2_bg) $tixOption(light1_bg) set tixOption(select_fg) white set tixOption(select_bg) black set tixOption(selector) black option add *background $tixOption(bg) 10 option add *Background $tixOption(bg) $tixOption(prioLevel) option add *background $tixOption(bg) $tixOption(prioLevel) option add *Foreground $tixOption(fg) $tixOption(prioLevel) option add *foreground $tixOption(fg) $tixOption(prioLevel) option add *activeBackground $tixOption(active_bg) $tixOption(prioLevel) option add *activeForeground $tixOption(active_fg) $tixOption(prioLevel) option add *HighlightBackground $tixOption(bg) $tixOption(prioLevel) option add *selectBackground $tixOption(select_bg) $tixOption(prioLevel) option add *selectForeground $tixOption(select_fg) $tixOption(prioLevel) option add *selectBorderWidth 0 $tixOption(prioLevel) option add *Menu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *TixMenu.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Menubutton.padY 5 $tixOption(prioLevel) option add *Button.borderWidth 2 $tixOption(prioLevel) option add *Button.anchor c $tixOption(prioLevel) option add *Checkbutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Radiobutton.selectColor $tixOption(selector) $tixOption(prioLevel) option add *Entry.relief sunken $tixOption(prioLevel) option add *Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Entry.foreground black $tixOption(prioLevel) option add *Entry.insertBackground black $tixOption(prioLevel) option add *Label.anchor w $tixOption(prioLevel) option add *Label.borderWidth 0 $tixOption(prioLevel) option add *Listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *Listbox.relief sunken $tixOption(prioLevel) option add *Scale.foreground $tixOption(fg) $tixOption(prioLevel) option add *Scale.activeForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.background $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderForeground $tixOption(bg) $tixOption(prioLevel) option add *Scale.sliderBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *Scrollbar.relief sunken $tixOption(prioLevel) option add *Scrollbar.borderWidth 1 $tixOption(prioLevel) option add *Scrollbar.width 15 $tixOption(prioLevel) option add *Text.background $tixOption(input1_bg) $tixOption(prioLevel) option add *Text.relief sunken $tixOption(prioLevel) option add *TixBalloon*background #ffff60 $tixOption(prioLevel) option add *TixBalloon*foreground black $tixOption(prioLevel) option add *TixBalloon.background black $tixOption(prioLevel) option add *TixBalloon*Label.anchor w $tixOption(prioLevel) option add *TixControl*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixControl*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixControl*entry.foreground black $tixOption(prioLevel) option add *TixControl*entry.insertBackground black $tixOption(prioLevel) option add *TixDirTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirTree*f1.relief sunken $tixOption(prioLevel) option add *TixDirList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixDirList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixDirList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixDirList*f1.relief sunken $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*f1.borderWidth 1 $tixOption(prioLevel) option add *TixScrolledHList*f1.relief sunken $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*f1.borderWidth 1 $tixOption(prioLevel) option add *TixTree*f1.relief sunken $tixOption(prioLevel) option add *TixFileEntry*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixHList.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.activeBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixHList.disabledBackground $tixOption(light1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixLabelEntry*entry.foreground black $tixOption(prioLevel) option add *TixLabelEntry*entry.insertBackground black $tixOption(prioLevel) option add *TixMultiList*Listbox.borderWidth 0 $tixOption(prioLevel) option add *TixMultiList*Listbox.highlightThickness 0 $tixOption(prioLevel) option add *TixMultiList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixMultiList*Scrollbar.relief sunken $tixOption(prioLevel) option add *TixMultiList*Scrollbar.width 15 $tixOption(prioLevel) option add *TixMultiList*f1.borderWidth 2 $tixOption(prioLevel) option add *TixMultiList*f1.relief sunken $tixOption(prioLevel) option add *TixMultiList*f1.highlightThickness 2 $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.relief raised $tixOption(prioLevel) option add *TixMDIMenuBar*menubar.borderWidth 2 $tixOption(prioLevel) option add *TixMDIMenuBar*Menubutton.padY 2 $tixOption(prioLevel) option add *TixNoteBook.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.Background $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.backPageColor $tixOption(bg) $tixOption(prioLevel) option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $tixOption(prioLevel) option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $tixOption(prioLevel) option add *TixPanedWindow.seperatorBg $tixOption(bg) $tixOption(prioLevel) option add *TixPanedWindow.handleBg $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledListBox*listbox.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledText*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixScrolledWindow*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.background $tixOption(bg) $tixOption(prioLevel) option add *TixTree*Scrollbar.troughColor $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixTree*hlist.background $tixOption(light1_bg) $tixOption(prioLevel) option add *TixTree*hlist.borderWidth 1 $tixOption(prioLevel) option add *TixComboBox*Entry.highlightBackground $tixOption(bg) $tixOption(prioLevel) option add *TixComboBox*Entry.background $tixOption(input1_bg) $tixOption(prioLevel) option add *TixComboBox*Entry.foreground black $tixOption(prioLevel) option add *TixComboBox*Entry.insertBackground black $tixOption(prioLevel) } Tix8.4.3/ComboBox.tcl 0000644 00000106657 15231152137 0010136 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: ComboBox.tcl,v 1.9 2008/02/28 22:39:13 hobbs Exp $ # # tixCombobox -- # # A combobox widget is basically a listbox widget with an entry # widget. # # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. global tkPriv if {![llength [info globals tkPriv]]} { tk::unsupported::ExposePrivateVariable tkPriv } #-------------------------------------------------------------------------- # tkPriv elements used in this file: # # afterId - Token returned by "after" for autoscanning. #-------------------------------------------------------------------------- # foreach fun {tkCancelRepeat tkListboxUpDown tkButtonUp} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun tixWidgetClass tixComboBox { -classname TixComboBox -superclass tixLabelWidget -method { addhistory align appendhistory flash invoke insert pick popdown } -flag { -anchor -arrowbitmap -browsecmd -command -crossbitmap -disablecallback -disabledforeground -dropdown -editable -fancy -grab -histlimit -historylimit -history -listcmd -listwidth -prunehistory -selection -selectmode -state -tickbitmap -validatecmd -value -variable } -static { -dropdown -fancy } -forcecall { -variable -selectmode -state } -configspec { {-arrowbitmap arrowBitmap ArrowBitmap ""} {-anchor anchor Anchor w} {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-crossbitmap crossBitmap CrossBitmap ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-disabledforeground disabledForeground DisabledForeground #606060} {-dropdown dropDown DropDown true tixVerifyBoolean} {-editable editable Editable false tixVerifyBoolean} {-fancy fancy Fancy false tixVerifyBoolean} {-grab grab Grab global} {-listcmd listCmd ListCmd ""} {-listwidth listWidth ListWidth ""} {-historylimit historyLimit HistoryLimit ""} {-history history History false tixVerifyBoolean} {-prunehistory pruneHistory PruneHistory true tixVerifyBoolean} {-selectmode selectMode SelectMode browse} {-selection selection Selection ""} {-state state State normal} {-validatecmd validateCmd ValidateCmd ""} {-value value Value ""} {-variable variable Variable ""} {-tickbitmap tickBitmap TickBitmap ""} } -alias { {-histlimit -historylimit} } -default { {*Entry.relief sunken} {*TixScrolledListBox.scrollbar auto} {*Listbox.exportSelection false} {*Listbox.takeFocus false} {*shell.borderWidth 2} {*shell.relief raised} {*shell.cursor arrow} {*Button.anchor c} {*Button.borderWidth 1} {*Button.highlightThickness 0} {*Button.padX 0} {*Button.padY 0} {*tick.width 18} {*tick.height 18} {*cross.width 18} {*cross.height 18} {*arrow.anchor c} {*arrow.width 15} {*arrow.height 18} } } # States: normal numbers: for dropdown style # d+digit(s) : for non-dropdown style # proc tixComboBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(curIndex) "" set data(varInited) 0 set data(state) none set data(ignore) 0 if {$data(-history)} { set data(-editable) 1 } if {$data(-arrowbitmap) eq ""} { set data(-arrowbitmap) [tix getbitmap cbxarrow] } if {$data(-crossbitmap) eq ""} { set data(-crossbitmap) [tix getbitmap cross] } if {$data(-tickbitmap) eq ""} { set data(-tickbitmap) [tix getbitmap tick] } } proc tixComboBox:ConstructFramedWidget {w frame} { upvar #0 $w data tixChainMethod $w ConstructFramedWidget $frame if {$data(-dropdown)} { tixComboBox:ConstructEntryFrame $w $frame tixComboBox:ConstructListShell $w } else { set f1 [frame $frame.f1] set f2 [frame $frame.f2] tixComboBox:ConstructEntryFrame $w $f1 tixComboBox:ConstructListFrame $w $f2 pack $f1 -side top -pady 2 -fill x pack $f2 -side top -pady 2 -fill both -expand yes } } proc tixComboBox:ConstructEntryFrame {w frame} { upvar #0 $w data # (1) The entry # set data(w:entry) [entry $frame.entry] if {!$data(-editable)} { set bg [$w cget -bg] $data(w:entry) config -bg $bg -state disabled -takefocus 1 } # This is used during "config-state" # set data(entryfg) [$data(w:entry) cget -fg] # (2) The dropdown button, not necessary when not in dropdown mode # set data(w:arrow) [button $frame.arrow -bitmap $data(-arrowbitmap)] if {!$data(-dropdown)} { set xframe [frame $frame.xframe -width 19] } # (3) The fancy tick and cross buttons # if {$data(-fancy)} { if {$data(-editable)} { set data(w:cross) [button $frame.cross -bitmap $data(-crossbitmap)] set data(w:tick) [button $frame.tick -bitmap $data(-tickbitmap)] pack $frame.cross -side left -padx 1 pack $frame.tick -side left -padx 1 } else { set data(w:tick) [button $frame.tick -bitmap $data(-tickbitmap)] pack $frame.tick -side left -padx 1 } } if {$data(-dropdown)} { pack $data(w:arrow) -side right -padx 1 foreach wid [list $data(w:frame) $data(w:label)] { tixAddBindTag $wid TixComboWid tixSetMegaWidget $wid $w TixComboBox } } else { pack $xframe -side right -padx 1 } pack $frame.entry -side right -fill x -expand yes -padx 1 } proc tixComboBox:ConstructListShell {w} { upvar #0 $w data # Create the shell and the list #------------------------------ set data(w:shell) [menu $w.shell -bd 2 -relief raised -tearoff 0] wm overrideredirect $data(w:shell) 1 wm withdraw $data(w:shell) set data(w:slistbox) [tixScrolledListBox $data(w:shell).slistbox \ -anchor $data(-anchor) -scrollbarspace y \ -options {listbox.selectMode "browse"}] set data(w:listbox) [$data(w:slistbox) subwidget listbox] pack $data(w:slistbox) -expand yes -fill both -padx 2 -pady 2 } proc tixComboBox:ConstructListFrame {w frame} { upvar #0 $w data set data(w:slistbox) [tixScrolledListBox $frame.slistbox \ -anchor $data(-anchor)] set data(w:listbox) [$data(w:slistbox) subwidget listbox] pack $data(w:slistbox) -expand yes -fill both } proc tixComboBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings # (1) Fix the bindings for the combobox # bindtags $w [list $w TixComboBox [winfo toplevel $w] all] # (2) The entry subwidget # tixSetMegaWidget $data(w:entry) $w TixComboBox bindtags $data(w:entry) [list $data(w:entry) Entry TixComboEntry\ TixComboWid [winfo toplevel $data(w:entry)] all] # (3) The listbox and slistbox # $data(w:slistbox) config -browsecmd \ [list tixComboBox:LbBrowse $w] $data(w:slistbox) config -command\ [list tixComboBox:LbCommand $w] $data(w:listbox) config -takefocus 0 tixAddBindTag $data(w:listbox) TixComboLb tixAddBindTag $data(w:slistbox) TixComboLb tixSetMegaWidget $data(w:listbox) $w TixComboBox tixSetMegaWidget $data(w:slistbox) $w TixComboBox # (4) The buttons # if {$data(-dropdown)} { $data(w:arrow) config -takefocus 0 tixAddBindTag $data(w:arrow) TixComboArrow tixSetMegaWidget $data(w:arrow) $w TixComboBox bind $data(w:root) <1> [list tixComboBox:RootDown $w] bind $data(w:root) <ButtonRelease-1> [list tixComboBox:RootUp $w] } if {$data(-fancy)} { if {$data(-editable)} { $data(w:cross) config -command [list tixComboBox:CrossBtn $w] \ -takefocus 0 } $data(w:tick) config -command [list tixComboBox:Invoke $w] -takefocus 0 } if {$data(-dropdown)} { set data(state) 0 } else { set data(state) n0 } } proc tixComboBoxBind {} { #---------------------------------------------------------------------- # The class bindings for the TixComboBox # tixBind TixComboBox <Escape> { if {[tixComboBox:EscKey %W]} { break } } tixBind TixComboBox <Configure> { tixWidgetDoWhenIdle tixComboBox:align %W } # Only the two "linear" detail_fields are for tabbing (moving) among # widgets inside the same toplevel. Other detail_fields are sort # of irrelevant # tixBind TixComboBox <FocusOut> { if {[string equal %d NotifyNonlinear] || [string equal %d NotifyNonlinearVirtual]} { if {[info exists %W(cancelTab)]} { unset %W(cancelTab) } else { if {[set %W(-state)] ne "disabled"} { if {[set %W(-selection)] ne [set %W(-value)]} { tixComboBox:Invoke %W } } } } } tixBind TixComboBox <FocusIn> { if {"%d" eq "NotifyNonlinear" || "%d" eq "NotifyNonlinearVirtual"} { focus [%W subwidget entry] # CYGNUS: Setting the selection if there is no data # causes backspace to misbehave. if {[[set %W(w:entry)] get] ne ""} { [set %W(w:entry)] selection from 0 [set %W(w:entry)] selection to end } } } #---------------------------------------------------------------------- # The class tixBindings for the arrow button widget inside the TixComboBox # tixBind TixComboArrow <1> { tixComboBox:ArrowDown [tixGetMegaWidget %W TixComboBox] } tixBind TixComboArrow <ButtonRelease-1> { tixComboBox:ArrowUp [tixGetMegaWidget %W TixComboBox] } tixBind TixComboArrow <Escape> { if {[tixComboBox:EscKey [tixGetMegaWidget %W TixComboBox]]} { break } } #---------------------------------------------------------------------- # The class tixBindings for the entry widget inside the TixComboBox # tixBind TixComboEntry <Up> { tixComboBox:EntDirKey [tixGetMegaWidget %W TixComboBox] up } tixBind TixComboEntry <Down> { tixComboBox:EntDirKey [tixGetMegaWidget %W TixComboBox] down } tixBind TixComboEntry <Prior> { tixComboBox:EntDirKey [tixGetMegaWidget %W TixComboBox] pageup } tixBind TixComboEntry <Next> { tixComboBox:EntDirKey [tixGetMegaWidget %W TixComboBox] pagedown } tixBind TixComboEntry <Return> { tixComboBox:EntReturnKey [tixGetMegaWidget %W TixComboBox] } tixBind TixComboEntry <KeyPress> { tixComboBox:EntKeyPress [tixGetMegaWidget %W TixComboBox] } tixBind TixComboEntry <Escape> { if {[tixComboBox:EscKey [tixGetMegaWidget %W TixComboBox]]} { break } } tixBind TixComboEntry <Tab> { if {[set [tixGetMegaWidget %W TixComboBox](-state)] ne "disabled"} { if {[tixComboBox:EntTab [tixGetMegaWidget %W TixComboBox]]} { break } } } tixBind TixComboEntry <1> { if {[set [tixGetMegaWidget %W TixComboBox](-state)] ne "disabled"} { focus %W } } tixBind TixComboEntry <ButtonRelease-2> { tixComboBox:EntKeyPress [tixGetMegaWidget %W TixComboBox] } #---------------------------------------------------------------------- # The class bindings for the listbox subwidget # tixBind TixComboWid <Escape> { if {[tixComboBox:EscKey [tixGetMegaWidget %W TixComboBox]]} { break } } #---------------------------------------------------------------------- # The class bindings for some widgets inside ComboBox # tixBind TixComboWid <ButtonRelease-1> { tixComboBox:WidUp [tixGetMegaWidget %W TixComboBox] } tixBind TixComboWid <Escape> { if {[tixComboBox:EscKey [tixGetMegaWidget %W TixComboBox]]} { break } } } #---------------------------------------------------------------------- # Cooked events #---------------------------------------------------------------------- proc tixComboBox:ArrowDown {w} { upvar #0 $w data if {$data(-state) eq "disabled"} { return } switch -exact -- $data(state) { 0 { tixComboBox:GoState 1 $w } 2 { tixComboBox:GoState 19 $w } default { tixComboBox:StateError $w } } } proc tixComboBox:ArrowUp {w} { upvar #0 $w data switch -exact -- $data(state) { 1 { tixComboBox:GoState 2 $w } 19 { # data(ignore) was already set in state 19 tixComboBox:GoState 4 $w } 5 { tixComboBox:GoState 13 $w } default { tixComboBox:StateError $w } } } proc tixComboBox:RootDown {w} { upvar #0 $w data switch -exact -- $data(state) { 0 { # Ignore } 2 { tixComboBox:GoState 3 $w } default { tixComboBox:StateError $w } } } proc tixComboBox:RootUp {w} { upvar #0 $w data switch -exact -- $data(state) { {1} { tixComboBox:GoState 12 $w } {3} { # data(ignore) was already set in state 3 tixComboBox:GoState 4 $w } {5} { tixComboBox:GoState 7 $w } default { tixComboBox:StateError $w } } } proc tixComboBox:WidUp {w} { upvar #0 $w data switch -exact -- $data(state) { {1} { tixComboBox:GoState 12 $w } {5} { tixComboBox:GoState 13 $w } } } proc tixComboBox:LbBrowse {w args} { upvar #0 $w data set event [tixEvent type] set x [tixEvent flag x] set y [tixEvent flag y] set X [tixEvent flag X] set Y [tixEvent flag Y] if {$data(-state) eq "disabled"} { return } switch -exact -- $event { <1> { case $data(state) { {2} { tixComboBox:GoState 5 $w $x $y $X $Y } {5} { tixComboBox:GoState 5 $w $x $y $X $Y } {n0} { tixComboBox:GoState n6 $w $x $y $X $Y } default { tixComboBox:StateError $w } } } <ButtonRelease-1> { case $data(state) { {5} { tixComboBox:GoState 6 $w $x $y $X $Y } {n6} { tixComboBox:GoState n0 $w } default { tixComboBox:StateError $w } } } default { # Must be a motion event case $data(state) { {1} { tixComboBox:GoState 9 $w $x $y $X $Y } {5} { tixComboBox:GoState 5 $w $x $y $X $Y } {n6} { tixComboBox:GoState n6 $w $x $y $X $Y } default { tixComboBox:StateError $w } } } } } proc tixComboBox:LbCommand {w} { upvar #0 $w data if {$data(state) eq "n0"} { tixComboBox:GoState n1 $w } } #---------------------------------------------------------------------- # General keyboard event # returns 1 if the combobox is in some special state and the Escape key # shouldn't be handled by the toplevel bind tag. As a result, when a combobox # is popped up in a dialog box, Escape will popdown the combo. If the combo # is not popped up, Escape will invoke the toplevel bindtag (which can # pop down the dialog box) # proc tixComboBox:EscKey {w} { upvar #0 $w data if {$data(-state) eq "disabled"} { return 0 } switch -exact -- $data(state) { {0} { tixComboBox:GoState 17 $w } {2} { tixComboBox:GoState 16 $w return 1 } {n0} { tixComboBox:GoState n4 $w } default { # ignore return 1 } } return 0 } #---------------------------------------- # Keyboard events #---------------------------------------- proc tixComboBox:EntDirKey {w dir} { upvar #0 $w data if {$data(-state) eq "disabled"} { return } switch -exact -- $data(state) { {0} { tixComboBox:GoState 10 $w $dir } {2} { tixComboBox:GoState 11 $w $dir } {5} { # ignore } {n0} { tixComboBox:GoState n3 $w $dir } } } proc tixComboBox:EntReturnKey {w} { upvar #0 $w data if {$data(-state) eq "disabled"} { return } switch -exact -- $data(state) { {0} { tixComboBox:GoState 14 $w } {2} { tixComboBox:GoState 15 $w } {5} { # ignore } {n0} { tixComboBox:GoState n1 $w } } } # Return 1 == break from the binding == no keyboard focus traversal proc tixComboBox:EntTab {w} { upvar #0 $w data switch -exact -- $data(state) { {0} { tixComboBox:GoState 14 $w set data(cancelTab) "" return 0 } {2} { tixComboBox:GoState 15 $w set data(cancelTab) "" return 0 } {n0} { tixComboBox:GoState n1 $w set data(cancelTab) "" return 0 } default { return 1 } } } proc tixComboBox:EntKeyPress {w} { upvar #0 $w data if {$data(-state) eq "disabled" || !$data(-editable)} { return } switch -exact -- $data(state) { 0 - 2 - n0 { tixComboBox:ClearListboxSelection $w tixComboBox:SetSelection $w [$data(w:entry) get] 0 0 } } } #---------------------------------------------------------------------- proc tixComboBox:HandleDirKey {w dir} { upvar #0 $w data if {[tixComboBox:CheckListboxSelection $w]} { switch -exact -- $dir { "up" { tkListboxUpDown $data(w:listbox) -1 set data(curIndex) [lindex [$data(w:listbox) curselection] 0] tixComboBox:SetSelectionFromListbox $w } "down" { tkListboxUpDown $data(w:listbox) 1 set data(curIndex) [lindex [$data(w:listbox) curselection] 0] tixComboBox:SetSelectionFromListbox $w } "pageup" { $data(w:listbox) yview scroll -1 pages } "pagedown" { $data(w:listbox) yview scroll 1 pages } } } else { # There wasn't good selection in the listbox. # tixComboBox:SetSelectionFromListbox $w } } proc tixComboBox:Invoke {w} { upvar #0 $w data tixComboBox:SetValue $w $data(-selection) if {![winfo exists $w]} { return } if {$data(-history)} { tixComboBox:addhistory $w $data(-value) set data(curIndex) 0 } $data(w:entry) selection from 0 $data(w:entry) selection to end $data(w:entry) icursor end } #---------------------------------------------------------------------- # MAINTAINING THE -VALUE #---------------------------------------------------------------------- proc tixComboBox:SetValue {w newValue {noUpdate 0} {updateEnt 1}} { upvar #0 $w data if {[llength $data(-validatecmd)]} { set data(-value) [tixEvalCmdBinding $w $data(-validatecmd) "" $newValue] } else { set data(-value) $newValue } if {! $noUpdate} { tixVariable:UpdateVariable $w } if {$updateEnt} { if {!$data(-editable)} { $data(w:entry) delete 0 end $data(w:entry) insert 0 $data(-value) } } if {!$data(-disablecallback) && [llength $data(-command)]} { if {![info exists data(varInited)]} { set bind(specs) {%V} set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-command) bind $data(-value) if {![winfo exists $w]} { # The user destroyed the window! return } } } set data(-selection) $data(-value) if {$updateEnt} { tixSetEntry $data(w:entry) $data(-value) if {$data(-anchor) eq "e"} { tixComboBox:EntryAlignEnd $w } } } # markSel: should the all the text in the entry be highlighted? # proc tixComboBox:SetSelection {w value {markSel 1} {setent 1}} { upvar #0 $w data if {$setent} { tixSetEntry $data(w:entry) $value } set data(-selection) $value if {$data(-selectmode) eq "browse"} { if {$markSel} { $data(w:entry) selection range 0 end } if {[llength $data(-browsecmd)]} { set bind(specs) {%V} set bind(%V) [$data(w:entry) get] tixEvalCmdBinding $w $data(-browsecmd) bind [$data(w:entry) get] } } else { tixComboBox:SetValue $w $value 0 0 } } proc tixComboBox:ClearListboxSelection {w} { upvar #0 $w data if {![winfo exists $data(w:listbox)]} { tixDebug "tixComboBox:ClearListboxSelection error non-existent $data(w:listbox)" return } $data(w:listbox) selection clear 0 end } proc tixComboBox:UpdateListboxSelection {w index} { upvar #0 $w data if {![winfo exists $data(w:listbox)]} { tixDebug "tixComboBox:UpdateListboxSelection error non-existent $data(w:listbox)" return } if {$index != ""} { $data(w:listbox) selection set $index $data(w:listbox) selection anchor $index } } proc tixComboBox:Cancel {w} { upvar #0 $w data tixSetEntry $data(w:entry) $data(-value) tixComboBox:SetSelection $w $data(-value) if {[tixComboBox:LbGetSelection $w] ne $data(-selection)} { tixComboBox:ClearListboxSelection $w } } proc tixComboBox:flash {w} { tixComboBox:BlinkEntry $w } # Make the entry blink when the user selects a choice # proc tixComboBox:BlinkEntry {w} { upvar #0 $w data if {![info exists data(entryBlacken)]} { set old_bg [$data(w:entry) cget -bg] set old_fg [$data(w:entry) cget -fg] $data(w:entry) config -fg $old_bg $data(w:entry) config -bg $old_fg set data(entryBlacken) 1 after 50 tixComboBox:RestoreBlink $w [list $old_bg] [list $old_fg] } } proc tixComboBox:RestoreBlink {w old_bg old_fg} { upvar #0 $w data if {[info exists data(w:entry)] && [winfo exists $data(w:entry)]} { $data(w:entry) config -fg $old_fg $data(w:entry) config -bg $old_bg } if {[info exists data(entryBlacken)]} { unset data(entryBlacken) } } #---------------------------------------- # Handle events inside the list box #---------------------------------------- proc tixComboBox:LbIndex {w {flag ""}} { upvar #0 $w data if {![winfo exists $data(w:listbox)]} { tixDebug "tixComboBox:LbIndex error non-existent $data(w:listbox)" if {$flag eq "emptyOK"} { return "" } else { return 0 } } set sel [lindex [$data(w:listbox) curselection] 0] if {$sel != ""} { return $sel } else { if {$flag eq "emptyOK"} { return "" } else { return 0 } } } #---------------------------------------------------------------------- # # STATE MANIPULATION # #---------------------------------------------------------------------- proc tixComboBox:GoState-0 {w} { upvar #0 $w data if {[info exists data(w:root)] && [grab current] eq "$data(w:root)"} { grab release $w } } proc tixComboBox:GoState-1 {w} { upvar #0 $w data tixComboBox:Popup $w } proc tixComboBox:GoState-2 {w} { upvar #0 $w data } proc tixComboBox:GoState-3 {w} { upvar #0 $w data set data(ignore) 1 tixComboBox:Popdown $w } proc tixComboBox:GoState-4 {w} { upvar #0 $w data tixComboBox:Ungrab $w if {$data(ignore)} { tixComboBox:Cancel $w } else { tixComboBox:Invoke $w } tixComboBox:GoState 0 $w } proc tixComboBox:GoState-5 {w x y X Y} { upvar #0 $w data tixComboBox:LbSelect $w $x $y $X $Y } proc tixComboBox:GoState-6 {w x y X Y} { upvar #0 $w data tixComboBox:Popdown $w if {[tixWithinWindow $data(w:shell) $X $Y]} { set data(ignore) 0 } else { set data(ignore) 1 } tixComboBox:GoState 4 $w } proc tixComboBox:GoState-7 {w} { upvar #0 $w data tixComboBox:Popdown $w set data(ignore) 1 catch { global tkPriv if {$tkPriv(afterId) != ""} { tkCancelRepeat } } set data(ignore) 1 tixComboBox:GoState 4 $w } proc tixComboBox:GoState-9 {w x y X Y} { upvar #0 $w data catch { tkButtonUp $data(w:arrow) } tixComboBox:GoState 5 $w $x $y $X $Y } proc tixComboBox:GoState-10 {w dir} { upvar #0 $w data tixComboBox:Popup $w if {![tixComboBox:CheckListboxSelection $w]} { # There wasn't good selection in the listbox. # tixComboBox:SetSelectionFromListbox $w } tixComboBox:GoState 2 $w } proc tixComboBox:GoState-11 {w dir} { upvar #0 $w data tixComboBox:HandleDirKey $w $dir tixComboBox:GoState 2 $w } proc tixComboBox:GoState-12 {w} { upvar #0 $w data catch { tkButtonUp $data(w:arrow) } tixComboBox:GoState 2 $w } proc tixComboBox:GoState-13 {w} { upvar #0 $w data catch { global tkPriv if {$tkPriv(afterId) != ""} { tkCancelRepeat } } tixComboBox:GoState 2 $w } proc tixComboBox:GoState-14 {w} { upvar #0 $w data tixComboBox:Invoke $w tixComboBox:GoState 0 $w } proc tixComboBox:GoState-15 {w} { upvar #0 $w data tixComboBox:Popdown $w set data(ignore) 0 tixComboBox:GoState 4 $w } proc tixComboBox:GoState-16 {w} { upvar #0 $w data tixComboBox:Popdown $w tixComboBox:Cancel $w set data(ignore) 1 tixComboBox:GoState 4 $w } proc tixComboBox:GoState-17 {w} { upvar #0 $w data tixComboBox:Cancel $w tixComboBox:GoState 0 $w } proc tixComboBox:GoState-19 {w} { upvar #0 $w data set data(ignore) [string equal $data(-selection) $data(-value)] tixComboBox:Popdown $w } #---------------------------------------------------------------------- # Non-dropdown states #---------------------------------------------------------------------- proc tixComboBox:GoState-n0 {w} { upvar #0 $w data } proc tixComboBox:GoState-n1 {w} { upvar #0 $w data tixComboBox:Invoke $w tixComboBox:GoState n0 $w } proc tixComboBox:GoState-n3 {w dir} { upvar #0 $w data tixComboBox:HandleDirKey $w $dir tixComboBox:GoState n0 $w } proc tixComboBox:GoState-n4 {w} { upvar #0 $w data tixComboBox:Cancel $w tixComboBox:GoState n0 $w } proc tixComboBox:GoState-n6 {w x y X Y} { upvar #0 $w data tixComboBox:LbSelect $w $x $y $X $Y } #---------------------------------------------------------------------- # General State Manipulation #---------------------------------------------------------------------- proc tixComboBox:GoState {s w args} { upvar #0 $w data tixComboBox:SetState $w $s eval tixComboBox:GoState-$s $w $args } proc tixComboBox:SetState {w s} { upvar #0 $w data # catch {puts [info level -2]} # puts "setting state $data(state) --> $s" set data(state) $s } proc tixComboBox:StateError {w} { upvar #0 $w data # error "wrong state $data(state)" } #---------------------------------------------------------------------- # Listbox handling #---------------------------------------------------------------------- # Set a selection if there isn't one. Returns true if there was already # a good selection inside the listbox # proc tixComboBox:CheckListboxSelection {w} { upvar #0 $w data if {![winfo exists $data(w:listbox)]} { tixDebug "tixComboBox:CheckListboxSelection error non-existent $data(w:listbox)" return 0 } if {[$data(w:listbox) curselection] == ""} { if {$data(curIndex) == ""} { set data(curIndex) 0 } $data(w:listbox) activate $data(curIndex) $data(w:listbox) selection clear 0 end $data(w:listbox) selection set $data(curIndex) $data(w:listbox) see $data(curIndex) return 0 } else { return 1 } } proc tixComboBox:SetSelectionFromListbox {w} { upvar #0 $w data set string [$data(w:listbox) get $data(curIndex)] tixComboBox:SetSelection $w $string tixComboBox:UpdateListboxSelection $w $data(curIndex) } proc tixComboBox:LbGetSelection {w} { upvar #0 $w data set index [tixComboBox:LbIndex $w emptyOK] if {$index >=0} { return [$data(w:listbox) get $index] } else { return "" } } proc tixComboBox:LbSelect {w x y X Y} { upvar #0 $w data set index [tixComboBox:LbIndex $w emptyOK] if {$index == ""} { set index [$data(w:listbox) nearest $y] } if {$index >= 0} { if {[focus -lastfor $data(w:entry)] ne $data(w:entry) && [focus -lastfor $data(w:entry)] ne $data(w:listbox)} { focus $data(w:entry) } set string [$data(w:listbox) get $index] tixComboBox:SetSelection $w $string tixComboBox:UpdateListboxSelection $w $index } } #---------------------------------------------------------------------- # Internal commands #---------------------------------------------------------------------- proc tixComboBox:CrossBtn {w} { upvar #0 $w data $data(w:entry) delete 0 end tixComboBox:ClearListboxSelection $w tixComboBox:SetSelection $w "" } #-------------------------------------------------- # Popping up list shell #-------------------------------------------------- # Popup the listbox and grab # # proc tixComboBox:Popup {w} { global tcl_platform upvar #0 $w data if {![winfo ismapped $data(w:root)]} { return } #--------------------------------------------------------------------- # Pop up # if {$data(-listcmd) != ""} { # This option allows the user to fill in the listbox on demand # tixEvalCmdBinding $w $data(-listcmd) } # calculate the size set y [winfo rooty $data(w:entry)] incr y [winfo height $data(w:entry)] incr y 3 set bd [$data(w:shell) cget -bd] # incr bd [$data(w:shell) cget -highlightthickness] set height [expr {[winfo reqheight $data(w:slistbox)] + 2*$bd}] set x1 [winfo rootx $data(w:entry)] if {$data(-listwidth) == ""} { if {[winfo ismapped $data(w:arrow)]} { set x2 [winfo rootx $data(w:arrow)] if {$x2 >= $x1} { incr x2 [winfo width $data(w:arrow)] set width [expr {$x2 - $x1}] } else { set width [winfo width $data(w:entry)] set x2 [expr {$x1 + $width}] } } else { set width [winfo width $data(w:entry)] set x2 [expr {$x1 + $width}] } } else { set width $data(-listwidth) set x2 [expr {$x1 + $width}] } set reqwidth [winfo reqwidth $data(w:shell)] if {$reqwidth < $width} { set reqwidth $width } else { if {$reqwidth > [expr {$width *3}]} { set reqwidth [expr {$width *3}] } if {$reqwidth > [winfo vrootwidth .]} { set reqwidth [winfo vrootwidth .] } } set width $reqwidth # If the listbox is too far right, pull it back to the left # set scrwidth [winfo vrootwidth .] if {$x2 > $scrwidth} { set x1 [expr {$scrwidth - $width}] } # If the listbox is too far left, pull it back to the right # if {$x1 < 0} { set x1 0 } # If the listbox is below bottom of screen, put it upwards # set scrheight [winfo vrootheight .] set bottom [expr {$y+$height}] if {$bottom > $scrheight} { set y [expr {$y-$height-[winfo height $data(w:entry)]-5}] } # OK , popup the shell # global tcl_platform wm geometry $data(w:shell) $reqwidth\x$height+$x1+$y if {$tcl_platform(platform) eq "windows"} { update } wm deiconify $data(w:shell) if {$tcl_platform(platform) eq "windows"} { update } raise $data(w:shell) focus $data(w:entry) set data(popped) 1 # add for safety update tixComboBox:Grab $w } proc tixComboBox:SetCursor {w cursor} { upvar #0 $w data $w config -cursor $cursor } proc tixComboBox:Popdown {w} { upvar #0 $w data wm withdraw $data(w:shell) tixComboBox:SetCursor $w "" } # Grab the server so that user cannot move the windows around proc tixComboBox:Grab {w} { upvar #0 $w data tixComboBox:SetCursor $w arrow if {[catch { # We catch here because grab may fail under a lot of circumstances # Just don't want to break the code ... switch -exact -- $data(-grab) { global { tixPushGrab -global $data(w:root) } local { tixPushGrab $data(w:root) } } } err]} { tixDebug "tixComboBox:Grab+: Error grabbing $data(w:root)\n$err" } } proc tixComboBox:Ungrab {w} { upvar #0 $w data if {[catch { catch { switch -exact -- $data(-grab) { global { tixPopGrab } local { tixPopGrab } } } } err]} { tixDebug "tixComboBox:Grab+: Error grabbing $data(w:root)\n$err" } } #---------------------------------------------------------------------- # Alignment #---------------------------------------------------------------------- # The following two routines can emulate a "right align mode" for the # entry in the combo box. proc tixComboBox:EntryAlignEnd {w} { upvar #0 $w data $data(w:entry) xview end } proc tixComboBox:Destructor {w} { upvar #0 $w data tixUnsetMegaWidget $data(w:entry) tixVariable:DeleteVariable $w # Chain this to the superclass # tixChainMethod $w Destructor } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixComboBox:config-state {w value} { upvar #0 $w data catch {if {[$data(w:arrow) cget -state] eq $value} {set a 1}} if {[info exists a]} { return } catch {$data(w:arrow) config -state $value} catch {$data(w:tick) config -state $value} catch {$data(w:cross) config -state $value} catch {$data(w:slistbox) config -state $value} if {[string equal $value normal]} { set fg [$data(w:arrow) cget -fg] set entryFg $data(entryfg) set lbSelFg [lindex [$data(w:listbox) config -selectforeground] 3] set lbSelBg [lindex [$data(w:listbox) config -selectbackground] 3] set entrySelFg [lindex [$data(w:entry) config -selectforeground] 3] set entrySelBg [lindex [$data(w:entry) config -selectbackground] 3] } else { set fg [$data(w:arrow) cget -disabledforeground] set entryFg $data(-disabledforeground) set lbSelFg $entryFg set lbSelBg [$data(w:listbox) cget -bg] set entrySelFg $entryFg set entrySelBg [$data(w:entry) cget -bg] } if {$fg ne ""} { $data(w:label) config -fg $fg $data(w:listbox) config -fg $fg -selectforeground $lbSelFg \ -selectbackground $lbSelBg } $data(w:entry) config -fg $entryFg -selectforeground $entrySelFg \ -selectbackground $entrySelBg if {$value eq "normal"} { if {$data(-editable)} { $data(w:entry) config -state normal } $data(w:entry) config -takefocus 1 } else { if {$data(-editable)} { $data(w:entry) config -state disabled } $data(w:entry) config -takefocus 0 } } proc tixComboBox:config-value {w value} { upvar #0 $w data tixComboBox:SetValue $w $value set data(-selection) $value if {[tixComboBox:LbGetSelection $w] ne $value} { tixComboBox:ClearListboxSelection $w } } proc tixComboBox:config-selection {w value} { upvar #0 $w data tixComboBox:SetSelection $w $value if {[tixComboBox:LbGetSelection $w] ne $value} { tixComboBox:ClearListboxSelection $w } } proc tixComboBox:config-variable {w arg} { upvar #0 $w data if {[tixVariable:ConfigVariable $w $arg]} { # The value of data(-value) is changed if tixVariable:ConfigVariable # returns true set data(-selection) $data(-value) tixComboBox:SetValue $w $data(-value) 1 } catch { unset data(varInited) } set data(-variable) $arg } #---------------------------------------------------------------------- # WIDGET COMMANDS #---------------------------------------------------------------------- proc tixComboBox:align {w args} { upvar #0 $w data if {$data(-anchor) eq "e"} { tixComboBox:EntryAlignEnd $w } } proc tixComboBox:addhistory {w value} { upvar #0 $w data tixComboBox:insert $w 0 $value $data(w:listbox) selection clear 0 end if {$data(-prunehistory)} { # Prune from the end # set max [$data(w:listbox) size] if {$max <= 1} { return } for {set i [expr {$max -1}]} {$i >= 1} {incr i -1} { if {[$data(w:listbox) get $i] eq $value} { $data(w:listbox) delete $i break } } } } proc tixComboBox:appendhistory {w value} { upvar #0 $w data tixComboBox:insert $w end $value $data(w:listbox) selection clear 0 end if {$data(-prunehistory)} { # Prune from the end # set max [$data(w:listbox) size] if {$max <= 1} { return } for {set i [expr {$max -2}]} {$i >= 0} {incr i -1} { if {[$data(w:listbox) get $i] eq $value} { $data(w:listbox) delete $i break } } } } proc tixComboBox:insert {w index newitem} { upvar #0 $w data $data(w:listbox) insert $index $newitem if {$data(-history) && $data(-historylimit) != "" && [$data(w:listbox) size] eq $data(-historylimit)} { $data(w:listbox) delete 0 } } proc tixComboBox:pick {w index} { upvar #0 $w data $data(w:listbox) activate $index $data(w:listbox) selection clear 0 end $data(w:listbox) selection set active $data(w:listbox) see active set text [$data(w:listbox) get $index] tixComboBox:SetValue $w $text set data(curIndex) $index } proc tixComboBox:invoke {w} { tixComboBox:Invoke $w } proc tixComboBox:popdown {w} { upvar #0 $w data if {$data(-dropdown)} { tixComboBox:Popdown $w } } Tix8.4.3/DtlList.tcl 0000644 00000001752 15231152137 0007773 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DtlList.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # DtlList.tcl -- # # This file implements DetailList widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixDetailList { -classname TixDetailList -superclass tixScrolledGrid -method { } -flag { -hdrbackground } -configspec { {-hdrbackground hdrBackground HdrBackground #606060} } -alias { {-hdrbg -hdrbackground} } -default { {*grid.topMargin 1} {*grid.leftMargin 0} } } proc tixDetailList:FormatCmd {w area x1 y1 x2 y2} { upvar #0 $w data case $area { main { } default { $data(w:grid) format border $x1 $y1 $x2 $y2 \ -filled 1 \ -relief raised -bd 1 -bg $data(-hdrbackground) } } } Tix8.4.3/README.txt 0000644 00000001733 15231152137 0007405 0 ustar 00 Tix 8.4.3 for Tcl 8.4+ Tix Documentation Master Index This file is the master index of all the documentation included in this package. For additional information about Tix, please visit the Tix Home Page at http://tix.sourceforge.net/ or join the mailing lists there. * ABOUT.html A brief description of Tix. * docs/Release.html Release notes on this version of Tix. * unix/README.txt Compiling and installing Tix under Unix. * win/README.txt Compiling and installing Tix under Windows. * docs/html/TixUser/TixUser.html Tix Users's Guide. * Programming with Tix: + Tix Programmer's Guide. + Using Tix Stand Alone Modules (SAM). * docs/FAQ.html The Tix Frequent Asked Questions. * ChangeLog.txt Changes made to Tix since the previous release. * man/index.html Programmer's Reference Manual. Versions of Tcl/Tk prior to 8.4 are no longer supported. Tix8.4.3/SListBox.tcl 0000644 00000015742 15231152137 0010127 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SListBox.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # SListBox.tcl -- # # This file implements Scrolled Listbox widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # ToDo: # -anchor (none) # tixWidgetClass tixScrolledListBox { -classname TixScrolledListBox -superclass tixScrolledWidget -method { } -flag { -anchor -browsecmd -command -state } -static { -anchor } -configspec { {-anchor anchor Anchor w} {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-state state State normal} {-takefocus takeFocus TakeFocus 1 tixVerifyBoolean} } -default { {.scrollbar auto} {*borderWidth 1} {*listbox.highlightBackground #d9d9d9} {*listbox.relief sunken} {*listbox.background #c3c3c3} {*listbox.takeFocus 1} {*Scrollbar.takeFocus 0} } } proc tixScrolledListBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(x-first) 0 set data(x-last) 1 set data(y-first) 0 set data(y-last) 1 } proc tixScrolledListBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:listbox) \ [listbox $w.listbox] set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical ] set data(pw:client) $data(w:listbox) } proc tixScrolledListBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:listbox) config \ -xscrollcommand "tixScrolledListBox:XView $w"\ -yscrollcommand "tixScrolledListBox:YView $w" $data(w:hsb) config -command "$data(w:listbox) xview" $data(w:vsb) config -command "$data(w:listbox) yview" bind $w <Configure> "+tixScrolledListBox:Configure $w" bind $w <FocusIn> "focus $data(w:listbox)" bindtags $data(w:listbox) \ "$data(w:listbox) TixListboxState Listbox TixListbox [winfo toplevel $data(w:listbox)] all" tixSetMegaWidget $data(w:listbox) $w } proc tixScrolledListBoxBind {} { tixBind TixListboxState <1> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <1> { if {[string is true -strict [%W cget -takefocus]]} { focus %W } tixScrolledListBox:Browse [tixGetMegaWidget %W] } tixBind TixListboxState <B1-Motion> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <B1-Motion> { tixScrolledListBox:Browse [tixGetMegaWidget %W] } tixBind TixListboxState <Up> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <Up> { tixScrolledListBox:KeyBrowse [tixGetMegaWidget %W] } tixBind TixListboxState <Down> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <Down> { tixScrolledListBox:KeyBrowse [tixGetMegaWidget %W] } tixBind TixListboxState <Return> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <Return> { tixScrolledListBox:KeyInvoke [tixGetMegaWidget %W] } tixBind TixListboxState <Double-1> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <Double-1> { tixScrolledListBox:Invoke [tixGetMegaWidget %W] } tixBind TixListboxState <ButtonRelease-1> { if {[set [tixGetMegaWidget %W](-state)] eq "disabled"} { break } } tixBind TixListbox <ButtonRelease-1> { tixScrolledListBox:Browse [tixGetMegaWidget %W] } } proc tixScrolledListBox:Browse {w} { upvar #0 $w data if {$data(-browsecmd) != ""} { set bind(specs) {%V} set bind(%V) [$data(w:listbox) get \ [$data(w:listbox) nearest [tixEvent flag y]]] tixEvalCmdBinding $w $data(-browsecmd) bind } } proc tixScrolledListBox:KeyBrowse {w} { upvar #0 $w data if {$data(-browsecmd) != ""} { set bind(specs) {%V} set bind(%V) [$data(w:listbox) get active] tixEvalCmdBinding $w $data(-browsecmd) bind } } # tixScrolledListBox:Invoke -- # # The user has invoked the listbox by pressing either the <Returh> # key or double-clicking. Call the user-supplied -command function. # # For both -browsecmd and -command, it is the responsibility of the # user-supplied function to determine the current selection of the listbox # proc tixScrolledListBox:Invoke {w} { upvar #0 $w data if {$data(-command) != ""} { set bind(specs) {%V} set bind(%V) [$data(w:listbox) get \ [$data(w:listbox) nearest [tixEvent flag y]]] tixEvalCmdBinding $w $data(-command) bind } } proc tixScrolledListBox:KeyInvoke {w} { upvar #0 $w data if {$data(-command) != ""} { set bind(specs) {%V} set bind(%V) [$data(w:listbox) get active] tixEvalCmdBinding $w $data(-command) bind } } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixScrolledListBox:config-takefocus {w value} { upvar #0 $w data $data(w:listbox) config -takefocus $value } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- proc tixScrolledListBox:XView {w first last} { upvar #0 $w data set data(x-first) $first set data(x-last) $last $data(w:hsb) set $first $last tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } proc tixScrolledListBox:YView {w first last} { upvar #0 $w data set data(y-first) $first set data(y-last) $last $data(w:vsb) set $first $last tixWidgetDoWhenIdle tixScrolledWidget:Configure $w # Somehow an update here must be used to advoid osscilation # update idletasks } # #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement #---------------------------------------------------------------------- proc tixScrolledListBox:GeometryInfo {w mW mH} { upvar #0 $w data return [list \ [list $data(x-first) $data(x-last)]\ [list $data(y-first) $data(y-last)]] } proc tixScrolledListBox:Configure {w} { upvar #0 $w data tixWidgetDoWhenIdle tixScrolledListBox:TrickScrollbar $w if {$data(-anchor) eq "e"} { $data(w:listbox) xview 100000 } } # This procedure is necessary because listbox does not call x,y scroll command # when its size is changed # proc tixScrolledListBox:TrickScrollbar {w} { upvar #0 $w data set inc [$data(w:listbox) select include 0] $data(w:listbox) select set 0 if {!$inc} { $data(w:listbox) select clear 0 } } Tix8.4.3/ResizeH.tcl 0000644 00000031677 15231152137 0007776 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: ResizeH.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # ResizeH.tcl -- # # tixResizeHandle: A general purpose "resizing handle" # widget. You can use it to resize pictures, widgets, etc. When # using it to resize a widget, you can use the "attachwidget" # command to attach it to a widget and it will handle all the # events for you. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # tixWidgetClass tixResizeHandle { -classname TixResizeHandle -superclass tixVResize -method { attachwidget detachwidget hide show } -flag { -command -cursorfg -cursorbg -handlesize -hintcolor -hintwidth -x -y } -configspec { {-command command Command ""} {-cursorfg cursorFg CursorColor white} {-cursorbg cursorBg CursorColor red} {-handlesize handleSize HandleSize 6} {-hintcolor hintColor HintColor red} {-hintwidth hintWidth HintWidth 1} {-x x X 0} {-y y Y 0} } } proc tixResizeHandle:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(shown) 0 set data(widget) "" } proc tixResizeHandle:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget # Create the hints # set data(w_ht) $w:tix_priv_ht set data(w_hb) $w:tix_priv_hb set data(w_hl) $w:tix_priv_hl set data(w_hr) $w:tix_priv_hr frame $data(w_ht) -height $data(-hintwidth) -bg $data(-background) frame $data(w_hb) -height $data(-hintwidth) -bg $data(-background) frame $data(w_hl) -width $data(-hintwidth) -bg $data(-background) frame $data(w_hr) -width $data(-hintwidth) -bg $data(-background) # Create the corner resize handles # set data(w_r00) $w # Windows don't like this # $data(rootCmd) config\ # -cursor "top_left_corner $data(-cursorbg) $data(-cursorfg)" $data(rootCmd) config -cursor top_left_corner set data(w_r01) $w:tix_priv_01 set data(w_r10) $w:tix_priv_10 set data(w_r11) $w:tix_priv_11 frame $data(w_r01) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "bottom_left_corner"\ -bg $data(-background) frame $data(w_r10) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "top_right_corner"\ -bg $data(-background) frame $data(w_r11) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "bottom_right_corner"\ -bg $data(-background) # Create the border resize handles # set data(w_bt) $w:tix_priv_bt set data(w_bb) $w:tix_priv_bb set data(w_bl) $w:tix_priv_bl set data(w_br) $w:tix_priv_br frame $data(w_bt) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "top_side"\ -bg $data(-background) frame $data(w_bb) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "bottom_side"\ -bg $data(-background) frame $data(w_bl) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "left_side"\ -bg $data(-background) frame $data(w_br) -relief $data(-relief) -bd $data(-borderwidth) \ -cursor "right_side"\ -bg $data(-background) } proc tixResizeHandle:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings bind $data(w_r00) <1> \ "tixResizeHandle:dragstart $w $data(w_r00) 1 %X %Y {1 1 -1 -1}" bind $data(w_r01) <1> \ "tixResizeHandle:dragstart $w $data(w_r01) 1 %X %Y {1 0 -1 1}" bind $data(w_r10) <1> \ "tixResizeHandle:dragstart $w $data(w_r10) 1 %X %Y {0 1 1 -1}" bind $data(w_r11) <1> \ "tixResizeHandle:dragstart $w $data(w_r11) 1 %X %Y {0 0 1 1}" bind $data(w_bt) <1> \ "tixResizeHandle:dragstart $w $data(w_bt) 1 %X %Y {0 1 0 -1}" bind $data(w_bb) <1> \ "tixResizeHandle:dragstart $w $data(w_bb) 1 %X %Y {0 0 0 1}" bind $data(w_bl) <1> \ "tixResizeHandle:dragstart $w $data(w_bl) 1 %X %Y {1 0 -1 0}" bind $data(w_br) <1> \ "tixResizeHandle:dragstart $w $data(w_br) 1 %X %Y {0 0 1 0}" foreach win [list \ $data(w_r00)\ $data(w_r01)\ $data(w_r10)\ $data(w_r11)\ $data(w_bt)\ $data(w_bb)\ $data(w_bl)\ $data(w_br)\ ] { bind $win <B1-Motion> "tixVResize:drag $w %X %Y" bind $win <ButtonRelease-1> "tixVResize:dragend $w $win 0 %X %Y" bind $win <Any-Escape> "tixVResize:dragend $w $win 1 0 0" } } #---------------------------------------------------------------------- # Config Methods #---------------------------------------------------------------------- proc tixResizeHandle:config-width {w value} { tixWidgetDoWhenIdle tixResizeHandle:ComposeWindow $w } proc tixResizeHandle:config-height {w value} { tixWidgetDoWhenIdle tixResizeHandle:ComposeWindow $w } proc tixResizeHandle:config-x {w value} { tixWidgetDoWhenIdle tixResizeHandle:ComposeWindow $w } proc tixResizeHandle:config-y {w value} { tixWidgetDoWhenIdle tixResizeHandle:ComposeWindow $w } #---------------------------------------------------------------------- # Public Methods #---------------------------------------------------------------------- proc tixResizeHandle:dragstart {w win depress rootx rooty mrect} { upvar #0 $w data set wx $data(-x) set wy $data(-y) set ww $data(-width) set wh $data(-height) tixVResize:dragstart $w $win $depress $rootx $rooty \ [list $wx $wy $ww $wh] $mrect } # tixDeleteBindTag -- # # Delete the bindtag(s) in the args list from the bindtags of the widget # proc tixDeleteBindTag {w args} { if {![winfo exists $w]} { return } set newtags "" foreach tag [bindtags $w] { if {[lsearch $args $tag] == -1} { lappend newtags $tag } } bindtags $w $newtags } proc tixAddBindTag {w args} { bindtags $w [concat [bindtags $w] $args] } proc tixResizeHandle:attachwidget {w widget args} { upvar #0 $w data set opt(-move) 0 tixHandleOptions opt {-move} $args if {$data(widget) != ""} { tixDeleteBindTag $data(widget) TixResizeHandleTag:$w } set data(widget) $widget if {$data(widget) != ""} { # Just in case TixResizeHandleTag was already there tixDeleteBindTag $data(widget) TixResizeHandleTag:$w tixAddBindTag $data(widget) TixResizeHandleTag:$w set data(-x) [winfo x $data(widget)] set data(-y) [winfo y $data(widget)] set data(-width) [winfo width $data(widget)] set data(-height) [winfo height $data(widget)] tixResizeHandle:show $w tixResizeHandle:ComposeWindow $w # Now set the bindings # if {$opt(-move)} { bind TixResizeHandleTag:$w <1> \ "tixResizeHandle:Attach $w %X %Y" bind TixResizeHandleTag:$w <B1-Motion> \ "tixResizeHandle:BMotion $w %X %Y" bind TixResizeHandleTag:$w <Any-Escape> \ "tixResizeHandle:BRelease $w 1 %X %Y" bind TixResizeHandleTag:$w <ButtonRelease-1>\ "tixResizeHandle:BRelease $w 0 %X %Y" } else { # if "move" is false, then the widget won't be moved as a whole -- # ResizeHandle will only move its sides bind TixResizeHandleTag:$w <1> {;} bind TixResizeHandleTag:$w <B1-Motion> {;} bind TixResizeHandleTag:$w <Any-Escape> {;} bind TixResizeHandleTag:$w <ButtonRelease-1> {;} } } } proc tixResizeHandle:detachwidget {w} { upvar #0 $w data if {$data(widget) != ""} { tixDeleteBindTag $data(widget) TixResizeHandleTag:$w } tixResizeHandle:hide $w } proc tixResizeHandle:show {w} { upvar #0 $w data set data(shown) 1 raise $data(w_ht) raise $data(w_hb) raise $data(w_hl) raise $data(w_hr) raise $data(w_r00) raise $data(w_r01) raise $data(w_r10) raise $data(w_r11) raise $data(w_bt) raise $data(w_bb) raise $data(w_bl) raise $data(w_br) # tixCancleIdleTask tixResizeHandle:ComposeWindow $w tixResizeHandle:ComposeWindow $w } proc tixResizeHandle:hide {w} { upvar #0 $w data if {!$data(shown)} { return } set data(shown) 0 place forget $data(w_r00) place forget $data(w_r01) place forget $data(w_r10) place forget $data(w_r11) place forget $data(w_bt) place forget $data(w_bb) place forget $data(w_bl) place forget $data(w_br) place forget $data(w_ht) place forget $data(w_hb) place forget $data(w_hl) place forget $data(w_hr) } proc tixResizeHandle:Destructor {w} { upvar #0 $w data if {$data(widget) != ""} { tixDeleteBindTag $data(widget) TixResizeHandleTag:$w } catch {destroy $data(w_r01)} catch {destroy $data(w_r10)} catch {destroy $data(w_r11)} catch {destroy $data(w_bt)} catch {destroy $data(w_bb)} catch {destroy $data(w_bl)} catch {destroy $data(w_br)} catch {destroy $data(w_ht)} catch {destroy $data(w_hb)} catch {destroy $data(w_hl)} catch {destroy $data(w_hr)} tixChainMethod $w Destructor } #---------------------------------------------------------------------- # Private Methods Dealing With Attached Widgets #---------------------------------------------------------------------- proc tixResizeHandle:Attach {w rx ry} { upvar #0 $w data tixResizeHandle:dragstart $w $data(widget) 0 $rx $ry {1 1 0 0} } proc tixResizeHandle:BMotion {w rx ry} { tixVResize:drag $w $rx $ry } proc tixResizeHandle:BRelease {w isAbort rx ry} { upvar #0 $w data tixVResize:dragend $w $data(widget) $isAbort $rx $ry } #---------------------------------------------------------------------- # Private Methods #---------------------------------------------------------------------- proc tixResizeHandle:DrawTmpLines {w} { upvar #0 $w data # I've seen this error - mike if {![info exists data(hf:x1)]} {return} set x1 $data(hf:x1) if {![info exists data(hf:y1)]} {return} set y1 $data(hf:y1) if {![info exists data(hf:x2)]} {return} set x2 $data(hf:x2) if {![info exists data(hf:y2)]} {return} set y2 $data(hf:y2) tixTmpLine $x1 $y1 $x2 $y1 $w tixTmpLine $x1 $y2 $x2 $y2 $w tixTmpLine $x1 $y1 $x1 $y2 $w tixTmpLine $x2 $y1 $x2 $y2 $w } # Place the hint frame to indicate the changes # proc tixResizeHandle:SetHintFrame {w x1 y1 width height} { upvar #0 $w data # The four sides of the window # set x2 [expr "$x1+$width"] set y2 [expr "$y1+$height"] set rx [winfo rootx [winfo parent $w]] set ry [winfo rooty [winfo parent $w]] incr x1 $rx incr y1 $ry incr x2 $rx incr y2 $ry if {[info exists data(hf:x1)]} { tixResizeHandle:DrawTmpLines $w } set data(hf:x1) $x1 set data(hf:y1) $y1 set data(hf:x2) $x2 set data(hf:y2) $y2 tixResizeHandle:DrawTmpLines $w } proc tixResizeHandle:ShowHintFrame {w} { upvar #0 $w data place forget $data(w_ht) place forget $data(w_hb) place forget $data(w_hl) place forget $data(w_hr) update } proc tixResizeHandle:HideHintFrame {w} { upvar #0 $w data tixResizeHandle:DrawTmpLines $w unset data(hf:x1) unset data(hf:y1) unset data(hf:x2) unset data(hf:y2) } proc tixResizeHandle:UpdateSize {w x y width height} { upvar #0 $w data set data(-x) $x set data(-y) $y set data(-width) $width set data(-height) $height tixResizeHandle:ComposeWindow $w if {$data(widget) != ""} { place $data(widget) -x $x -y $y -width $width -height $height } if {$data(-command) != ""} { eval $data(-command) $x $y $width $height } } proc tixResizeHandle:ComposeWindow {w} { upvar #0 $w data set px $data(-x) set py $data(-y) set pw $data(-width) set ph $data(-height) # Show the hint frames # set x1 $px set y1 $py set x2 [expr "$px+$pw"] set y2 [expr "$py+$ph"] place $data(w_ht) -x $x1 -y $y1 -width $pw -bordermode outside place $data(w_hb) -x $x1 -y $y2 -width $pw -bordermode outside place $data(w_hl) -x $x1 -y $y1 -height $ph -bordermode outside place $data(w_hr) -x $x2 -y $y1 -height $ph -bordermode outside # Set the four corner resize handles # set sz_2 [expr $data(-handlesize)/2] set x1 [expr "$px - $sz_2"] set y1 [expr "$py - $sz_2"] set x2 [expr "$px - $sz_2" + $pw] set y2 [expr "$py - $sz_2" + $ph] place $data(w_r00) -x $x1 -y $y1 \ -width $data(-handlesize) -height $data(-handlesize) place $data(w_r01) -x $x1 -y $y2\ -width $data(-handlesize) -height $data(-handlesize) place $data(w_r10) -x $x2 -y $y1\ -width $data(-handlesize) -height $data(-handlesize) place $data(w_r11) -x $x2 -y $y2\ -width $data(-handlesize) -height $data(-handlesize) # Set the four border resize handles # set mx [expr "$px + $pw/2 - $sz_2"] set my [expr "$py + $ph/2 - $sz_2"] place $data(w_bt) -x $mx -y $y1 \ -width $data(-handlesize) -height $data(-handlesize) place $data(w_bb) -x $mx -y $y2 \ -width $data(-handlesize) -height $data(-handlesize) place $data(w_bl) -x $x1 -y $my \ -width $data(-handlesize) -height $data(-handlesize) place $data(w_br) -x $x2 -y $my \ -width $data(-handlesize) -height $data(-handlesize) } Tix8.4.3/PanedWin.tcl 0000644 00000067273 15231152137 0010133 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: PanedWin.tcl,v 1.7 2004/03/28 02:44:57 hobbs Exp $ # # PanedWin.tcl -- # # This file implements the TixPanedWindow widget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixPanedWindow { -classname TixPanedWindow -superclass tixPrimitive -method { add delete forget manage panecget paneconfigure panes setsize } -flag { -command -dynamicgeometry -handleactivebg -handlebg -orient -orientation -panebd -paneborderwidth -panerelief -separatoractivebg -separatorbg } -static { -orientation } -configspec { {-command command Command ""} {-dynamicgeometry dynamicGeometry DynamicGeometry 1 tixVerifyBoolean} {-handleactivebg handleActiveBg HandleActiveBg #ececec} {-handlebg handleBg Background #d9d9d9} {-orientation orientation Orientation vertical} {-paneborderwidth paneBorderWidth PaneBorderWidth 1} {-panerelief paneRelief PaneRelief raised} {-separatoractivebg separatorActiveBg SeparatorActiveBg red} {-separatorbg separatorBg Background #d9d9d9} } -alias { {-panebd -paneborderwidth} {-orient -orientation} } } #---------------------------------------------------------------------- # ClassInitialization: #---------------------------------------------------------------------- proc tixPanedWindow:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec set data(items) "" set data(nItems) 0 set data(totalsize) 0 set data(movePending) 0 set data(repack) 0 set data(counter) 0 set data(maxReqW) 1 set data(maxReqH) 1 } proc tixPanedWindow:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget # Do nothing } proc tixPanedWindow:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings bind $w <Configure> [list tixPanedWindow:MasterGeomProc $w ""] } #---------------------------------------------------------------------- # ConfigOptions: #---------------------------------------------------------------------- proc tixPanedWindow:config-handlebg {w arg} { upvar #0 $w data for {set i 1} {$i < $data(nItems)} {incr i} { $data(btn,$i) config -bg $arg } } #---------------------------------------------------------------------- # PublicMethods: #---------------------------------------------------------------------- # method: add # # Adds a new pane into the PanedWindow. # # options -size -max -min -allowresize # proc tixPanedWindow:add {w name args} { upvar #0 $w data if {[winfo exists $w.$name] && !$data($name,forgotten)} { error "Pane $name is already managed" } # Step 1: Parse the options to get the children's size options # The default values # if {[info exists data($name,forgotten)]} { set option(-size) $data($name,size) set option(-min) $data($name,min) set option(-max) $data($name,max) set option(-allowresize) $data($name,allowresize) set option(-expand) $data($name,expand) } else { set option(-size) 0 set option(-min) 0 set option(-max) 100000 set option(-allowresize) 1 set option(-expand) 0 } set option(-before) "" set option(-after) "" set option(-at) "" set validOpts {-after -allowresize -at -before -expand -max -min -size} tixHandleOptions option $validOpts $args set data($name,size) $option(-size) set data($name,rsize) $option(-size) set data($name,min) $option(-min) set data($name,max) $option(-max) set data($name,allowresize) $option(-allowresize) set data($name,expand) $option(-expand) set data($name,forgotten) 0 if {$data($name,expand) < 0} { set data($name,expand) 0 } # Step 2: Add the frame and the separator (if necessary) # if {![winfo exist $w.$name]} { # need to check because the frame may have been "forget'ten" # frame $w.$name -bd $data(-paneborderwidth) -relief $data(-panerelief) } if {$option(-at) != ""} { set at [tixGetInt $option(-at)] if {$at < 0} { set at 0 } } elseif {$option(-after) != ""} { set index [lsearch -exact $data(items) $option(-after)] if {$index == -1} { error "Pane $option(-after) doesn't exists" } else { set at [incr index] } } elseif {$option(-before) != ""} { set index [lsearch -exact $data(items) $option(-before)] if {$index == -1} { error "Pane $option(-before) doesn't exists" } set at $index } else { set at end } set data(items) [linsert $data(items) $at $name] incr data(nItems) if {$data(nItems) > 1} { tixPanedWindow:AddSeparator $w } set data(w:$name) $w.$name # Step 3: Add the new frame. Adjust the window later (do when idle) # tixManageGeometry $w.$name [list tixPanedWindow:ClientGeomProc $w] bind $w.$name <Configure> \ [list tixPanedWindow:ClientGeomProc $w "" $w.$name] tixPanedWindow:RepackWhenIdle $w return $w.$name } proc tixPanedWindow:manage {w name args} { upvar #0 $w data if {![winfo exists $w.$name]} { error "Pane $name does not exist" } if {!$data($name,forgotten)} { error "Pane $name is already managed" } tixMapWindow $data(w:$name) eval tixPanedWindow:add $w [list $name] $args } proc tixPanedWindow:forget {w name} { upvar #0 $w data if {![winfo exists $w.$name]} { error "Pane $name does not exist" } if $data($name,forgotten) { # It has already been forgotten # return } set items "" foreach item $data(items) { if {$item != $name} { lappend items $item } } set data(items) $items incr data(nItems) -1 set i $data(nItems) if {$i > 0} { destroy $data(btn,$i) destroy $data(sep,$i) unset data(btn,$i) unset data(sep,$i) } set data($name,forgotten) 1 tixUnmapWindow $w.$name tixPanedWindow:RepackWhenIdle $w } proc tixPanedWindow:delete {w name} { upvar #0 $w data if {![winfo exists $w.$name]} { error "Pane $name does not exist" } if {!$data($name,forgotten)} { set items "" foreach item $data(items) { if {$item != $name} { lappend items $item } } set data(items) $items incr data(nItems) -1 set i $data(nItems) if {$i > 0} { destroy $data(btn,$i) destroy $data(sep,$i) unset data(btn,$i) unset data(sep,$i) } } unset data($name,allowresize) unset data($name,expand) unset data($name,forgotten) unset data($name,max) unset data($name,min) unset data($name,rsize) unset data($name,size) unset data(w:$name) destroy $w.$name tixPanedWindow:RepackWhenIdle $w } proc tixPanedWindow:paneconfigure {w name args} { upvar #0 $w data if {![info exists data($name,size)]} { error "pane \"$name\" does not exist in $w" } set len [llength $args] if {$len == 0} { set value [$data(w:$name) configure] lappend value [list -allowresize "" "" "" $data($name,allowresize)] lappend value [list -expand "" "" "" $data($name,expand)] lappend value [list -max "" "" "" $data($name,max)] lappend value [list -min "" "" "" $data($name,min)] lappend value [list -size "" "" "" $data($name,size)] return $value } if {$len == 1} { case [lindex $args 0] { -allowresize { return [list -allowresize "" "" "" $data($name,allowresize)] } -expand { return [list -expand "" "" "" $data($name,expand)] } -min { return [list -min "" "" "" $data($name,min)] } -max { return [list -max "" "" "" $data($name,max)] } -size { return [list -size "" "" "" $data($name,size)] } default { return [$data(w:$name) configure [lindex $args 0]] } } } # By default handle each of the options # set option(-allowresize) $data($name,allowresize) set option(-expand) $data($name,expand) set option(-min) $data($name,min) set option(-max) $data($name,max) set option(-size) $data($name,size) tixHandleOptions -nounknown option {-allowresize -expand -max -min -size} \ $args # # the widget options set new_args "" foreach {flag value} $args { case $flag { {-expand -min -max -allowresize -size} { } default { lappend new_args $flag lappend new_args $value } } } if {[llength $new_args] >= 2} { eval $data(w:$name) configure $new_args } # # The add-on options set data($name,allowresize) $option(-allowresize) set data($name,expand) $option(-expand) set data($name,max) $option(-max) set data($name,min) $option(-min) set data($name,rsize) $option(-size) set data($name,size) $option(-size) # # Integrity check if {$data($name,expand) < 0} { set data($name,expand) 0 } if {$data($name,size) < $data($name,min)} { set data($name,size) $data($name,min) } if {$data($name,size) > $data($name,max)} { set data($name,size) $data($name,max) } tixPanedWindow:RepackWhenIdle $w return "" } proc tixPanedWindow:panecget {w name option} { upvar #0 $w data if {![info exists data($name,size)]} { error "pane \"$name\" does not exist in $w" } case $option { {-min -max -allowresize -size} { regsub \\\- $option "" option return "$data($name,$option)" } default { return [$data(w:$name) cget $option] } } } # return the name of all panes proc tixPanedWindow:panes {w} { upvar #0 $w data return $data(items) } # set the size of a pane, specifying which direction it should # grow/shrink proc tixPanedWindow:setsize {w item size {direction next}} { upvar #0 $w data set posn [lsearch $data(items) $item] if {$posn == -1} { error "pane \"$item\" does not exist" } set diff [expr {$size - $data($item,size)}] if {$diff == 0} { return } if {$posn == 0 && $direction eq "prev"} { set direction next } if {$posn == $data(nItems)-1 && $direction eq "next"} { set direction prev } if {$data(-orientation) eq "vertical"} { set rx [winfo rooty $data(w:$item)] } else { set rx [winfo rootx $data(w:$item)] } if {$direction eq "prev"} { set rx [expr {$rx - $diff}] } elseif {$data(-orientation) eq "vertical"} { set rx [expr {$rx + [winfo height $data(w:$item)] + $diff}] incr posn } else { set rx [expr {$rx + [winfo width $data(w:$item)] + $diff}] incr posn } # Set up the panedwin in a proper state # tixPanedWindow:BtnDown $w $posn 1 tixPanedWindow:BtnMove $w $posn $rx 1 tixPanedWindow:BtnUp $w $posn 1 return $data(items) } #---------------------------------------------------------------------- # PrivateMethods: #---------------------------------------------------------------------- proc tixPanedWindow:AddSeparator {w} { global tcl_platform upvar #0 $w data set n [expr {$data(nItems)-1}] # CYGNUS: On Windows, use relief ridge and a thicker line. if {$tcl_platform(platform) eq "windows"} then { set relief "ridge" set thickness 4 } else { set relief "sunken" set thickness 2 } if {$data(-orientation) eq "vertical"} { set data(sep,$n) [frame $w.sep$n -relief $relief \ -bd 1 -height $thickness -width 10000 -bg $data(-separatorbg)] } else { set data(sep,$n) [frame $w.sep$n -relief $relief \ -bd 1 -width $thickness -height 10000 -bg $data(-separatorbg)] } set data(btn,$n) [frame $w.btn$n -relief raised \ -bd 1 -width 9 -height 9 \ -bg $data(-handlebg)] if {$data(-orientation) eq "vertical"} { set cursor sb_v_double_arrow } else { set cursor sb_h_double_arrow } $data(sep,$n) config -cursor $cursor $data(btn,$n) config -cursor $cursor foreach wid [list $data(btn,$n) $data(sep,$n)] { bind $wid \ <ButtonPress-1> [list tixPanedWindow:BtnDown $w $n] bind $wid \ <ButtonRelease-1> [list tixPanedWindow:BtnUp $w $n] bind $wid \ <Any-Enter> [list tixPanedWindow:HighlightBtn $w $n] bind $wid \ <Any-Leave> [list tixPanedWindow:DeHighlightBtn $w $n] } if {$data(-orientation) eq "vertical"} { bind $data(btn,$n) <B1-Motion> [list tixPanedWindow:BtnMove $w $n %Y] } else { bind $data(btn,$n) <B1-Motion> [list tixPanedWindow:BtnMove $w $n %X] } if {$data(-orientation) eq "vertical"} { # place $data(btn,$n) -relx 0.90 -y [expr "$data(totalsize)-5"] # place $data(sep,$n) -x 0 -y [expr "$data(totalsize)-1"] -relwidth 1 } else { # place $data(btn,$n) -rely 0.90 -x [expr "$data(totalsize)-5"] # place $data(sep,$n) -y 0 -x [expr "$data(totalsize)-1"] -relheight 1 } } proc tixPanedWindow:BtnDown {w item {fake 0}} { upvar #0 $w data if {$data(-orientation) eq "vertical"} { set spec -height } else { set spec -width } if {!$fake} { for {set i 1} {$i < $data(nItems)} {incr i} { $data(sep,$i) config -bg $data(-separatoractivebg) $spec 1 } update idletasks $data(btn,$item) config -relief sunken } tixPanedWindow:GetMotionLimit $w $item $fake if {!$fake} { grab -global $data(btn,$item) } set data(movePending) 0 } proc tixPanedWindow:Min2 {a b} { if {$a < $b} { return $a } else { return $b } } proc tixPanedWindow:GetMotionLimit {w item fake} { upvar #0 $w data set curBefore 0 set minBefore 0 set maxBefore 0 for {set i 0} {$i < $item} {incr i} { set name [lindex $data(items) $i] incr curBefore $data($name,size) incr minBefore $data($name,min) incr maxBefore $data($name,max) } set curAfter 0 set minAfter 0 set maxAfter 0 while {$i < $data(nItems)} { set name [lindex $data(items) $i] incr curAfter $data($name,size) incr minAfter $data($name,min) incr maxAfter $data($name,max) incr i } set beforeToGo [tixPanedWindow:Min2 \ [expr {$curBefore-$minBefore}] \ [expr {$maxAfter-$curAfter}]] set afterToGo [tixPanedWindow:Min2 \ [expr {$curAfter-$minAfter}] \ [expr {$maxBefore-$curBefore}]] set data(beforeLimit) [expr {$curBefore-$beforeToGo}] set data(afterLimit) [expr {$curBefore+$afterToGo}] set data(curSize) $curBefore if {!$fake} { tixPanedWindow:PlotHandles $w 1 } } # Compress the motion so that update is quick even on slow machines # # rootp = root position (either rootx or rooty) proc tixPanedWindow:BtnMove {w item rootp {fake 0}} { upvar #0 $w data set data(rootp) $rootp if {$fake} { tixPanedWindow:BtnMoveCompressed $w $item $fake } else { if {$data(movePending) == 0} { after 2 tixPanedWindow:BtnMoveCompressed $w $item set data(movePending) 1 } } } proc tixPanedWindow:BtnMoveCompressed {w item {fake 0}} { if {![winfo exists $w]} { return } upvar #0 $w data if {$data(-orientation) eq "vertical"} { set p [expr {$data(rootp)-[winfo rooty $w]}] } else { set p [expr {$data(rootp)-[winfo rootx $w]}] } if {$p == $data(curSize)} { set data(movePending) 0 return } if {$p < $data(beforeLimit)} { set p $data(beforeLimit) } if {$p >= $data(afterLimit)} { set p $data(afterLimit) } tixPanedWindow:CalculateChange $w $item $p $fake if {!$fake} { # Force the redraw to happen # update idletasks } set data(movePending) 0 } # Calculate the change in response to mouse motions # proc tixPanedWindow:CalculateChange {w item p {fake 0}} { upvar #0 $w data if {$p < $data(curSize)} { tixPanedWindow:MoveBefore $w $item $p } elseif {$p > $data(curSize)} { tixPanedWindow:MoveAfter $w $item $p } if {!$fake} { tixPanedWindow:PlotHandles $w 1 } } proc tixPanedWindow:MoveBefore {w item p} { upvar #0 $w data set n [expr {$data(curSize)-$p}] # Shrink the frames before # set from [expr {$item-1}] set to 0 tixPanedWindow:Iterate $w $from $to tixPanedWindow:Shrink $n # Adjust the frames after # set from $item set to [expr {$data(nItems)-1}] tixPanedWindow:Iterate $w $from $to tixPanedWindow:Grow $n set data(curSize) $p } proc tixPanedWindow:MoveAfter {w item p} { upvar #0 $w data set n [expr {$p-$data(curSize)}] # Shrink the frames after # set from $item set to [expr {$data(nItems)-1}] tixPanedWindow:Iterate $w $from $to tixPanedWindow:Shrink $n # Graw the frame before # set from [expr {$item-1}] set to 0 tixPanedWindow:Iterate $w $from $to tixPanedWindow:Grow $n set data(curSize) $p } proc tixPanedWindow:CancleLines {w} { upvar #0 $w data if {[info exists data(lines)]} { foreach line $data(lines) { set x1 [lindex $line 0] set y1 [lindex $line 1] set x2 [lindex $line 2] set y2 [lindex $line 3] tixTmpLine $x1 $y1 $x2 $y2 $w } catch {unset data(lines)} } } proc tixPanedWindow:PlotHandles {w transient} { global tcl_platform upvar #0 $w data set totalsize 0 set i 0 if {$data(-orientation) eq "vertical"} { set btnp [expr {[winfo width $w]-13}] } else { set h [winfo height $w] if {$h > 18} { set btnp 9 } else { set btnp [expr {$h-9}] } } set firstpane [lindex $data(items) 0] set totalsize $data($firstpane,size) if {$transient} { tixPanedWindow:CancleLines $w set data(lines) "" } for {set i 1} {$i < $data(nItems)} {incr i} { if {! $transient} { if {$data(-orientation) eq "vertical"} { place $data(btn,$i) -x $btnp -y [expr {$totalsize-4}] place $data(sep,$i) -x 0 -y [expr {$totalsize-1}] -relwidth 1 } else { place $data(btn,$i) -y $btnp -x [expr {$totalsize-5}] place $data(sep,$i) -y 0 -x [expr {$totalsize-1}] -relheight 1 } } else { if {$data(-orientation) eq "vertical"} { set x1 [winfo rootx $w] set x2 [expr {$x1 + [winfo width $w]}] set y [expr {$totalsize-1+[winfo rooty $w]}] tixTmpLine $x1 $y $x2 $y $w lappend data(lines) [list $x1 $y $x2 $y] } else { set y1 [winfo rooty $w] set y2 [expr {$y1 + [winfo height $w]}] set x [expr {$totalsize-1+[winfo rootx $w]}] tixTmpLine $x $y1 $x $y2 $w lappend data(lines) [list $x $y1 $x $y2] } } set name [lindex $data(items) $i] incr totalsize $data($name,size) } } proc tixPanedWindow:BtnUp {w item {fake 0}} { upvar #0 $w data if {!$fake} { tixPanedWindow:CancleLines $w } tixPanedWindow:UpdateSizes $w if {!$fake} { $data(btn,$item) config -relief raised grab release $data(btn,$item) } } proc tixPanedWindow:HighlightBtn {w item} { upvar #0 $w data $data(btn,$item) config -background $data(-handleactivebg) } proc tixPanedWindow:DeHighlightBtn {w item} { upvar #0 $w data $data(btn,$item) config -background $data(-handlebg) } #---------------------------------------------------------------------- # # # Geometry management routines # # #---------------------------------------------------------------------- # update the sizes of each pane according to the data($name,size) variables # proc tixPanedWindow:UpdateSizes {w} { global tcl_platform upvar #0 $w data set data(totalsize) 0 set mw [winfo width $w] set mh [winfo height $w] for {set i 0} {$i < $data(nItems)} {incr i} { set name [lindex $data(items) $i] if {$data($name,size) > 0} { if {$data(-orientation) eq "vertical"} { tixMoveResizeWindow $w.$name 0 $data(totalsize) \ $mw $data($name,size) tixMapWindow $w.$name raise $w.$name } else { tixMoveResizeWindow $w.$name $data(totalsize) 0 \ $data($name,size) $mh tixMapWindow $w.$name raise $w.$name } } else { tixUnmapWindow $w.$name } incr data(totalsize) $data($name,size) } # Reset the color and width of the separator # if {$data(-orientation) eq "vertical"} { set spec -height } else { set spec -width } # CYGNUS: On Windows, use a thicker line. if {$tcl_platform(platform) eq "windows"} then { set thickness 4 } else { set thickness 2 } for {set i 1} {$i < $data(nItems)} {incr i} { $data(sep,$i) config -bg $data(-separatorbg) $spec $thickness raise $data(sep,$i) raise $data(btn,$i) } # Invoke the callback command # if {$data(-command) != ""} { set sizes "" foreach item $data(items) { lappend sizes $data($item,size) } set bind(specs) "" tixEvalCmdBinding $w $data(-command) bind [list $sizes] } } proc tixPanedWindow:GetNaturalSizes {w} { upvar #0 $w data set data(totalsize) 0 set totalreq 0 if {$data(-orientation) eq "vertical"} { set majorspec height set minorspec width } else { set majorspec width set minorspec height } set minorsize 0 foreach name $data(items) { if {[winfo manager $w.$name] ne "tixGeometry"} { error "Geometry management error: pane \"$w.$name\" cannot be managed by \"[winfo manager $w.$name]\"\nhint: delete the line \"[winfo manager $w.$name] $w.$name ...\" from your program" } # set the minor size # set req_minor [winfo req$minorspec $w.$name] if {$req_minor > $minorsize} { set minorsize $req_minor } # Check the natural size against the max, min requirements. # Change the natural size if necessary # if {$data($name,size) <= 1} { set data($name,size) [winfo req$majorspec $w.$name] } if {$data($name,size) > 1} { # If we get zero maybe the widget was not initialized yet ... # # %% hazard : what if the window is really 1x1? # if {$data($name,size) < $data($name,min)} { set data($name,size) $data($name,min) } if {$data($name,size) > $data($name,max)} { set data($name,size) $data($name,max) } } # kludge: because a frame always returns req size of {1,1} before # the packer processes it, we do the following to mark the # pane as "size unknown" # # if {$data($name,size) == 1 && ![winfo ismapped $w.$name]} { # set data($name,size) 0 # } # Add up the total size # incr data(totalsize) $data($name,size) # Find out the request size # if {$data($name,rsize) == 0} { set rsize [winfo req$majorspec $w.$name] } else { set rsize $data($name,rsize) } if {$rsize < $data($name,min)} { set rsize $data($name,min) } if {$rsize > $data($name,max)} { set rsize $data($name,max) } incr totalreq $rsize } if {$data(-orientation) eq "vertical"} { return [list $minorsize $totalreq] } else { return [list $totalreq $minorsize] } } #-------------------------------------------------- # Handling resize #-------------------------------------------------- proc tixPanedWindow:ClientGeomProc {w type client} { tixPanedWindow:RepackWhenIdle $w } # # This monitor the sizes of the master window # proc tixPanedWindow:MasterGeomProc {w master} { tixPanedWindow:RepackWhenIdle $w } proc tixPanedWindow:RepackWhenIdle {w} { if {![winfo exist $w]} { return } upvar #0 $w data if {$data(repack) == 0} { tixWidgetDoWhenIdle tixPanedWindow:Repack $w set data(repack) 1 } } # # This monitor the sizes of the master window # proc tixPanedWindow:Repack {w} { upvar #0 $w data # Calculate the desired size of the master # set dim [tixPanedWindow:GetNaturalSizes $w] if {$data(-width) != 0} { set mreqw $data(-width) } else { set mreqw [lindex $dim 0] } if {$data(-height) != 0} { set mreqh $data(-height) } else { set mreqh [lindex $dim 1] } if !$data(-dynamicgeometry) { if {$mreqw < $data(maxReqW)} { set mreqw $data(maxReqW) } if {$mreqh < $data(maxReqH)} { set mreqh $data(maxReqH) } set data(maxReqW) $mreqw set data(maxReqH) $mreqh } if {$mreqw != [winfo reqwidth $w] || $mreqh != [winfo reqheight $w] } { if {![info exists data(counter)]} { set data(counter) 0 } if {$data(counter) < 50} { incr data(counter) tixGeometryRequest $w $mreqw $mreqh tixWidgetDoWhenIdle tixPanedWindow:Repack $w set data(repack) 1 return } } set data(counter) 0 if {$data(nItems) == 0} { set data(repack) 0 return } tixWidgetDoWhenIdle tixPanedWindow:DoRepack $w } proc tixPanedWindow:DoRepack {w} { upvar #0 $w data if {$data(-orientation) eq "vertical"} { set newSize [winfo height $w] } else { set newSize [winfo width $w] } if {$newSize <= 1} { # Probably this window is too small to see anyway # %%Kludge: I don't know if this always work. # set data(repack) 0 return } set totalExp 0 foreach name $data(items) { set totalExp [expr {$totalExp + $data($name,expand)}] } if {$newSize > $data(totalsize)} { # Grow # set toGrow [expr {$newSize-$data(totalsize)}] set p [llength $data(items)] foreach name $data(items) { set toGrow [tixPanedWindow:xGrow $w $name $toGrow $totalExp $p] if {$toGrow > 0} { set totalExp [expr {$totalExp-$data($name,expand)}] incr p -1 } else { break } } } else { # Shrink # set toShrink [expr {$data(totalsize)-$newSize}] set usedSize 0 foreach name $data(items) { set toShrink [tixPanedWindow:xShrink $w $name $toShrink \ $totalExp $newSize $usedSize] if {$toShrink > 0} { set totalExp [expr {$totalExp-$data($name,expand)}] incr usedSize $data($name,size) } else { break } } } tixPanedWindow:UpdateSizes $w tixPanedWindow:PlotHandles $w 0 set data(repack) 0 } #-------------------------------------------------- # Shrink and grow items #-------------------------------------------------- # # toGrow: how much free area to grow into # p: == 1 if $name is the last in the list of items # totalExp: used to calculate the amount of the free area that this # window can grow into # proc tixPanedWindow:xGrow {w name toGrow totalExp p} { upvar #0 $w data if {$p == 1} { set canGrow $toGrow } else { if {$totalExp == 0} { set canGrow 0 } else { set canGrow [expr {int($toGrow * $data($name,expand) / $totalExp)}] } } if {($canGrow + $data($name,size)) > $data($name,max)} { set canGrow [expr {$data($name,max) - $data($name,size)}] } incr data($name,size) $canGrow incr toGrow -$canGrow return $toGrow } proc tixPanedWindow:xShrink {w name toShrink totalExp newSize usedSize} { upvar #0 $w data if {$totalExp == 0} { set canShrink 0 } else { set canShrink [expr {int($toShrink * $data($name,expand) / $totalExp)}] } if {$data($name,size) - $canShrink < $data($name,min)} { set canShrink [expr {$data($name,size) - $data($name,min)}] } if {$usedSize + $data($name,size) - $canShrink > $newSize} { set data($name,size) [expr {$newSize - $usedSize}] return 0 } else { incr data($name,size) -$canShrink incr toShrink -$canShrink return $toShrink } } #-------------------------------------------------- # Shrink and grow items #-------------------------------------------------- proc tixPanedWindow:Shrink {w name n} { upvar #0 $w data set canShrink [expr {$data($name,size) - $data($name,min)}] if {$canShrink > $n} { incr data($name,size) -$n return 0 } elseif {$canShrink > 0} { set data($name,size) $data($name,min) incr n -$canShrink } return $n } proc tixPanedWindow:Grow {w name n} { upvar #0 $w data set canGrow [expr {$data($name,max) - $data($name,size)}] if {$canGrow > $n} { incr data($name,size) $n return 0 } elseif {$canGrow > 0} { set data($name,size) $data($name,max) incr n -$canGrow } return $n } proc tixPanedWindow:Iterate {w from to proc n} { upvar #0 $w data if {$from <= $to} { for {set i $from} {$i <= $to} {incr i} { set n [$proc $w [lindex $data(items) $i] $n] if {$n == 0} { break } } } else { for {set i $from} {$i >= $to} {incr i -1} { set n [$proc $w [lindex $data(items) $i] $n] if {$n == 0} { break } } } } Tix8.4.3/WInfo.tcl 0000644 00000001705 15231152137 0007434 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: WInfo.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # WInfo.tcl -- # # This file implements the command tixWInfo, which return various # information about a Tix widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc tixWInfo {option w} { upvar #0 $w data case $option { tix { # Is this a Tix widget? # return [info exists data(className)] } compound { # Is this a compound widget? # Currently this is the same as "tixWinfo tix" because only # Tix compilant compound widgets are supported return [info exists data(className)] } class { if {[info exists data(className)]} { return $data(className) } else { return "" } } } } Tix8.4.3/EFileBox.tcl 0000644 00000026176 15231152137 0010060 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: EFileBox.tcl,v 1.5 2004/03/28 02:44:57 hobbs Exp $ # # EFileBox.tcl -- # # Implements the Extended File Selection Box widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # ToDo # (1) If user has entered an invalid directory, give an error dialog # tixWidgetClass tixExFileSelectBox { -classname TixExFileSelectBox -superclass tixPrimitive -method { filter invoke } -flag { -browsecmd -command -dialog -dir -dircmd -directory -disablecallback -filetypes -pattern -selection -showhidden -value } -forcecall { -filetypes } -configspec { {-browsecmd browseCmd BrowseCmd ""} {-command command Command ""} {-dialog dialog Dialog ""} {-dircmd dirCmd DirCmd ""} {-directory directory Directory ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-filetypes fileTypes FileTypes ""} {-pattern pattern Pattern *} {-showhidden showHidden ShowHidden 0 tixVerifyBoolean} {-value value Value ""} } -alias { {-dir -directory} {-selection -value} } -default { {*dir.label {Directories:}} {*dir.editable true} {*dir.history true} {*dir*listbox.height 5} {*file.label Files:} {*file.editable true} {*file.history false} {*file*listbox.height 5} {*types.label {List Files of Type:}} {*types*listbox.height 3} {*TixComboBox.labelSide top} {*TixComboBox*Label.anchor w} {*dir.label.underline 0} {*file.label.underline 0} {*types.label.underline 14} {*TixComboBox.anchor e} {*TixHList.height 7} {*filelist*listbox.height 7} {*hidden.wrapLength 3c} {*hidden.justify left} } } proc tixExFileSelectBox:InitWidgetRec {w} { upvar #0 $w data global env tixChainMethod $w InitWidgetRec if {$data(-directory) eq ""} { set data(-directory) [pwd] } set data(oldDir) "" set data(flag) 0 } #---------------------------------------------------------------------- # Construct widget #---------------------------------------------------------------------- proc tixExFileSelectBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget # listbox frame set lf [frame $w.lf] # The pane that contains the two listboxes # set pane [tixPanedWindow $lf.pane -orientation horizontal] set dpane [$pane add 1 -size 160] set fpane [$pane add 2 -size 160] $dpane config -relief flat $fpane config -relief flat # The File List Pane # set data(w:file) [tixComboBox $fpane.file\ -command [list tixExFileSelectBox:Cmd-FileCombo $w]\ -prunehistory true \ -options { label.anchor w }] set data(w:filelist) \ [tixScrolledListBox $fpane.filelist \ -command [list tixExFileSelectBox:Cmd-FileList $w 1] \ -browsecmd [list tixExFileSelectBox:Cmd-FileList $w 0]] pack $data(w:file) -padx 8 -pady 4 -side top -fill x pack $data(w:filelist) -padx 8 -pady 4 -side top -fill both -expand yes # The Directory Pane # set data(w:dir) [tixComboBox $dpane.dir \ -command [list tixExFileSelectBox:Cmd-DirCombo $w]\ -prunehistory true \ -options { label.anchor w }] set data(w:dirlist) \ [tixDirList $dpane.dirlist \ -command [list tixExFileSelectBox:Cmd-DirList $w]\ -browsecmd [list tixExFileSelectBox:Browse-DirList $w]] pack $data(w:dir) -padx 8 -pady 4 -side top -fill x pack $data(w:dirlist) -padx 8 -pady 4 -side top -fill both -expand yes # The file types listbox # set data(w:types) [tixComboBox $lf.types\ -command [list tixExFileSelectBox:Cmd-TypeCombo $w]\ -options { label.anchor w }] pack $data(w:types) -padx 12 -pady 4 -side bottom -fill x -anchor w pack $pane -side top -padx 4 -pady 4 -expand yes -fill both # Buttons to the right # set bf [frame $w.bf] set data(w:ok) [button $bf.ok -text Ok -width 6 \ -underline 0 -command [list tixExFileSelectBox:Ok $w]] set data(w:cancel) [button $bf.cancel -text Cancel -width 6 \ -underline 0 -command [list tixExFileSelectBox:Cancel $w]] set data(w:hidden) [checkbutton $bf.hidden -text "Show Hidden Files"\ -underline 0\ -variable [format %s(-showhidden) $w] -onvalue 1 -offvalue 0\ -command [list tixExFileSelectBox:SetShowHidden $w]] pack $data(w:ok) $data(w:cancel) $data(w:hidden)\ -side top -fill x -padx 6 -pady 3 pack $bf -side right -fill y -pady 6 pack $lf -side left -expand yes -fill both tixDoWhenMapped $w [list tixExFileSelectBox:Map $w] if {$data(-filetypes) == ""} { $data(w:types) config -state disabled } } #---------------------------------------------------------------------- # Configuration #---------------------------------------------------------------------- proc tixExFileSelectBox:config-showhidden {w value} { upvar #0 $w data set data(-showhidden) $value tixExFileSelectBox:SetShowHidden $w } # Update both DirList and {file list and dir combo} # proc tixExFileSelectBox:config-directory {w value} { upvar #0 $w data set data(-directory) [tixFSNormalize $value] tixSetSilent $data(w:dirlist) $data(-directory) tixSetSilent $data(w:dir) $data(-directory) tixWidgetDoWhenIdle tixExFileSelectBox:LoadFiles $w reload return $data(-directory) } proc tixExFileSelectBox:config-filetypes {w value} { upvar #0 $w data $data(w:types) subwidget listbox delete 0 end foreach name [array names data] { if {[string match type,* $name]} { catch {unset data($name)} } } if {$value == ""} { $data(w:types) config -state disabled } else { $data(w:types) config -state normal foreach type $value { $data(w:types) insert end [lindex $type 1] set data(type,[lindex $type 1]) [lindex $type 0] } tixSetSilent $data(w:types) "" } } #---------------------------------------------------------------------- # MISC Methods #---------------------------------------------------------------------- proc tixExFileSelectBox:SetShowHidden {w} { upvar #0 $w data $data(w:dirlist) config -showhidden $data(-showhidden) tixWidgetDoWhenIdle tixExFileSelectBox:LoadFiles $w reload } # User activates the dir combobox # # proc tixExFileSelectBox:Cmd-DirCombo {w args} { upvar #0 $w data set dir [tixEvent flag V] set dir [tixFSExternal $dir] if {![file isdirectory $dir]} { return } set dir [tixFSNormalize $dir] $data(w:dirlist) config -value $dir set data(-directory) $dir } # User activates the dir list # # proc tixExFileSelectBox:Cmd-DirList {w args} { upvar #0 $w data set dir $data(-directory) catch {set dir [tixEvent flag V]} set dir [tixFSNormalize [tixFSExternal $dir]] tixSetSilent $data(w:dir) $dir set data(-directory) $dir tixWidgetDoWhenIdle tixExFileSelectBox:LoadFiles $w noreload } # User activates the dir list # # proc tixExFileSelectBox:Browse-DirList {w args} { upvar #0 $w data set dir [tixEvent flag V] set dir [tixFSNormalize [tixFSExternal $dir]] tixExFileSelectBox:Cmd-DirList $w $dir } proc tixExFileSelectBox:IsPattern {w string} { return [regexp "\[\[\\\{\\*\\?\]" $string] } proc tixExFileSelectBox:Cmd-FileCombo {w value} { upvar #0 $w data if {[tixEvent type] eq "<Return>"} { tixExFileSelectBox:Ok $w } } proc tixExFileSelectBox:Ok {w} { upvar #0 $w data set value [string trim [$data(w:file) subwidget entry get]] if {$value == ""} { set value $data(-pattern) } tixSetSilent $data(w:file) $value if {[tixExFileSelectBox:IsPattern $w $value]} { set data(-pattern) $value tixWidgetDoWhenIdle tixExFileSelectBox:LoadFiles $w reload } else { # ensure absolute path set value [file join $data(-directory) $value]; # native set data(-value) [tixFSNativeNorm $value] tixExFileSelectBox:Invoke $w } } proc tixExFileSelectBox:Cancel {w} { upvar #0 $w data if {$data(-dialog) != ""} { eval $data(-dialog) popdown } } proc tixExFileSelectBox:Invoke {w} { upvar #0 $w data # Save some old history # $data(w:dir) addhistory [$data(w:dir) cget -value] $data(w:file) addhistory $data(-pattern) $data(w:file) addhistory $data(-value) if {$data(-dialog) != ""} { eval $data(-dialog) popdown } if {$data(-command) != "" && !$data(-disablecallback)} { set bind(specs) "%V" set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-command) bind $data(-value) } } proc tixExFileSelectBox:Cmd-FileList {w invoke args} { upvar #0 $w data set index [lindex [$data(w:filelist) subwidget listbox curselection] 0] if {$index == ""} { set index 0 } set file [$data(w:filelist) subwidget listbox get $index] tixSetSilent $data(w:file) $file set value [file join $data(-directory) $file] set data(-value) [tixFSNativeNorm $value] if {$invoke == 1} { tixExFileSelectBox:Invoke $w } elseif {$data(-browsecmd) != ""} { tixEvalCmdBinding $w $data(-browsecmd) "" $data(-value) } } proc tixExFileSelectBox:Cmd-TypeCombo {w args} { upvar #0 $w data set value [tixEvent flag V] if {[info exists data(type,$value)]} { set data(-pattern) $data(type,$value) tixSetSilent $data(w:file) $data(-pattern) tixWidgetDoWhenIdle tixExFileSelectBox:LoadFiles $w reload } } proc tixExFileSelectBox:LoadFiles {w flag} { upvar #0 $w data if {$flag ne "reload" && $data(-directory) eq $data(oldDir)} { return } if {![winfo ismapped [winfo toplevel $w]]} { tixDoWhenMapped [winfo toplevel $w] \ [list tixExFileSelectBox:LoadFiles $w $flag] return } set listbox [$data(w:filelist) subwidget listbox] $listbox delete 0 end set data(-value) "" tixBusy $w on [$data(w:dirlist) subwidget hlist] # wrap in a catch so you can't get stuck in a Busy state if {[catch { foreach name [tixFSListDir $data(-directory) 0 1 0 \ $data(-showhidden) $data(-pattern)] { $listbox insert end $name } if {$data(oldDir) ne $data(-directory)} { # Otherwise if the user has already selected a file and then # presses "show hidden", the selection won't be wiped out. tixSetSilent $data(w:file) $data(-pattern) } } err]} { tixDebug "tixExFileSelectBox:LoadFiles error for $w\n$err" } set data(oldDir) $data(-directory) tixWidgetDoWhenIdle tixBusy $w off [$data(w:dirlist) subwidget hlist] } # # Called when thd listbox is first mapped proc tixExFileSelectBox:Map {w} { if {![winfo exists $w]} { return } upvar #0 $w data set bind(specs) "%V" set bind(%V) $data(-value) tixEvalCmdBinding $w bind \ [list tixExFileSelectBox:Cmd-DirList $w] $data(-directory) } #---------------------------------------------------------------------- # Public commands # #---------------------------------------------------------------------- proc tixExFileSelectBox:invoke {w} { tixExFileSelectBox:Invoke $w } proc tixExFileSelectBox:filter {w} { tixExFileSelectBox:LoadFiles $w reload } Tix8.4.3/STList.tcl 0000644 00000004574 15231152137 0007603 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: STList.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $ # # STList.tcl -- # # This file implements Scrolled TList widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixScrolledTList { -classname TixScrolledTList -superclass tixScrolledWidget -method { } -flag { } -configspec { } -default { {.scrollbar auto} {*borderWidth 1} {*tlist.background #c3c3c3} {*tlist.highlightBackground #d9d9d9} {*tlist.relief sunken} {*tlist.takeFocus 1} {*Scrollbar.takeFocus 0} } } proc tixScrolledTList:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:tlist) \ [tixTList $w.tlist] set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical ] set data(pw:client) $data(w:tlist) } proc tixScrolledTList:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:tlist) config \ -xscrollcommand "$data(w:hsb) set"\ -yscrollcommand "$data(w:vsb) set"\ -sizecmd [list tixScrolledWidget:Configure $w] $data(w:hsb) config -command "$data(w:tlist) xview" $data(w:vsb) config -command "$data(w:tlist) yview" } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixScrolledTList:config-takefocus {w value} { upvar #0 $w data $data(w:tlist) config -takefocus $value } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement #---------------------------------------------------------------------- proc tixScrolledTList:GeometryInfo {w mW mH} { upvar #0 $w data return [$data(w:tlist) geometryinfo $mW $mH] } Tix8.4.3/IconView.tcl 0000644 00000013736 15231152137 0010144 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: IconView.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # IconView.tcl -- # # This file implements the Icon View widget: the "icon" view mode of # the MultiView widget. It implements: # # (1) Creation of the icons in the canvas subwidget. # (2) Automatic arrangement of the objects # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixIconView { -classname TixIconView -superclass tixCObjView -method { add arrange } -flag { -autoarrange } -static { } -configspec { {-autoarrange autoArrange AutoArrange 0 tixVerifyBoolean} } -default { {.scrollbar auto} {*borderWidth 1} {*canvas.background #c3c3c3} {*canvas.highlightBackground #d9d9d9} {*canvas.relief sunken} {*canvas.takeFocus 1} {*Scrollbar.takeFocus 0} } -forcecall { } } proc tixIconView:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget } proc tixIconView:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings set c $data(w:canvas) bind $c <1> "tixIconView:StartDrag $w %x %y" bind $c <B1-Motion> "tixIconView:Drag $w %x %y" bind $c <ButtonRelease-1> "tixIconView:EndDrag $w" } proc tixIconView:StartDrag {w x y} { upvar #0 $w data global lastX lastY set c $data(w:canvas) $c raise current set lastX [$c canvasx $x] set lastY [$c canvasy $y] } proc tixIconView:Drag {w x y} { upvar #0 $w data global lastX lastY set c $data(w:canvas) set x [$c canvasx $x] set y [$c canvasy $y] $c move current [expr $x-$lastX] [expr $y-$lastY] set lastX $x set lastY $y } proc tixIconView:EndDrag {w} { upvar #0 $w data tixCallMethod $w adjustscrollregion } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixIconView:add {w tag image text} { upvar #0 $w data set cmp [image create compound -window $data(w:canvas)] $cmp add image -image $image $cmp add line $cmp add text -text $text set id [$data(w:canvas) create image 0 0 -image $cmp -anchor nw] $data(w:canvas) addtag $tag withtag $id if {$data(-autoarrange)} { tixWidgetDoWhenIdle tixIconView:Arrange $w 1 } } # Do it in an idle handler, so that Arrange is not called before the window # is properly mapped. # proc tixIconView:arrange {w} { tixWidgetDoWhenIdle tixIconView:Arrange $w 1 } proc tixIconView:PackOneRow {w row y maxH bd padX padY} { upvar #0 $w data set iX [expr $bd+$padX] foreach i $row { set box [$data(w:canvas) bbox $i] set W [expr [lindex $box 2]-[lindex $box 0]+1] set H [expr [lindex $box 3]-[lindex $box 1]+1] set iY [expr $y + $maxH - $H] $data(w:canvas) coords $i $iX $iY incr iX [expr $W+$padX] } } # virtual method # proc tixIconView:PlaceWindow {w} { upvar #0 $w data if {$data(-autoarrange)} { tixWidgetDoWhenIdle tixIconView:Arrange $w 0 } tixChainMethod $w PlaceWindow } proc tixIconView:Arrange {w adjust} { upvar #0 $w data set padX 2 set padY 2 tixIconView:ArrangeGrid $w $padX $padY if {$adjust} { tixCallMethod $w adjustscrollregion } } # the items are not packed # proc tixIconView:ArrangeGrid {w padX padY} { upvar #0 $w data set maxW 0 set maxH 0 foreach item [$data(w:canvas) find all] { set box [$data(w:canvas) bbox $item] set itemW [expr [lindex $box 2]-[lindex $box 0]+1] set itemH [expr [lindex $box 3]-[lindex $box 1]+1] if {$maxW < $itemW} { set maxW $itemW } if {$maxH < $itemH} { set maxH $itemH } } if {$maxW == 0 || $maxH == 0} { return } set winW [tixWinWidth $data(w:canvas)] set bd [expr [$data(w:canvas) cget -bd]+\ [$data(w:canvas) cget -highlightthickness]] set cols [expr $winW / ($maxW+$padX)] if {$cols < 1} { set cols 1 } set y $bd set c 0 set x $bd foreach item [$data(w:canvas) find all] { set box [$data(w:canvas) bbox $item] set itemW [expr [lindex $box 2]-[lindex $box 0]+1] set itemH [expr [lindex $box 3]-[lindex $box 1]+1] set iX [expr $x + $padX + ($maxW-$itemW)/2] set iY [expr $y + $padY + ($maxH-$itemH) ] $data(w:canvas) coords $item $iX $iY incr c incr x [expr $maxW + $padY] if {$c == $cols} { set c 0 incr y [expr $maxH + $padY] set x $bd } } } # the items are packed # proc tixIconView:ArrangePack {w padX padY} { upvar #0 $w data set winW [tixWinWidth $data(w:canvas)] set bd [expr [$data(w:canvas) cget -bd]+\ [$data(w:canvas) cget -highlightthickness]] set y [expr $bd + $padY] set maxH 0 set usedW $padX set row "" foreach item [$data(w:canvas) find all] { set box [$data(w:canvas) bbox $item] set itemW [expr [lindex $box 2]-[lindex $box 0]+1] set itemH [expr [lindex $box 3]-[lindex $box 1]+1] if {[expr $usedW + $itemW] > $winW} { if {$row == ""} { # only one item in this row # $data(w:canvas) coords $item [expr $bd + $padX] $y incr y [expr $itemH+$padY] continue } else { # this item is not in this row. Arrange the previous items # first # tixIconView:PackOneRow $w $row $y $maxH $bd $padX $padY incr y $maxH set row "" set maxH 0 set usedW $padX } } lappend row $item if {$maxH < $itemH} { set maxH $itemH } incr usedW [expr $padX+$itemW] } if {$row != ""} { tixIconView:PackOneRow $w $row $y $maxH $bd $padX $padY } } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- Tix8.4.3/license.terms 0000644 00000005414 15231152137 0010405 0 ustar 00 Copyright (c) 1993-1999 Ioi Kim Lam. Copyright (c) 2000-2001 Tix Project Group. Copyright (c) 2004 ActiveState This software is copyrighted by the above entities and other parties. The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. Modifications to this software may be copyrighted by their authors and need not follow the licensing terms described here, provided that the new terms are clearly indicated on the first page of each file where they apply. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the terms specified in this license. ---------------------------------------------------------------------- Parts of this software are based on the Tcl/Tk software copyrighted by the Regents of the University of California, Sun Microsystems, Inc., and other parties. The original license terms of the Tcl/Tk software distribution is included in the file docs/license.tcltk. Parts of this software are based on the HTML Library software copyrighted by Sun Microsystems, Inc. The original license terms of the HTML Library software distribution is included in the file docs/license.html_lib. Tix8.4.3/SText.tcl 0000644 00000006133 15231152137 0007461 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: SText.tcl,v 1.4 2001/12/09 05:04:02 idiscovery Exp $ # # SText.tcl -- # # This file implements Scrolled Text widgets # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixScrolledText { -classname TixScrolledText -superclass tixScrolledWidget -method { } -flag { } -static { } -configspec { } -default { {.scrollbar both} {*Scrollbar.takeFocus 0} } -forcecall { -scrollbar } } proc tixScrolledText:ConstructWidget {w} { upvar #0 $w data global tcl_platform tixChainMethod $w ConstructWidget set data(w:text) \ [text $w.text] set data(w:hsb) \ [scrollbar $w.hsb -orient horizontal] set data(w:vsb) \ [scrollbar $w.vsb -orient vertical] if {$data(-sizebox) && $tcl_platform(platform) == "windows"} { # set data(w:sizebox) [ide_sizebox $w.sizebox] } set data(pw:client) $data(w:text) } proc tixScrolledText:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:text) config \ -xscrollcommand "tixScrolledText:XScroll $w"\ -yscrollcommand "tixScrolledText:YScroll $w" $data(w:hsb) config -command "$data(w:text) xview" $data(w:vsb) config -command "$data(w:text) yview" } #---------------------------------------------------------------------- # # option configs #---------------------------------------------------------------------- proc tixScrolledText:config-takefocus {w value} { upvar #0 $w data $data(w:text) config -takefocus $value } proc tixScrolledText:config-scrollbar {w value} { upvar #0 $w data if {[string match "auto*" $value]} { set value "both" } set data(-scrollbar) $value tixChainMethod $w config-scrollbar $value return $value } #---------------------------------------------------------------------- # # Widget commands #---------------------------------------------------------------------- #---------------------------------------------------------------------- # # Private Methods #---------------------------------------------------------------------- #---------------------------------------------------------------------- # virtual functions to query the client window's scroll requirement #---------------------------------------------------------------------- proc tixScrolledText:GeometryInfo {w mW mH} { upvar #0 $w data return [list "$data(x,first) $data(x,last)" "$data(y,first) $data(y,last)"] } proc tixScrolledText:XScroll {w first last} { upvar #0 $w data set data(x,first) $first set data(x,last) $last $data(w:hsb) set $first $last tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } proc tixScrolledText:YScroll {w first last} { upvar #0 $w data set data(y,first) $first set data(y,last) $last $data(w:vsb) set $first $last tixWidgetDoWhenIdle tixScrolledWidget:Configure $w } Tix8.4.3/EFileDlg.tcl 0000644 00000003266 15231152137 0010031 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: EFileDlg.tcl,v 1.3 2002/01/24 09:13:58 idiscovery Exp $ # # EFileDlg.tcl -- # # Implements the Extended File Selection Dialog widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # foreach fun {tkButtonInvoke} { if {![llength [info commands $fun]]} { tk::unsupported::ExposePrivateCommand $fun } } unset fun tixWidgetClass tixExFileSelectDialog { -classname TixExFileSelectDialog -superclass tixDialogShell -method {} -flag { -command } -configspec { {-command command Command ""} {-title title Title "Select A File"} } } proc tixExFileSelectDialog:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:fsbox) [tixExFileSelectBox $w.fsbox -dialog $w \ -command $data(-command)] pack $data(w:fsbox) -expand yes -fill both } proc tixExFileSelectDialog:config-command {w value} { upvar #0 $w data $data(w:fsbox) config -command $value } proc tixExFileSelectDialog:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings bind $w <Alt-Key-f> "focus [$data(w:fsbox) subwidget file]" bind $w <Alt-Key-t> "focus [$data(w:fsbox) subwidget types]" bind $w <Alt-Key-d> "focus [$data(w:fsbox) subwidget dir]" bind $w <Alt-Key-o> "tkButtonInvoke [$data(w:fsbox) subwidget ok]" bind $w <Alt-Key-c> "tkButtonInvoke [$data(w:fsbox) subwidget cancel]" bind $w <Alt-Key-s> "tkButtonInvoke [$data(w:fsbox) subwidget hidden]" } Tix8.4.3/pkgIndex.tcl 0000644 00000000172 15231152137 0010160 0 ustar 00 if {[catch {package require Tcl 8.4}]} return package ifneeded Tix 8.4.3 \ [list load [file join $dir libTix.so] Tix] Tix8.4.3/DirBox.tcl 0000644 00000012461 15231152137 0007602 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: DirBox.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # DirBox.tcl -- # # Implements the tixDirSelectBox widget. # # - overrides the -browsecmd and -command options of the # HList subwidget # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixDirSelectBox { -classname TixDirSelectBox -superclass tixPrimitive -method { } -flag { -command -disablecallback -value } -configspec { {-command command Command ""} {-disablecallback disableCallback DisableCallback 0 tixVerifyBoolean} {-label label Label "Directory:"} {-value value Value ""} } -forcecall { -value -label } -default { {*combo*listbox.height 5} {*combo.label.anchor w} {*combo.labelSide top} {*combo.history true} {*combo.historyLimit 20} } } proc tixDirSelectBox:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixDirSelectBox:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:dircbx) [tixFileComboBox $w.dircbx] set data(w:dirlist) [tixDirList $w.dirlist] pack $data(w:dircbx) -side top -fill x -padx 4 -pady 2 pack $data(w:dirlist) -side top -fill both -expand yes -padx 4 -pady 2 if {$data(-value) eq ""} { set data(-value) [pwd] } } proc tixDirSelectBox:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:dircbx) config -command [list tixDirSelectBox:Cmd-DirCbx $w] $data(w:dirlist) config -command [list tixDirSelectBox:Cmd-DirList $w]\ -browsecmd [list tixDirSelectBox:Browse-DirList $w] } #---------------------------------------------------------------------- # Incoming event: User #---------------------------------------------------------------------- # User activates the FileComboBox # # proc tixDirSelectBox:Cmd-DirCbx {w args} { upvar #0 $w data set fInfo [tixEvent value] set path [lindex $fInfo 0] if {![file exists $path]} { # 1.1 Check for validity. The pathname cannot contain invalid chars # if {![tixFSIsValid $path]} { tk_messageBox -title "Invalid Directory" \ -type ok -icon error \ -message "\"$path\" is not a valid directory name" $data(w:dircbx) config \ -text [tixFSDisplayName [file normalize $data(-value)]] \ -directory $data(-value) return } # 1.2 Prompt for creation # set choice [tk_messageBox -title "Create Directory?" \ -type yesno -icon question \ -message "Directory \"$path\" does not exist.\ \nDo you want to create it?"] if {$choice eq "yes" && [catch {file mkdir [file dirname $path]} err]} { tk_messageBox -title "Error Creating Directory" \ -icon error -type ok \ -message "Cannot create directory \"$path\":\n$err" set choice "no" } if {$choice eq "no"} { $data(w:dircbx) config \ -text [tixFSDisplayName [file normalize $data(-value)]] \ -directory $data(-value) return } tixDirSelectBox:SetValue $w $path 1 1 } elseif {![file isdirectory $path]} { # 2.1: Can't choose a non-directory file # tk_messageBox -title "Invalid Directory" \ -type ok -icon error \ -message "\"$path\" is not a directory" $data(w:dircbx) config \ -text [tixFSDisplayName [file normalize $data(-value)]] \ -directory $data(-value) return } else { # OK. It is an existing directory # tixDirSelectBox:SetValue $w $path 1 1 } } # User activates the dir list # # proc tixDirSelectBox:Cmd-DirList {w args} { upvar #0 $w data set dir $data(-value) catch {set dir [tixEvent flag V]} set dir [tixFSNormalize $dir] tixDirSelectBox:SetValue $w $dir 0 0 } # User browses the dir list # # proc tixDirSelectBox:Browse-DirList {w args} { upvar #0 $w data set dir $data(-value) catch {set dir [tixEvent flag V]} set dir [tixFSNormalize $dir] tixDirSelectBox:SetValue $w $dir 0 0 } #---------------------------------------------------------------------- # Incoming event: Application #---------------------------------------------------------------------- proc tixDirSelectBox:config-value {w value} { upvar #0 $w data set value [tixFSNormalize $value] tixDirSelectBox:SetValue $w $value 1 1 return $value } proc tixDirSelectBox:config-label {w value} { upvar #0 $w data $data(w:dircbx) subwidget combo config -label $value } #---------------------------------------------------------------------- # # Internal functions # #---------------------------------------------------------------------- # Arguments: # callback:Bool Should we invoke the the -command. # setlist:Bool Should we set the -value of the DirList subwidget. # proc tixDirSelectBox:SetValue {w dir callback setlist} { upvar #0 $w data set data(-value) $dir $data(w:dircbx) config -text [tixFSDisplayName $dir] -directory $dir if {$setlist && [file isdirectory $dir]} { tixSetSilent $data(w:dirlist) $dir } if {$callback} { if {!$data(-disablecallback) && [llength $data(-command)]} { set bind(specs) {%V} set bind(%V) $data(-value) tixEvalCmdBinding $w $data(-command) bind $data(-value) } } } Tix8.4.3/Utils.tcl 0000644 00000025044 15231152137 0007514 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: Utils.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # Util.tcl -- # # The Tix utility commands. Some of these commands are # replacement of or extensions to the existing TK # commands. Occasionaly, you have to use the commands inside # this file instead of thestandard TK commands to make your # applicatiion work better with Tix. Please read the # documentations (programmer's guide, man pages) for information # about these utility commands. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # # kludge: should be able to handle all kinds of flags # now only handles "-flag value" pairs. # proc tixHandleArgv {p_argv p_options validFlags} { upvar $p_options opt upvar $p_argv argv set old_argv $argv set argv "" foreac {flag value} $old_argv { if {[lsearch $validFlags $flag] != -1} { # The caller will handle this option exclusively # It won't be added back to the original arglist # eval $opt($flag,action) $value } else { # The caller does not handle this option # lappend argv $flag lappend argv $value } } } #----------------------------------------------------------------------- # tixDisableAll - # # Disable all members in a sub widget tree # proc tixDisableAll {w} { foreach x [tixDescendants $w] { catch {$x config -state disabled} } } #---------------------------------------------------------------------- # tixEnableAll - # # enable all members in a sub widget tree # proc tixEnableAll {w} { foreach x [tixDescendants $w] { catch {$x config -state normal} } } #---------------------------------------------------------------------- # tixDescendants - # # Return a list of all the member of a widget subtree, including # the tree's root widget. # proc tixDescendants {parent} { set des "" lappend des $parent foreach w [winfo children $parent] { foreach x [tixDescendants $w] { lappend des $x } } return $des } #---------------------------------------------------------------------- # tixTopLevel - # # Create a toplevel widget and unmap it immediately. This will ensure # that this toplevel widgets will not be popped up prematurely when you # create Tix widgets inside it. # # "tixTopLevel" also provide options for you to specify the appearance # and behavior of this toplevel. # # # proc tixTopLevel {w args} { set opt (-geometry) "" set opt (-minsize) "" set opt (-maxsize) "" set opt (-width) "" set opt (-height) "" eval [linsert $args 0 toplevel $w] wm withdraw $w } # This is a big kludge # # Substitutes all [...] and $.. in the string in $args # proc tixInt_Expand {args} { return $args } # Print out all the config options of a widget # proc tixPConfig {w} { puts [join [lsort [$w config]] \n] } proc tixAppendBindTag {w tag} { bindtags $w [concat [bindtags $w] $tag] } proc tixAddBindTag {w tag} { bindtags $w [concat $tag [bindtags $w] ] } proc tixSubwidgetRef {sub} { return $::tixSRef($sub) } proc tixSubwidgetRetCreate {sub ref} { set ::tixSRef($sub) $ref } proc tixSubwidgetRetDelete {sub} { catch {unset ::tixSRef($sub)} } proc tixListboxGetCurrent {listbox} { return [tixEvent flag V] } # tixSetMegaWidget -- # # Associate a subwidget with its mega widget "owner". This is mainly # used when we add a new bindtag to a subwidget and we need to find out # the name of the mega widget inside the binding. # proc tixSetMegaWidget {w mega {type any}} { set ::tixMega($type,$w) $mega } proc tixGetMegaWidget {w {type any}} { return $::tixMega($type,$w) } proc tixUnsetMegaWidget {w} { if {[info exists ::tixMega($w)]} { unset ::tixMega($w) } } # tixBusy : display busy cursors on a window # # # Should flush the event queue (but not do any idle tasks) before blocking # the target window (I am not sure if it is aready doing so ) # # ToDo: should take some additional windows to raise # proc tixBusy {w flag {focuswin ""}} { if {[info command tixInputOnly] == ""} { return } global tixBusy set toplevel [winfo toplevel $w] if {![info exists tixBusy(cursor)]} { set tixBusy(cursor) watch # set tixBusy(cursor) "[tix getbitmap hourglass] \ # [string range [tix getbitmap hourglass.mask] 1 end]\ # black white" } if {$toplevel eq "."} { set inputonly0 .__tix__busy0 set inputonly1 .__tix__busy1 set inputonly2 .__tix__busy2 set inputonly3 .__tix__busy3 } else { set inputonly0 $toplevel.__tix__busy0 set inputonly1 $toplevel.__tix__busy1 set inputonly2 $toplevel.__tix__busy2 set inputonly3 $toplevel.__tix__busy3 } if {![winfo exists $inputonly0]} { for {set i 0} {$i < 4} {incr i} { tixInputOnly [set inputonly$i] -cursor $tixBusy(cursor) } } if {$flag eq "on"} { if {$focuswin != "" && [winfo id $focuswin] != 0} { if {[info exists tixBusy($focuswin,oldcursor)]} { return } set tixBusy($focuswin,oldcursor) [$focuswin cget -cursor] $focuswin config -cursor $tixBusy(cursor) set x1 [expr {[winfo rootx $focuswin]-[winfo rootx $toplevel]}] set y1 [expr {[winfo rooty $focuswin]-[winfo rooty $toplevel]}] set W [winfo width $focuswin] set H [winfo height $focuswin] set x2 [expr {$x1 + $W}] set y2 [expr {$y1 + $H}] if {$y1 > 0} { tixMoveResizeWindow $inputonly0 0 0 10000 $y1 } if {$x1 > 0} { tixMoveResizeWindow $inputonly1 0 0 $x1 10000 } tixMoveResizeWindow $inputonly2 0 $y2 10000 10000 tixMoveResizeWindow $inputonly3 $x2 0 10000 10000 for {set i 0} {$i < 4} {incr i} { tixMapWindow [set inputonly$i] tixRaiseWindow [set inputonly$i] } tixFlushX $w } else { tixMoveResizeWindow $inputonly0 0 0 10000 10000 tixMapWindow $inputonly0 tixRaiseWindow $inputonly0 } } else { tixUnmapWindow $inputonly0 tixUnmapWindow $inputonly1 tixUnmapWindow $inputonly2 tixUnmapWindow $inputonly3 if {$focuswin != "" && [winfo id $focuswin] != 0} { if {[info exists tixBusy($focuswin,oldcursor)]} { $focuswin config -cursor $tixBusy($focuswin,oldcursor) if {[info exists tixBusy($focuswin,oldcursor)]} { unset tixBusy($focuswin,oldcursor) } } } } } proc tixOptionName {w} { return [string range $w 1 end] } proc tixSetSilent {chooser value} { $chooser config -disablecallback true $chooser config -value $value $chooser config -disablecallback false } # This command is useful if you want to ingore the arguments # passed by the -command or -browsecmd options of the Tix widgets. E.g # # tixFileSelectDialog .c -command "puts foo; tixBreak" # # proc tixBreak {args} {} #---------------------------------------------------------------------- # tixDestroy -- deletes a Tix class object (not widget classes) #---------------------------------------------------------------------- proc tixDestroy {w} { upvar #0 $w data set destructor "" if {[info exists data(className)]} { catch { set destructor [tixGetMethod $w $data(className) Destructor] } } if {$destructor != ""} { $destructor $w } catch {rename $w ""} catch {unset data} return "" } proc tixPushGrab {args} { global tix_priv if {![info exists tix_priv(grab-list)]} { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } set len [llength $args] if {$len == 1} { set opt "" set w [lindex $args 0] } elseif {$len == 2} { set opt [lindex $args 0] set w [lindex $args 1] } else { error "wrong # of arguments: tixPushGrab ?-global? window" } # Not everyone will call tixPushGrab. If someone else has a grab already # save that one as well, so that we can restore that later # set last [lindex $tix_priv(grab-list) end] set current [grab current $w] if {$current ne "" && $current ne $last} { # Someone called "grab" directly # lappend tix_priv(grab-list) $current lappend tix_priv(grab-mode) [grab status $current] lappend tix_priv(grab-nopush) 1 } # Now push myself into the stack # lappend tix_priv(grab-list) $w lappend tix_priv(grab-mode) $opt lappend tix_priv(grab-nopush) 0 if {$opt eq "-global"} { grab -global $w } else { grab $w } } proc tixPopGrab {} { global tix_priv if {![info exists tix_priv(grab-list)]} { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } set len [llength $tix_priv(grab-list)] if {$len <= 0} { error "no window is grabbed by tixGrab" } set w [lindex $tix_priv(grab-list) end] grab release $w if {$len > 1} { set tix_priv(grab-list) [lrange $tix_priv(grab-list) 0 end-1] set tix_priv(grab-mode) [lrange $tix_priv(grab-mode) 0 end-1] set tix_priv(grab-nopush) [lrange $tix_priv(grab-nopush) 0 end-1] set w [lindex $tix_priv(grab-list) end] set m [lindex $tix_priv(grab-list) end] set np [lindex $tix_priv(grab-nopush) end] if {$np == 1} { # We have a grab set by "grab" # set len [llength $tix_priv(grab-list)] if {$len > 1} { set tix_priv(grab-list) [lrange $tix_priv(grab-list) 0 end-1] set tix_priv(grab-mode) [lrange $tix_priv(grab-mode) 0 end-1] set tix_priv(grab-nopush) \ [lrange $tix_priv(grab-nopush) 0 end-1] } else { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } } if {$m == "-global"} { grab -global $w } else { grab $w } } else { set tix_priv(grab-list) "" set tix_priv(grab-mode) "" set tix_priv(grab-nopush) "" } } proc tixWithinWindow {wid rootX rootY} { set wc [winfo containing $rootX $rootY] if {$wid eq $wc} { return 1 } # no see if it is an enclosing parent set rx1 [winfo rootx $wid] set ry1 [winfo rooty $wid] set rw [winfo width $wid] set rh [winfo height $wid] set rx2 [expr {$rx1+$rw}] set ry2 [expr {$ry1+$rh}] if {$rootX >= $rx1 && $rootX < $rx2 && $rootY >= $ry1 && $rootY < $ry2} { return 1 } else { return 0 } } proc tixWinWidth {w} { set W [winfo width $w] set bd [expr {[$w cget -bd] + [$w cget -highlightthickness]}] return [expr {$W - 2*$bd}] } proc tixWinHeight {w} { set H [winfo height $w] set bd [expr {[$w cget -bd] + [$w cget -highlightthickness]}] return [expr {$H - 2*$bd}] } # junk? # proc tixWinCmd {w} { return [winfo command $w] } Tix8.4.3/FileDlg.tcl 0000644 00000004211 15231152137 0007713 0 ustar 00 # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FileDlg.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # FileDlg.tcl -- # # Implements the File Selection Dialog widget. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixFileSelectDialog { -classname TixFileSelectDialog -superclass tixStdDialogShell -method { } -flag { -command } -configspec { {-command command Command ""} {-title title Title "Select A File"} } } proc tixFileSelectDialog:ConstructTopFrame {w frame} { upvar #0 $w data tixChainMethod $w ConstructTopFrame $frame set data(w:fsbox) [tixFileSelectBox $frame.fsbox \ -command [list tixFileSelectDialog:Invoke $w]] pack $data(w:fsbox) -expand yes -fill both } proc tixFileSelectDialog:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings $data(w:btns) subwidget ok config -command "$data(w:fsbox) invoke" \ -underline 0 $data(w:btns) subwidget apply config -command "$data(w:fsbox) filter" \ -text Filter -underline 0 $data(w:btns) subwidget cancel config -command "wm withdraw $w" \ -underline 0 $data(w:btns) subwidget help config -underline 0 bind $w <Alt-Key-l> "focus [$data(w:fsbox) subwidget filelist]" bind $w <Alt-Key-d> "focus [$data(w:fsbox) subwidget dirlist]" bind $w <Alt-Key-s> "focus [$data(w:fsbox) subwidget selection]" bind $w <Alt-Key-t> "focus [$data(w:fsbox) subwidget filter]" bind $w <Alt-Key-o> "tkButtonInvoke [$data(w:btns) subwidget ok]" bind $w <Alt-Key-f> "tkButtonInvoke [$data(w:btns) subwidget apply]" bind $w <Alt-Key-c> "tkButtonInvoke [$data(w:btns) subwidget cancel]" bind $w <Alt-Key-h> "tkButtonInvoke [$data(w:btns) subwidget help]" } proc tixFileSelectDialog:Invoke {w filename} { upvar #0 $w data wm withdraw $w if {$data(-command) != ""} { set bind(specs) "%V" set bind(%V) $filename tixEvalCmdBinding $w $data(-command) bind $filename } }
| ver. 1.4 |
Github
|
.
| PHP 8.2.32 | Generation time: 0.14 |
proxy
|
phpinfo
|
Settings