New composite widgets

From: Erick Gallesio <eg_at_kaolin.unice.fr>
Date: Tue, 04 Apr 1995 12:30:40 +0100

Since this code works with 2.1.6 and could be useful, I send it here.

Two new composite widgets are available:
        - <Scroll-canvas>
        - <Scroll-text>

<Scroll-canvas> use both vertical and horizontal scrollbars. <Scroll-text>
supports only vertical scrollbar (support of horizontal scrollbar will be
added when Tk4.0 will be added).

Scollbar side is seen as a slot. Consequently you can do things like

        (define c (make <Scroll-Canvas> :scroll-region "0 0 1000 1000"
                                        :h-scroll-side 'bottom))
        (pack c)
        ;; Put vertical scrollbar on the left side
        (set! (v-scroll-side c) 'left)
        ;; Delete h-scroll
        (set! (h-scroll-side c) #f)
        
Files are also available on kaolin.unice.fr:/pub/Contrib

                -- Erick

begin 644 New-Composite.tar.gz
M'XL( /PI_at_2\" ^U86V_;-A3.:_PK3M4'RT/DVH[MH%X6K C:(<#6%7. /0P#
M2DN435_at_259)6XC[TM^^0U,VW),ME638SB!*)Y\Z/YY!G[ L>13Y),B+;4LT/
MGF!T.YUAOP\'T#_I#'KX%[HG0_/7C)-AOP,P..EW>MUAMS? Z5ZWWSF SL$_
M,!92$0%P0*<WTZ6"AP?_O?$]CH9^P!A\$, APA\?""20X5-"&W\5S.$0P/,
MQ_at_8P<&X0 SZ/4RZ9HG#%_at_BE5C4K>.4^7_at_DUG"MSS%G3?OCT^PD=?/P;P7C!_
M#C^1***2<?#_at_XGCLG7_\;?SF_7A\ :=T^N,B83YMA^+,BK//3U3$3")+ HK#
M0M(C-"%='_at_%)@C=<0,"D$FRR0(/4C$F0/%171% ]#TQ)*R7@_B*FB2)*"PJ1
MCR1+2!<"?;&D5TS-^$)!2"F_at_F!D5=+*$J2")HL$1(!_at_R%M# BE,SHF#"U0S_
M0_8)SZBQRGJ?<(6.&*G&I+1RH9A*4XH89(D5AT'1[(Q*PQ10P3**)G$QEVV
M#Q0GPKJO6A2^8S2 AT:)%50ZKXGK4B F2^!)M(0)6CHC8DJMRT"O4T&EA"O!
ME**Y036+C?RZ=S,>H6_at_TRY)>K_at_1=>YM'"CY_1K_at_PV6R6L2UTH74L3B.F;2!"
MAWC9KN&H&N\6R"A&Z^#Y \$R)SQB2;O S)\EZ[F_at_=I4#HN@(>@/O%R(\@\%N
M=]0YMH0_$XEKS2(*B]020M][EU:$W4&CX0KZ9<'0+>>#(#%U6K4O=CNL?+(;
M94($?C5:'F_4HG-JU7_at_V_at_Y^!'Q$,:4!#EC#M=T7ZB.H;KE% /:MMW0;W]'+N
ME9G!LYGA#$YMD,Y:#0#7M<0ZJXR([R,.$ 9ZV.\>#S49N#-/%G'<(*W-E?39
M#?39%OI"AB<1I3ODF[G&H9$71=RW_at_,*WC FU()&=T@'WYG2).RR T19>&7'E
M"1H:V6Y$XDE P.4MG-7S;D0Q5;HSN>(T&_at_J\U2J(D(R%X/X [A5+0_at_Y-)F.=
M/_at_*824RRENP0_at_QL(<&,:3ZB IO7-3AW:K>2F!+=0,Z%6##+G*_at_Y?A_;?PF!)
MU:M5_at_R$K35XDD=[!6E.&Y:+I*I[J3*AX#%I09345 J/J3$@ UC<P1LF4^BQD
M-J0C^#9V4/H](I+ECANWD&&$FSF"YC4ZH=5DN?=E*AE-**90"FX)-RVS+J2)
M\PA;&YK6*KBV_at_25[ %BR^X(EDRN(OS-8LH> )7LLL$0T5&#+R I8'H26NX2D
M_at_(-U+"OALGPX7+(*+IB=/^+2YRC J.L020.D";),!5]@>5]/4M64CNL:4-8F
M5P&&I38E4ZW)3):O'IZ4W%"7K#RY0AF='-<3%$Z%3M1X!%_at_SISYUN](U<VO,
MNVS*31 4#P#AX9IV^W6+Y-K$WPV"69[Z^6*]?,44CQF!/4-5I<Y^!5-62<2^
MTHT*A^"3- K7Y;4,#YZQ\#"$AZ)$F?J'8/TNSVTQF=.""=?D#*TV=#GY:ABA
M9U8!H !G'_at_IP$!=X\'1_at_Q 4KS[8.'IC85XZOD:,!"V9_/*G&C H\U9;Z?"CT
MY>7?B'B(/K-^8#?8&,/.\$PN$A*!$_at_MJ-QF8>;?*269AFA=!M:7!O0C M^C;
MI,PWBAW^#J):40)=)[93974J3 ^E[9]TWBB-MQC"Q?F=B(0ETQ'\JF.BS] !
M36D2X+D87N'(U>Q(74V33^LTN C/&KKJ\1KE9,[^K;B%"QYP1Z1$&TQ)E;<
M*[74$OB5"^^4(OY,WP)C<[_A56HQ=Q<;QCPN.B3N=5'J"AZ_A?N2BYCH(_at_#.
MMS$TD1(<EP2!OA[H7*N7RM;ANJCE?45E&Z(*"?H0M2[B.F/T:E.(OTM&MD7&
M\B89&LYN?D\JK_at_U^<9]XZON_5:?HM7JJ[L^M_9_AH%/V?TYZQT.<[@[[)_O^
MS_/U?_!R#M?XW-[[N42T[#L_^\[/B^K\K#=TWMZQ\].[I?.C-\,S]GUTYG[>
MKH^U8%?/1X<G[_AHPLU^C_[Z?^KVX)N#NQ](1EA$)_at_@\EL#E_+@]?.7<>I6^
M_at_77?H=AW*'2'(M]/+[,_85+$OCNQK3MAT^QC]2:,M-LZ$\['S60#F&V<9VDD
MJ+*18&I*+N)?TDA0NQH)!M'%4"^ZD:#NT4BX:Z- A^G&N[W:<;='CCO?[G5-
C*1?M;C=TM?.&KNRY[V _]F,_]F,_]N,%CK\ +]?$B_at_ H #:
 
end




                -- Erick
Received on Tue Apr 04 1995 - 12:30:41 CEST

This archive was generated by hypermail 2.3.0 : Mon Jul 21 2014 - 19:38:59 CEST