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) 1997 by eXept Software AG

     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

ScrollableView subclass:#SequenceView

    17

	instanceVariableNames:''

    18

	classVariableNames:''

    19

	poolDictionaries:''

    20

	category:'Views-Lists'

    21

!

    22

    23

!SequenceView class methodsFor:'documentation'!

    24

    25

copyright

    26

"

    27

 COPYRIGHT (c) 1997 by eXept Software AG

    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

    40

documentation

    41

"

    42

    implements a SelectionInListView with configurable scrollbars

    43

    44

    ST-80 compatibility

    45

    46

    [see also:]

    47

        SelectionInListView

    48

"

    49

!

    50

    51

examples

    52

"

    53

    same behavior as a SelectionInListView, but scrollable

    54

                                                                        [exBegin]

    55

    |view|

    56

    57

    view := self extent:100@100.

    58

    view list:#( 'a' 'b' 'c' 'd' 'e' 'f' 'g' 'h' 'in der Ruhe liegt die Kraft').

    59

    view multipleSelectOk:true.

    60

    view openAndWait.

    61

                                                                        [exEnd]

    62

"

    63

! !

    64

    65

!SequenceView class methodsFor:'defaults'!

    66

    67

defaultFont

    68

    ^ SelectionInListView defaultFont

    69

    70

    "Created: / 20.6.1998 / 14:17:01 / cg"

    71

! !

    72

    73

!SequenceView methodsFor:'Compatibility-ST80'!

    74

    75

optimizeForText

    76

    "dummy - ST-80 compatibility"

    77

    78

    "Created: / 6.7.1998 / 13:26:18 / cg"

    79

! !

    80

    81

!SequenceView methodsFor:'initialization'!

    82

    83

initialize

    84

    "setup a ScrollableView scrolling a SelectionInList instance"

    85

    86

    super initialize.

    87

    88

    self verticalScrollable:true;     verticalMini:false.

    89

    self horizontalScrollable:true; horizontalMini:false.

    90

    91

    self scrolledView:SelectionInListView new

    92

! !

    93

    94

!SequenceView methodsFor:'slave-view messages'!

    95

    96

enabled:aBoolean

    97

    "senders assume that I am the listView - not a wrapper"

    98

    99

    scrolledView enabled:aBoolean

   100

!

   101

   102

font:aFont

   103

    "set the font for the scrolled view"

   104

   105

    |scrolledView|

   106

   107

    super font:aFont.

   108

    (scrolledView := self scrolledView) notNil ifTrue:[scrolledView font:aFont].

   109

!

   110

   111

invalidate

   112

    "senders assume that I am the listView - not a wrapper"

   113

   114

    scrolledView invalidate

   115

!

   116

   117

invalidate:aRectangle

   118

    "senders assume that I am the listView - not a wrapper"

   119

   120

    scrolledView invalidate:aRectangle

   121

!

   122

   123

invalidate:aRectangle repairNow:doRepair

   124

    "senders assume that I am the listView - not a wrapper"

   125

   126

    scrolledView invalidate:aRectangle repairNow:doRepair

   127

!

   128

   129

invalidateDeviceRectangle:aRectangle repairNow:doRepair

   130

    "senders assume that I am the listView - not a wrapper"

   131

   132

    scrolledView invalidateDeviceRectangle:aRectangle repairNow:doRepair

   133

!

   134

   135

invalidateRepairNow:doRepair

   136

    "senders assume that I am the listView - not a wrapper"

   137

   138

    scrolledView invalidateRepairNow:doRepair

   139

! !

   140

   141

!SequenceView class methodsFor:'documentation'!

   142

   143

version

   144

    ^ '$Header$'

   145

! !

   146