equal
deleted
inserted
replaced
434 !TabWidget methodsFor:'queries'! |
434 !TabWidget methodsFor:'queries'! |
435 |
435 |
436 containsPoint:aPoint |
436 containsPoint:aPoint |
437 "return true, if a point is contained in the tab |
437 "return true, if a point is contained in the tab |
438 " |
438 " |
439 |d x y top bot origin| |
439 |d x y origin| |
440 |
440 |
441 d := tabView direction. |
441 d := tabView direction. |
442 x := aPoint x. |
442 x := aPoint x. |
443 y := aPoint y. |
443 y := aPoint y. |
444 |
444 |
463 ! ! |
463 ! ! |
464 |
464 |
465 !TabWidget::Window class methodsFor:'accessing'! |
465 !TabWidget::Window class methodsFor:'accessing'! |
466 |
466 |
467 tabStyleOn:aView |
467 tabStyleOn:aView |
468 |style col| |
468 |style| |
469 |
469 |
470 style := super tabStyleOn:aView. |
470 style := super tabStyleOn:aView. |
471 |
471 |
472 style at:#expandSelection put:4@4. |
472 style at:#expandSelection put:4@4. |
473 style at:#tabLevel put:2. |
473 style at:#tabLevel put:2. |
504 !TabWidget::Window methodsFor:'drawing'! |
504 !TabWidget::Window methodsFor:'drawing'! |
505 |
505 |
506 redrawAtBottom:isSelected |
506 redrawAtBottom:isSelected |
507 "redraw tab at bottom of view |
507 "redraw tab at bottom of view |
508 " |
508 " |
509 |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor| |
509 |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor| |
510 |
510 |
511 origin := self computeOrigin. |
511 origin := self computeOrigin. |
512 corner := self computeCorner. |
512 corner := self computeCorner. |
513 x := origin x. |
513 x := origin x. |
514 y := origin y. |
514 y := origin y. |
570 ! |
570 ! |
571 |
571 |
572 redrawAtLeft:isSelected |
572 redrawAtLeft:isSelected |
573 "redraw tab at left of view |
573 "redraw tab at left of view |
574 " |
574 " |
575 |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor| |
575 |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor| |
576 |
576 |
577 origin := self computeOrigin. |
577 origin := self computeOrigin. |
578 corner := self computeCorner. |
578 corner := self computeCorner. |
579 x := origin x. |
579 x := origin x. |
580 y := origin y. |
580 y := origin y. |
629 ! |
629 ! |
630 |
630 |
631 redrawAtRight:isSelected |
631 redrawAtRight:isSelected |
632 "redraw tab at right of view |
632 "redraw tab at right of view |
633 " |
633 " |
634 |origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor| |
634 |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor| |
635 |
635 |
636 origin := self computeOrigin. |
636 origin := self computeOrigin. |
637 corner := self computeCorner. |
637 corner := self computeCorner. |
638 x := origin x. |
638 x := origin x. |
639 y := origin y. |
639 y := origin y. |
687 ! |
687 ! |
688 |
688 |
689 redrawAtTop:isSelected |
689 redrawAtTop:isSelected |
690 "redraw tab at top of view |
690 "redraw tab at top of view |
691 " |
691 " |
692 |polygon origin corner y x xR yB tabLevel light roundedEdges shadowColor lightColor| |
692 |origin corner y x xR yB tabLevel roundedEdges shadowColor lightColor| |
693 |
693 |
694 origin := self computeOrigin. |
694 origin := self computeOrigin. |
695 corner := self computeCorner. |
695 corner := self computeCorner. |
696 x := origin x. |
696 x := origin x. |
697 y := origin y. |
697 y := origin y. |
920 ! |
920 ! |
921 |
921 |
922 redrawAtTop:isSelected |
922 redrawAtTop:isSelected |
923 "redraw tab at top of view |
923 "redraw tab at top of view |
924 " |
924 " |
925 |origin corner level polygon x y x1 eX eY color shadowColor lightColor| |
925 |origin corner level polygon x y x1 eX eY shadowColor lightColor| |
926 |
926 |
927 isSelected ifFalse:[ |
927 isSelected ifFalse:[ |
928 lightColor := tabView styleAt:#lightColorUnselected. |
928 lightColor := tabView styleAt:#lightColorUnselected. |
929 shadowColor := tabView styleAt:#shadowColorUnselected. |
929 shadowColor := tabView styleAt:#shadowColorUnselected. |
930 tabView paint:(tabView styleAt:#unselectedColor). |
930 tabView paint:(tabView styleAt:#unselectedColor). |
968 ! ! |
968 ! ! |
969 |
969 |
970 !TabWidget class methodsFor:'documentation'! |
970 !TabWidget class methodsFor:'documentation'! |
971 |
971 |
972 version |
972 version |
973 ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.9 1997-06-11 13:58:02 ca Exp $' |
973 ^ '$Header: /cvs/stx/stx/libwidg2/TabWidget.st,v 1.10 1997-07-26 15:09:54 cg Exp $' |
974 ! ! |
974 ! ! |