cherry-picked GenericToolbarIconLibrary.st from 020158c929bb: * 4ecbe3a93aec: Merge, HG Automerge * 8e9dcb2a6533: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 58d88b144b2b: Merge, HG Automerge * 33c75b4a9999: #REFACTORING by mawalch, mawalch * 74f6a697ee26: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 7b8ba07cb680: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0122e4e6c587: #FEATURE by cg, Claus Gittinger <cg@exept.de> * e296fa4b5ccb: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6db292aae07d: #OTHER by mawalch, mawalch * 4366b65a2c8a: Copyright updates, Jan Vrany <jan.vrany@fit.cvut.cz> * 6b79d8bfdcd9: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6a0103018ab9: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 87fbb0b00ca6: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 5c977f62957a: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0ccfd6c3c75f: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 3926b9ae0a3c: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * 8cebd063aeb5: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 5445f50f8b2b: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 272618940466: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 56bd6e2384a4: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * ffa93f79e6ae: #DOCUMENTATION by cg, Claus Gittinger <cg@exept.de> * 9410312a11cb: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0036104e42ed: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 21fad03d5f11: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8fd99a9d1d84: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * e4ed7fc09ca1: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 2c79a677e38a: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * 81227f5c6bfa: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * a7d893a3c1e1: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 7928d87ff963: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6ed15ff79b07: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * a1a9e33d6daf: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 07f0100f7064: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 23d027d53e04: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 823ff944a2a5: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 046733c3db59: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * 040921add07a: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 5777bb6431cb: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 27448b51c873: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 1309dd75d7f5: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 6415731ee5e5: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * c7802dbb6d7d: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 23bf1e00dc95: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 645f74e46f86: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 236c24a6ce6c: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8db4c188c57a: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * 5d1367f2f32a: #BUGFIX by exept, Claus Gittinger <cg@exept.de> * e012b62927a6: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * cec8de8d957c: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8e9b8e68a545: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 5274979b30fb: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 73e483e60e05: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * dc6e33c97410: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 041ace9885e8: #TUNING by cg, Claus Gittinger <cg@exept.de> * bdfd1b407c29: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 52afc5fcc948: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * f9c23ed981dc: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 2678c19d0794: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 043c6c163b4f: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 5e779e09b004: version method, Claus Gittinger <cg@exept.de> * 51394e1ee44c: #FEATURE by exept, Claus Gittinger <cg@exept.de> * c6a190f66fb7: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 34b9831cd1ee: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 3fa783b7f48d: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * b46f5a561997: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 3bedf44e10d1: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * d0ccad2a39b8: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 20f0d7ec75e0: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 86c9b274be4e: #FEATURE by stefan, Stefan Vogel <sv@exept.de> * 4c58992375bb: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 4facc54a9585: #OTHER by exept, Claus Gittinger <cg@exept.de> * d9b1c96aa2b8: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * de0b89624b00: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 8d5a93082103: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * c06c9bee59db: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de>

     1

"

     2

 COPYRIGHT (c) 1994 by Claus Gittinger

     3

	      All Rights Reserved

     4

     5

 This software is furnished under a license and may be used

     6

 only in accordance with the terms of that license and with the

     7

 inclusion of the above copyright notice.   This software may not

     8

 be provided or otherwise made available to, or used by, any

     9

 other person.  No title to or ownership of the software is

    10

 hereby transferred.

    11

"

    12

"{ Package: 'stx:libwidg' }"

    13

    14

"{ NameSpace: Smalltalk }"

    15

    16

Scroller subclass:#MiniScroller

    17

	instanceVariableNames:''

    18

	classVariableNames:'MiniScrollerSize'

    19

	poolDictionaries:''

    20

	category:'Views-Interactors'

    21

!

    22

    23

!MiniScroller class methodsFor:'documentation'!

    24

    25

copyright

    26

"

    27

 COPYRIGHT (c) 1994 by Claus Gittinger

    28

	      All Rights Reserved

    29

    30

 This software is furnished under a license and may be used

    31

 only in accordance with the terms of that license and with the

    32

 inclusion of the above copyright notice.   This software may not

    33

 be provided or otherwise made available to, or used by, any

    34

 other person.  No title to or ownership of the software is

    35

 hereby transferred.

    36

"

    37

!

    38

    39

documentation

    40

"

    41

    like a scroller, but taking less screen space

    42

    43

    [author:]

    44

	Claus Gittinger

    45

"

    46

! !

    47

    48

!MiniScroller class methodsFor:'defaults'!

    49

    50

updateStyleCache

    51

    "extract values from the styleSheet and cache them in class variables"

    52

    53

    <resource: #style (#'miniScroller.size')>

    54

    55

    MiniScrollerSize := StyleSheet at:'miniScroller.size'.

    56

    57

    "

    58

     self updateStyleCache

    59

    "

    60

    61

    "Created: 15.8.1997 / 01:51:38 / cg"

    62

    "Modified: 20.10.1997 / 15:06:36 / cg"

    63

! !

    64

    65

!MiniScroller methodsFor:'initialization'!

    66

    67

initStyle

    68

    "setup viewStyle specifics"

    69

    70

    |style lvl|

    71

    72

    super initStyle.

    73

    style := StyleSheet name.

    74

    style == #iris ifTrue:[

    75

        tallyLevel := tallyMarks := 0.

    76

        thumbEdgeStyle := nil.

    77

        thumbLevel := thumbActiveLevel := 2.

    78

    ].

    79

    ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[

    80

        style == #st80 ifTrue:[

    81

            lvl := 1.

    82

            "/ lvl := 0.

    83

        ] ifFalse:[

    84

            lvl := -1.

    85

        ].

    86

        self level:lvl.

    87

        self borderWidth:0

    88

    ].

    89

    shadowForm := lightForm := nil.

    90

    fixThumbHeight := false.

    91

    92

    thumbImage := nil.

    93

    94

    "Modified: / 12.5.1998 / 20:41:52 / cg"

    95

! !

    96

    97

!MiniScroller methodsFor:'queries'!

    98

    99

isMiniScroller

   100

    ^ true

   101

   102

    "Created: 7.3.1997 / 16:20:22 / cg"

   103

!

   104

   105

preferredExtent

   106

    "return my preferredExtent - make my width very small"

   107

   108

    |defExt w h mm|

   109

   110

    "/ If I have an explicit preferredExtent..

   111

    explicitExtent notNil ifTrue:[

   112

        ^ explicitExtent

   113

    ].

   114

   115

    "/ If I have a cached preferredExtent value..

   116

    preferredExtent notNil ifTrue:[

   117

        ^ preferredExtent

   118

    ].

   119

   120

    defExt := self class defaultExtent.

   121

   122

    (mm := MiniScrollerSize) isNil ifTrue:[

   123

        mm := (thumbLevel ~~ 0) ifTrue:[1.8] ifFalse:[1.5].

   124

        mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2].

   125

        styleSheet name == #st80 ifTrue:[

   126

            mm := 2

   127

        ].

   128

    ].

   129

   130

    w := defExt x.

   131

    h := defExt y.

   132

   133

    orientation == #vertical ifTrue:[

   134

        w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.

   135

        "/ don't let it become too small for thumb ...

   136

        w := w max:((level abs + thumbLevel) * 2 + 1).

   137

    ] ifFalse:[

   138

        h := (device verticalPixelPerMillimeter asFloat * mm) rounded.

   139

        "/ don't let it become too small for thumb ...

   140

        h := h max:((level abs + thumbLevel) * 2 + 1).

   141

    ].

   142

    preferredExtent := w @ h.

   143

    ^ preferredExtent.

   144

   145

    "Modified: / 08-10-2007 / 17:24:32 / cg"

   146

! !

   147

   148

!MiniScroller class methodsFor:'documentation'!

   149

   150

version

   151

    ^ '$Header$'

   152

! !

   153