DSVColumnView.st
author Claus Gittinger <cg@exept.de>
Sat, 19 Jun 1999 12:23:36 +0200
changeset 1416 505ef8832a06
parent 1408 1cda0a4fb566
child 1448 b389b8c76479
permissions -rw-r--r--
focus next/previous tabAtStartAction tabAtEndAction
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     1
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     4
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
e22c45e26653 intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    11
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    12
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    13
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    14
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    15
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    16
View subclass:#DSVColumnView
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
    17
	instanceVariableNames:'editValue editView multipleSelectOk selectedColIndex
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
    18
		selectedRowIndex selectRowOnNoneSelectableCell selectRowOk
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
    19
		selectRowOnDefault rowHeight columnDescriptors viewOrigin
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
    20
		colorMap rowFontAscent lockRowIndex rowIfAbsentBlock columnHolder
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    21
		registererImages list fgColor canFit separatorSize
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    22
		catchChangeEvents beDependentOfRows bgColor hgLgFgColor
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    23
		hgLgBgColor actionBlock builder doubleClickActionBlock
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    24
		verticalSpacing horizontalSpacing rowSelectorForm
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    25
		buttonLightColor buttonShadowColor buttonHalfLightColor
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    26
		buttonHalfShadowColor checkToggleExtent checkToggleForm
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
    27
		checkToggleActiveImage checkTogglePassiveImage checkToggleLevel
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
    28
		comboButtonExtent comboButtonForm comboButtonLevel clickPosition
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
    29
		dragAccessPoint dragIsActive dropTarget dropSource columnAdaptor
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
    30
		dataSetView tabAtEndAction tabAtStartAction'
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    31
	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    32
		DefaultHilightForegroundColor DefaultHilightBackgroundColor
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
    33
		RowSelector ButtonLightColor ButtonShadowColor
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
    34
		CheckToggleActiveImage CheckTogglePassiveImage
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
    35
		ButtonHalfLightColor ButtonHalfShadowColor ButtonEdgeStyle
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
    36
		CheckToggleForm CheckToggleLevel CheckToggleExtent
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
    37
		ComboButtonForm ComboButtonLevel ComboButtonExtent'
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    38
	poolDictionaries:''
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    39
	category:'Views-DataSet'
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    40
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    41
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    42
!DSVColumnView class methodsFor:'documentation'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    43
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    44
copyright
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    45
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    46
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    47
              All Rights Reserved
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    48
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    49
 This software is furnished under a license and may be used
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    50
 only in accordance with the terms of that license and with the
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    51
 inclusion of the above copyright notice.   This software may not
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    52
 be provided or otherwise made available to, or used by, any
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    53
 other person.  No title to or ownership of the software is
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    54
 hereby transferred.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    55
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    56
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    57
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    58
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    59
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    60
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    61
documentation
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    62
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    63
    implements a scrollable selection view based on rows and columns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    64
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    65
    [Instance variables:]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    66
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    67
        dataSetView             <DataSetView>           parent view
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    68
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    69
        editValue               <Model>                 current editing model
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    70
        editView                <View>                  current editing component
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    71
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    72
        multipleSelectOk        <Boolean>               multiple selection enabled/disabled
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    73
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    74
        selectedColIndex        <Integer>               selected column index or 0
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    75
        selectedRowIndex        <Integer>               selected row    index or 0
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    76
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    77
        rowHeight               <Integer>               maximum height of any row
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    78
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    79
        columnDescriptors       <SequancableCollection> list of column descriptors
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    80
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    81
        viewOrigin              <Point>                 current view origin
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    82
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    83
        colorMap                <Dictionary>            store and register used colors on device
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    84
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    85
        rowFontAscent           <SmallInteger>          inset of a printable text in a row
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    86
                                                        including separator and font ascent.
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    87
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    88
        lockRowIndex            <SmallInteger>          internal used to indicate a row which has
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    89
                                                        changed its contents but no redraw should be
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    90
                                                        done( at:put: ).
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    91
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    92
        columnHolder            <ValueHolder>           holder which keeps the list of column descriptors.
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    93
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    94
        registererImages        <IdentityDictionary>    list of images registered on the device
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    95
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
    96
        list                    <SequancableCollection> list of rows
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    97
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    98
        canFit                  <Boolean>               boolean set to true if colums can be fit to view
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
    99
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   100
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   101
        catchChangeEvents       <Boolean>               internal used to discard change notifications
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   102
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   103
        beDependentOfRows       <Boolean>               keep rows dependent; on default is disabled.
567
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
   104
                                                        in case of enabled a row can raise a change
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
   105
                                                        notification whithout a parameter which
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
   106
                                                        will force a redraw of the row or the
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
   107
                                                        readSelector of the column which will
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
   108
                                                        redraw the cell in the row only.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   109
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   110
        fgColor                 <Color>                 foreground color
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   111
        bgColor                 <Color>                 background color
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   112
        hgLgFgColor             <Color>                 highlight foreground color (selected)
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   113
        hgLgBgColor             <Color>                 highlight background color (selected)
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   114
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   115
        buttonLightColor        <Color>                 LightColor      ( drawing the edge of a button )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   116
        buttonShadowColor       <Color>                 ShadowColor     ( drawing the edge of a button )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   117
        buttonHalfLightColor    <Color>                 HalfLightColor  ( drawing the edge of a button )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   118
        buttonHalfShadowColor   <Color>                 HalfShadowColor ( drawing the edge of a button )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   119
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   120
        actionBlock             <a OneArgBlock>         action block performed on select
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   121
        doubleClickActionBlock  <a OneArgBlock>         action block performed on double click
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   122
        rowIfAbsentBlock        <a OneArgBlock>         this block is performed on an emty list entry
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   123
                                                        to retrive the item from the application. The
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   124
                                                        argument to the block is the index into the list.
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   125
                                                        The block should return the row instance which
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   126
                                                        is put to the list under the index.
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   127
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   128
        builder                 <UIBuilder>             builder set by application
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   129
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   130
        verticalSpacing         <SmallInteger>          vertical   row spacing( top  & bottom )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   131
        horizontalSpacing       <SmallInteger>          horizontal row spacing( left & right )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   132
        separatorSize           <SmallInteger>          line width of a vertical or horizontal separator
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   133
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   134
        rowSelectorForm         <Form>                  form used by a row selector
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   135
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   136
        checkToggleForm         <Form>                  form used by a checkToggle
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   137
        checkToggleExtent       <Point>                 extent of a checkToggle
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   138
        checkToggleLevel        <SmallInteger>          level used to draw a check toggle
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   139
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   140
        comboButtonForm         <Form>                  form used by a comboList or -Box
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   141
        comboButtonExtent       <Point>                 extent of a comboList or -Box
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   142
        comboButtonLevel        <SmallInteger>          level used to draw a comboList or -Box
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   143
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   144
        clickPosition           <Point>                 click position of the mouse
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   145
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   146
        dragAccessPoint         <Point>                 point where the drag operation starts
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   147
        dragIsActive            <Boolean>               true if a drag operation is active
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   148
        dropTarget              <DropTarget>            drag & drop target
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   149
        dropSource              <DropSource>            drag & drop source
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   150
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   151
    [author:]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   152
        Claus Atzkern
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   153
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   154
    [see also:]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   155
        DataSetColumnSpec
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   156
        DataSetColumn
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   157
        DataSetView
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   158
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   159
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   160
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   161
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   162
!DSVColumnView class methodsFor:'accessing forms'!
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   163
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   164
rowSelector
989
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   165
    "This resource specification was automatically generated
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   166
     by the ImageEditor of ST/X."
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   167
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   168
    "Do not manually edit this!! If it is corrupted,
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   169
     the ImageEditor may not be able to read the specification."
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   170
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   171
    "
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   172
     self rowSelector inspect
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   173
     ImageEditor openOnClass:self andSelector:#rowSelector
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   174
    "
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   175
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   176
    <resource: #image>
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   177
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   178
    ^Icon
70fd16dd0085 rowSelector changed
tz
parents: 988
diff changeset
   179
        constantNamed:#'DSVColumnView rowSelector'
1129
3b9e0fd31971 rowSelector icon restyled
tz
parents: 1123
diff changeset
   180
        ifAbsentPut:[(Depth2Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A@@@AP@@A4@EW=@G?? O?:@@C(@@B @@B@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C@@N@@<@?8C?0O? ?<C? @<@C @L@@@a') ; yourself); yourself]
3b9e0fd31971 rowSelector icon restyled
tz
parents: 1123
diff changeset
   181
3b9e0fd31971 rowSelector icon restyled
tz
parents: 1123
diff changeset
   182
3b9e0fd31971 rowSelector icon restyled
tz
parents: 1123
diff changeset
   183
! !
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   184
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   185
!DSVColumnView class methodsFor:'defaults'!
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   186
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   187
claus
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   188
"
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   189
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   190
total execution time: 803 ms (40 probes ; error >= 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   191
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   192
MessageTally execute (total 100.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   193
 UIGalleryView::Canvas specification: (total 100.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   194
  FullSpec buildViewFor:in: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   195
   SpecCollection buildViewWithLayoutFor:in: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   196
    SpecCollection buildSubViewsFor:in: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   197
     Array>>SequenceableCollection collect: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   198
      [] in SpecCollection buildSubViewsFor:in: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   199
       SequenceViewSpec>>UISpecification buildViewWithLayoutFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   200
        SequenceViewSpec>>UISpecification createViewFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   201
         SequenceView class>>ScrollableView class in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   202
          SequenceView class>>ScrollableView class forView:hasHorizontalScrollBar:hasVerticalScrollBar:miniScrollerH:miniScrollerV:origin:corner:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   203
           SequenceView>>ScrollableView setupVertical:mini:horizontal:mini: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   204
            SequenceView>>ScrollableView setupViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   205
             SequenceView>>ScrollableView releaseHorizontalScrollBar (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   206
              HorizontalScrollBar>>SimpleView destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   207
               HorizontalScrollBar>>SimpleView destroySubViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   208
                OrderedCollection do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   209
                 Array from:to:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   210
                  [] in UndefinedObject optimized (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   211
                   ArrowButton>>Label destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   212
                    ArrowButton>>View destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   213
                     ArrowButton>>SimpleView destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   214
                      ArrowButton>>DisplaySurface destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   215
                       Registry unregister: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   216
       SelectionInTreeViewSpec>>UISpecification buildViewWithLayoutFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   217
        SelectionInTreeViewSpec createViewFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   218
         ScrollableView class for:hasHorizontalScrollBar:hasVerticalScrollBar:miniScrollerH:miniScrollerV: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   219
          ScrollableView class forView:hasHorizontalScrollBar:hasVerticalScrollBar:miniScrollerH:miniScrollerV:origin:corner:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   220
           ScrollableView setupVertical:mini:horizontal:mini: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   221
            ScrollableView setupViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   222
             HorizontalScrollBar class>>SimpleView class in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   223
              HorizontalScrollBar>>ScrollBar initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   224
               HorizontalScrollBar>>ScrollBar createElements (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   225
                ArrowButton class rightIn: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   226
                 ArrowButton class>>SimpleView class in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   227
                  ArrowButton initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   228
                   ArrowButton>>Button initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   229
                    ArrowButton>>Label initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   230
                     ArrowButton>>View initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   231
                      ArrowButton>>SimpleView initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   232
                       ButtonController class>>Controller class new (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   233
                        ButtonController initialize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   234
                         ValueHolder>>Object onChangeSend:to: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   235
                          ValueHolder>>Object addInterest: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   236
                           ValueHolder>>Model addNonWeakDependent: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   237
                            ValueHolder>>Model addDependent: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   238
                             Block valueNowOrOnUnwindDo: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   239
                              [] in ValueHolder>>Model addDependent: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   240
                               UnixOperatingSystem class>>AbstractOperatingSystem class unblockInterrupts (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   241
       DataSetSpec>>UISpecification buildViewWithLayoutFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   242
        DataSetSpec setAttributesIn:with: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   243
         DataSetSpec>>ViewWithScrollerSpec setAttributesIn:with: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   244
          DataSetView horizontalMini: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   245
           HVScrollableView>>ScrollableView horizontalMini: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   246
            HVScrollableView>>ScrollableView setupViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   247
             HVScrollableView>>ScrollableView releaseHorizontalScrollBar (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   248
              HorizontalMiniScroller>>View destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   249
               HorizontalMiniScroller>>SimpleView destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   250
                HorizontalMiniScroller>>DisplaySurface destroy (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   251
                 Registry unregister: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   252
       FileSelectionTreeSpec>>UISpecification buildViewWithLayoutFor:in: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   253
        FileSelectionTreeSpec setAttributesIn:with: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   254
         ScrollableView root: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   255
          ScrollableView doesNotUnderstand: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   256
           FileSelectionTree>>Object perform:withArguments: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   257
            FileSelectionTree>>SelectionInTreeView root: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   258
             SelectionInTree root: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   259
              SelectionInTree recomputeList (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   260
               SelectionInTree listFromRoot (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   261
                FileSelectionItem>>TreeItem addVisibleChildrenTo: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   262
                 FileSelectionItem children (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   263
                  FileSelectionItem readInChildren (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   264
                   Cursor showWhile: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   265
                    WindowGroup withCursor:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   266
                     [] in WindowGroup withCursor:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   267
                      Block valueNowOrOnUnwindDo: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   268
                       [] in FileSelectionItem readInChildren (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   269
                        DirectoryContents class directoryNamed: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   270
                         UnixFilename>>Filename asFilename (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   271
  UIGalleryView::Canvas>>SimpleView realizeAllSubViews (total 90.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   272
   OrderedCollection do: (total 90.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   273
    Array from:to:do: (total 90.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   274
     [] in UndefinedObject optimized (total 90.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   275
      SequenceView>>ScrollableView realize (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   276
       SequenceView>>SimpleView realize (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   277
        SequenceView>>SimpleView realizeKeepingGroup:at:iconified: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   278
         SequenceView>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   279
          SequenceView>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   280
           GLXWorkstation>>XWorkstation createWindowFor:type:origin:extent:minExtent:maxExtent:borderWidth:subViewOf:style:inputOnly:label:owner:icon:iconMask:iconView: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   281
            GLXWorkstation>>DeviceWorkstation addKnownView:withId: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   282
         SequenceView>>SimpleView realizeAllSubViews (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   283
          OrderedCollection do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   284
           Array from:to:do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   285
            [] in UndefinedObject optimized (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   286
             ScrollBar realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   287
              ScrollBar>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   288
               ScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   289
                ScrollBar>>SimpleView realizeAllSubViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   290
                 OrderedCollection do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   291
                  Array from:to:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   292
                   [] in UndefinedObject optimized (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   293
                    ArrowButton>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   294
                     ArrowButton>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   295
                      ArrowButton>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   296
                       ArrowButton>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   297
                        Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   298
             HorizontalScrollBar>>ScrollBar realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   299
              HorizontalScrollBar>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   300
               HorizontalScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   301
                HorizontalScrollBar>>SimpleView realizeAllSubViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   302
                 OrderedCollection do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   303
                  Array from:to:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   304
                   [] in UndefinedObject optimized (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   305
                    ArrowButton>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   306
                     ArrowButton>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   307
                      ArrowButton>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   308
                       ArrowButton>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   309
                        Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   310
      ScrollableView realize (total 62.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   311
       ScrollableView setupDimensionsConfigureScrolledView: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   312
        SelectionInTreeView>>SimpleView borderWidth (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   313
       ScrollableView>>SimpleView realize (total 60.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   314
        ScrollableView>>SimpleView realizeKeepingGroup:at:iconified: (total 60.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   315
         ScrollableView>>SimpleView realizeAllSubViews (total 57.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   316
          OrderedCollection do: (total 57.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   317
           Array from:to:do: (total 57.5%)(here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   318
            [] in UndefinedObject optimized (total 55.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   319
             SelectionInTreeView realize (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   320
              SelectionInTreeView refetchDeviceResources (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   321
               SelectionInTreeView fetchImageResources (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   322
                SelectionInTreeView imageOnDevice: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   323
                 Depth8Image>>Image on: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   324
                  Depth8Image>>Image asFormOn: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   325
                   Depth8Image>>Image paletteImageAsFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   326
                    Depth8Image paletteImageAsTrueColorFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   327
                     Depth8Image anyImageAsTrueColorFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   328
                      Form class width:height:depth:on: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   329
                       Form width:height:depth: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   330
                        Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   331
                      Depth8Image>>Image rgbColormapFor: (total 5.0%)(here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   332
                       Float * (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   333
                        Fraction productFromFloat: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   334
                   ImageMask>>Image on: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   335
                    Registry register: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   336
                     Registry register:as: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   337
             ScrollBar realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   338
              ScrollBar>>SimpleView realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   339
               ScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   340
                ScrollBar>>SimpleView realizeAllSubViews (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   341
                 OrderedCollection do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   342
                  Array from:to:do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   343
                   [] in UndefinedObject optimized (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   344
                    ArrowButton>>SimpleView realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   345
                     ArrowButton>>SimpleView realizeKeepingGroup:at:iconified: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   346
                      ArrowButton>>SimpleView create (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   347
                       ArrowButton>>SimpleView physicalCreate (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   348
                        Registry registerChange: (here 5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   349
             HorizontalScrollBar>>ScrollBar realize (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   350
              HorizontalScrollBar>>SimpleView realize (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   351
               HorizontalScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   352
                HorizontalScrollBar>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   353
                 HorizontalScrollBar>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   354
                  Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   355
                HorizontalScrollBar>>SimpleView realizeAllSubViews (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   356
                 OrderedCollection do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   357
                  Array from:to:do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   358
                   [] in UndefinedObject optimized (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   359
                    ArrowButton>>SimpleView realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   360
                     ArrowButton>>SimpleView realizeKeepingGroup:at:iconified: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   361
                      ArrowButton>>SimpleView create (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   362
                       ArrowButton>>SimpleView physicalCreate (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   363
                        Registry registerChange: (here 5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   364
             FileSelectionTree>>SelectionInTreeView realize (total 32.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   365
              FileSelectionTree>>SelectionInTreeView refetchDeviceResources (total 32.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   366
               FileSelectionTree>>SelectionInTreeView fetchImageResources (total 32.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   367
                FileSelectionTree>>SelectionInTreeView imageOnDevice: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   368
                 Depth8Image>>Image on: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   369
                  Depth8Image>>Image asFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   370
                   Depth8Image>>Image paletteImageAsFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   371
                    Depth8Image paletteImageAsTrueColorFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   372
                     Depth8Image anyImageAsTrueColorFormOn: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   373
                      Depth8Image>>Image rgbColormapFor: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   374
                       Color blue (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   375
                       Float * (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   376
                        Fraction productFromFloat: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   377
                      Form class width:height:depth:on: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   378
                       Form width:height:depth: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   379
                        Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   380
                FileSelectionTree>>SelectionInTreeView fetchDefaultImages (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   381
                 FileSelectionItem class keysAndIcons (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   382
                  Array do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   383
                   [] in FileSelectionItem class keysAndIcons (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   384
                    Image class fromFile: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   385
                     QuerySignal>>Signal handle:do: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   386
                      [] in Image class fromFile: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   387
                       XPMReader class>>ImageReader class fromFile: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   388
                        XPMReader class>>ImageReader class readFile: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   389
                         XPMReader fromStream: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   390
                          Colormap class redVector:greenVector:blueVector: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   391
                           Colormap class>>Behavior new (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   392
                            Colormap class>>Behavior basicNew (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   393
                         FileStream>>ExternalStream close (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   394
                          Registry unregister: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   395
                IdentityDictionary>>Dictionary keysAndValuesDo: (total 20.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   396
                 [] in FileSelectionTree>>SelectionInTreeView fetchImageResources (total 20.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   397
                  FileSelectionTree>>SelectionInTreeView imageOnDevice: (total 20.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   398
                   Depth8Image>>Image on: (total 20.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   399
                    Depth8Image>>Image asFormOn: (total 20.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   400
                     Depth8Image>>Image paletteImageAsFormOn: (total 17.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   401
                      Depth8Image paletteImageAsTrueColorFormOn: (total 17.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   402
                       Depth8Image anyImageAsTrueColorFormOn: (total 17.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   403
                        Form class width:height:depth:on: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   404
                         Form width:height:depth: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   405
                          Registry registerChange: (here 7.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   406
                        Form>>DeviceGraphicsContext copyBitsFrom:bitsPerPixel:depth:padding:width:height:x:y:toX:y: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   407
                         GLXWorkstation>>XWorkstation drawBits:bitsPerPixel:depth:padding:width:height:x:y:into:x:y:width:height:with: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   408
                        Depth8Image>>Image rgbColormapFor: (total 7.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   409
                         Float * (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   410
                          Fraction productFromFloat: (here 5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   411
                         Color blue (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   412
                     ImageMask>>Image on: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   413
                      ImageMask>>Depth1Image asFormOn: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   414
                       Form class width:height:fromArray:on: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   415
                        Form width:height:fromArray: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   416
                         Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   417
         ScrollableView>>SimpleView setInnerClip (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   418
      Label>>SimpleView realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   419
       Label>>SimpleView realizeKeepingGroup:at:iconified: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   420
        Label>>SimpleView create (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   421
         Label>>SimpleView physicalCreate (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   422
          Registry registerChange: (here 5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   423
      DataSetView realize (total 15.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   424
       DataSetView>>SimpleView realize (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   425
        DataSetView>>SimpleView realizeKeepingGroup:at:iconified: (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   426
         DataSetView>>SimpleView realizeAllSubViews (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   427
          OrderedCollection do: (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   428
           Array from:to:do: (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   429
            [] in UndefinedObject optimized (total 12.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   430
             HVScrollableView>>ScrollableView realize (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   431
              HVScrollableView>>SimpleView realize (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   432
               HVScrollableView>>SimpleView realizeKeepingGroup:at:iconified: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   433
                HVScrollableView>>SimpleView realizeAllSubViews (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   434
                 OrderedCollection do: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   435
                  Array from:to:do: (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   436
                   [] in UndefinedObject optimized (total 10.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   437
                    DSVColumnView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   438
                     DSVColumnView>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   439
                      DSVColumnView>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   440
                       DSVColumnView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   441
                        DSVColumnView>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   442
                         DSVColumnView>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   443
                          GLXWorkstation>>XWorkstation createWindowFor:type:origin:extent:minExtent:maxExtent:borderWidth:subViewOf:style:inputOnly:label:owner:icon:iconMask:iconView: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   444
                           GLXWorkstation>>DeviceWorkstation addKnownView:withId: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   445
                    ScrollBar realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   446
                     ScrollBar>>SimpleView realize (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   447
                      ScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 5.0%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   448
                       ScrollBar>>SimpleView create (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   449
                       ScrollBar>>SimpleView realizeAllSubViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   450
                        OrderedCollection do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   451
                         Array from:to:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   452
                          [] in UndefinedObject optimized (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   453
                           Scroller realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   454
                            Scroller>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   455
                             Scroller>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   456
                              Scroller>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   457
                               Scroller>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   458
                                Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   459
                    HorizontalScrollBar>>ScrollBar realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   460
                     HorizontalScrollBar>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   461
                      HorizontalScrollBar>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   462
                       HorizontalScrollBar>>SimpleView realizeAllSubViews (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   463
                        OrderedCollection do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   464
                         Array from:to:do: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   465
                          [] in UndefinedObject optimized (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   466
                           ArrowButton>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   467
                            ArrowButton>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   468
                             ArrowButton>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   469
                              ArrowButton>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   470
                               Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   471
             DSVLabelView>>SimpleView realize (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   472
              DSVLabelView>>SimpleView realizeKeepingGroup:at:iconified: (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   473
               DSVLabelView>>SimpleView create (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   474
                DSVLabelView>>SimpleView physicalCreate (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   475
                 Registry registerChange: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   476
       DataSetView columnsSizeChanged (total 2.5%)(here 0.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   477
        GLXWorkstation>>XWorkstation translatePoint:from:to: (here 2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   478
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   479
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   480
leafs of calling tree (by receiver & implementing method):
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   481
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   482
ScrollableView>>SimpleView setInnerClip (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   483
ScrollBar>>SimpleView create (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   484
UnixOperatingSystem class>>AbstractOperatingSystem class unblockInterrupts (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   485
Registry register:as: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   486
Colormap class>>Behavior basicNew (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   487
GLXWorkstation>>XWorkstation drawBits:bitsPerPixel:depth:padding:width:height:x:y:into:x:y:width:height:with: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   488
Array from:to:do: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   489
Depth8Image>>Image rgbColormapFor: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   490
GLXWorkstation>>XWorkstation translatePoint:from:to: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   491
SelectionInTreeView>>SimpleView borderWidth (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   492
UnixFilename>>Filename asFilename (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   493
GLXWorkstation>>DeviceWorkstation addKnownView:withId: (5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   494
Color blue (5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   495
Registry unregister: (7.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   496
Fraction productFromFloat: (10.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   497
Registry registerChange: (45.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   498
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   499
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   500
method leafs of calling tree (by implementing method only):
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   501
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   502
XWorkstation drawBits:bitsPerPixel:depth:padding:width:height:x:y:into:x:y:width:height:with: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   503
SimpleView setInnerClip (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   504
XWorkstation translatePoint:from:to: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   505
Filename asFilename (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   506
Registry register:as: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   507
Image rgbColormapFor: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   508
SimpleView borderWidth (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   509
Array from:to:do: (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   510
AbstractOperatingSystem class unblockInterrupts (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   511
Behavior basicNew (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   512
SimpleView create (2.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   513
DeviceWorkstation addKnownView:withId: (5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   514
Color blue (5.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   515
Registry unregister: (7.5%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   516
Fraction productFromFloat: (10.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   517
Registry registerChange: (45.0%)
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   518
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   519
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   520
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   521
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   522
"
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   523
!
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   524
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   525
horizontalSpacing
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   526
    "returns the default horizontal space between rows
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   527
    "
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   528
    ^ 4
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   529
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   530
!
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   531
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   532
updateStyleCache
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   533
    "extract values from the styleSheet and cache them in class variables
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   534
    "
582
222fc7c63af0 new resource naming
Claus Gittinger <cg@exept.de>
parents: 567
diff changeset
   535
    <resource: #style (#textForegroundColor #'scrollableView.backgroundColor'
222fc7c63af0 new resource naming
Claus Gittinger <cg@exept.de>
parents: 567
diff changeset
   536
                       #'selection.hilightForegroundColor'
222fc7c63af0 new resource naming
Claus Gittinger <cg@exept.de>
parents: 567
diff changeset
   537
                       #'selection.hilightBackgroundColor'   )>
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   538
1333
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   539
    DefaultForegroundColor        := StyleSheet colorAt:#'textForegroundColor' default:(Color black).
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   540
    DefaultBackgroundColor        := StyleSheet colorAt:#'scrollableView.backgroundColor' default:DefaultViewBackgroundColor.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   541
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   542
    DefaultHilightForegroundColor := StyleSheet colorAt:#'selection.hilightForegroundColor' default:DefaultBackgroundColor.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   543
    DefaultHilightBackgroundColor := StyleSheet colorAt:#'selection.hilightBackgroundColor' default:DefaultForegroundColor.
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   544
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   545
    DefaultHilightForegroundColor = DefaultHilightBackgroundColor ifTrue:[
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   546
        DefaultHilightBackgroundColor := Color black
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   547
    ].
1333
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   548
    ButtonLightColor       := StyleSheet colorAt:#'button.lightColor'.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   549
    ButtonShadowColor      := StyleSheet colorAt:#'button.shadowColor'.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   550
    ButtonHalfLightColor   := StyleSheet colorAt:#'button.halfLightColor'.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   551
    ButtonHalfShadowColor  := StyleSheet colorAt:#'button.halfShadowColor'.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   552
    ButtonEdgeStyle        := StyleSheet at:#'button.edgeStyle'.
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   553
    CheckToggleActiveImage := StyleSheet at:#'checkToggle.activeImage'.
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   554
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   555
    CheckToggleActiveImage isNil ifTrue:[
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   556
        CheckTogglePassiveImage := nil
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   557
    ] ifFalse:[
1333
011e6414dae5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
   558
        CheckTogglePassiveImage := StyleSheet at:#'checkToggle.passiveImage'.
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   559
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   560
        CheckTogglePassiveImage isNil ifTrue:[
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   561
            CheckToggleActiveImage := nil
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   562
        ]
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   563
    ].
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   564
    ComboButtonForm   := nil.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   565
    ComboButtonLevel  := nil.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   566
    ComboButtonExtent := nil.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   567
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   568
    CheckToggleForm   := nil.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   569
    CheckToggleLevel  := nil.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   570
    CheckToggleExtent := nil.
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
   571
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   572
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   573
self updateStyleCache.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   574
"
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   575
582
222fc7c63af0 new resource naming
Claus Gittinger <cg@exept.de>
parents: 567
diff changeset
   576
    "Modified: / 26.10.1997 / 17:09:07 / cg"
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   577
!
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   578
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   579
verticalSpacing
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   580
    "returns the default vertical space between rows
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   581
    "
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   582
    ^ 2
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   583
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   584
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   585
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   586
!DSVColumnView class methodsFor:'resources'!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   587
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   588
dragIconMulti
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   589
    "This resource specification was automatically generated
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   590
     by the ImageEditor of ST/X."
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   591
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   592
    "Do not manually edit this!! If it is corrupted,
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   593
     the ImageEditor may not be able to read the specification."
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   594
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   595
    "
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   596
     self dragIconMulti inspect
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   597
     ImageEditor openOnClass:self andSelector:#dragIconMulti
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   598
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   599
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   600
    <resource: #image>
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   601
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   602
    ^Icon
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   603
        constantNamed:#'DSVColumnView dragIconMulti'
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   604
        ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@<@@@@O@@@@C3??L@<??3@OO?<<C3??O@<??0@OO?<@C3???0<???<OO???C3???0<???<OO???@C???0@???<@O???@C???0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C????@????0O????C????0?????O????3?????????????????????????????????????????????????????@????0O???<C????@????0@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]!
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   605
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   606
dragIconSingle
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   607
    "This resource specification was automatically generated
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   608
     by the ImageEditor of ST/X."
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   609
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   610
    "Do not manually edit this!! If it is corrupted,
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   611
     the ImageEditor may not be able to read the specification."
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   612
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   613
    "
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   614
     self dragIconSingle inspect
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   615
     ImageEditor openOnClass:self andSelector:#dragIconSingle
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   616
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   617
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   618
    <resource: #image>
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   619
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   620
    ^Icon
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   621
        constantNamed:#'DSVColumnView dragIconSingle'
988
d077faaade27 better hilight colors
tz
parents: 896
diff changeset
   622
        ifAbsentPut:[(Depth1Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O?<0@C??L@@??30@O?<<@C??@@@??0@@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@O???@C???0@???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@O??<@C???@@???<@O???@C???<@????@O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<C????@????0O???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; yourself); yourself]! !
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   623
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   624
!DSVColumnView methodsFor:'accessing'!
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   625
1042
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   626
builder
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   627
    "get the builder (UIBuilder or nil)
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   628
    "
1042
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   629
    ^ builder
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   630
!
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   631
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   632
builder:aBuilder
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   633
    "set the builder (UIBuilder or nil)
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   634
    "
1042
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   635
    builder := aBuilder
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   636
!
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
   637
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   638
columnView
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   639
    "returns self
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   640
    "
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   641
    ^ self
1067
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   642
!
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   643
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   644
dataSetView
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   645
    "return the value of the instance variable 'dataSetView' (automatically generated)"
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   646
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   647
    ^ dataSetView
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   648
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   649
    "Created: / 7.8.1998 / 22:13:43 / cg"
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   650
!
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   651
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   652
dataSetView:something
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   653
    "set the value of the instance variable 'dataSetView' (automatically generated)"
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   654
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   655
    dataSetView := something.
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   656
c66188014600 keep a reference to my dataSetView.
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   657
    "Created: / 7.8.1998 / 22:13:43 / cg"
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   658
!
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   659
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   660
rowFontAscent
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   661
    "returns the inset of a printable text in a row
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   662
    "
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   663
    ^ rowFontAscent
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   664
! !
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   665
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   666
!DSVColumnView methodsFor:'accessing actions'!
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   667
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   668
action:aOneArgAction
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   669
    "set the action block to be performed on select
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   670
    "
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   671
    actionBlock := aOneArgAction
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   672
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   673
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   674
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   675
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   676
doubleClickAction:aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   677
    "set the action block to be performed on doubleclick
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   678
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   679
    doubleClickActionBlock := aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   680
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   681
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   682
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   683
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   684
rowIfAbsent:aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   685
    "set the action block to be performed on each 'nil' entry into the
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   686
     list. The argument to the block is the index into the list. The
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   687
     block returns the row which is put to the list
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   688
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   689
    rowIfAbsentBlock := aOneArgAction
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   690
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   691
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   692
!
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   693
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   694
tabAtEndAction:aNoneArgAction
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   695
    "set the action, called without any argument at end of the list entering
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   696
     tab next.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   697
     The default is to give the focus to the view after self in the focusSequence
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   698
    "
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   699
    tabAtEndAction := aNoneArgAction
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   700
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   701
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   702
!
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   703
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   704
tabAtStartAction:aNoneArgAction
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   705
    "set the action, called without any argument at start of the list entering
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   706
     tab previous.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   707
     The default is to give the focus to the view before self in the focusSequence
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   708
    "
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   709
    tabAtStartAction := aNoneArgAction
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   710
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
   711
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   712
! !
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   713
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   714
!DSVColumnView methodsFor:'accessing behavior'!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   715
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   716
beDependentOfRows
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   717
    "make myself dependent of any row; in this case any change notification
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   718
     raised by a row is catched and the cell identified by the 'readSelector'
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   719
     is redrawn. In case of a nil readSelector, the whole raw is redrawn.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   720
        -> row changed:'what'
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   721
     On default the attribute is set to true (enabled).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   722
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   723
    ^ beDependentOfRows
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   724
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   725
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   726
beDependentOfRows:aBool
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   727
    "make myself dependent of any row; in this case any change notification
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   728
     raised by a row is catched and the cell identified by the 'readSelector'
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   729
     is redrawn. In case of a nil readSelector, the whole raw is redrawn.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   730
        -> row changed:'what'
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   731
     On default the attribute is set to true (enabled).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   732
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   733
    aBool ~~ beDependentOfRows ifTrue:[
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   734
        beDependentOfRows := aBool.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   735
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   736
        self size ~~ 0 ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   737
            list do:[:aRow| aRow notNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   738
                beDependentOfRows ifTrue:[aRow addDependent:self]
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   739
                                 ifFalse:[aRow removeDependent:self]
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   740
                ]
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   741
            ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   742
        ]
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
   743
    ]
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   744
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   745
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   746
multipleSelectOk
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   747
    "allow/disallow multiple row selections; the default is false
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   748
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   749
    ^ multipleSelectOk
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   750
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   751
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   752
multipleSelectOk:aState
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   753
    "allow/disallow multiple row selections; the default is false
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   754
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   755
    aState == multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   756
        multipleSelectOk := aState.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   757
        self deselect
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   758
    ]
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   759
!
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   760
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   761
selectRowOnDefault
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   762
    "in case of selecting a none selectable cell, the row is selected
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   763
    "
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   764
    ^ selectRowOnDefault
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   765
!
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   766
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   767
selectRowOnDefault:aBool
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   768
    "in case of selecting a none selectable cell, the row is selected
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   769
    "
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   770
    selectRowOnDefault := aBool
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   771
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   772
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   773
!DSVColumnView methodsFor:'accessing colors'!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   774
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   775
backgroundColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   776
    "get the background color of the rows
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   777
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   778
    ^ bgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   779
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   780
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   781
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   782
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   783
backgroundColor:aColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   784
    "set the background color of the rows
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   785
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   786
    bgColor ~~ aColor ifTrue:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   787
        super viewBackground:bgColor.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   788
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   789
        self realized ifTrue:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   790
            bgColor := aColor on:device.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   791
            self invalidate
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   792
        ] ifFalse:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   793
            bgColor := aColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   794
        ]
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   795
    ]
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   796
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   797
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   798
foregroundColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   799
    "return the foreground color of the rows
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   800
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   801
    ^ fgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   802
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   803
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   804
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   805
foregroundColor:aColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   806
    "set the foreground color of the rows
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   807
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   808
    fgColor ~~ aColor ifTrue:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   809
        self realized ifTrue:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   810
            fgColor := aColor on:device.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   811
            self invalidate
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   812
        ] ifFalse:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   813
            fgColor := aColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   814
        ]
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   815
    ]
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   816
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   817
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   818
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   819
hgLgBgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   820
    "returns the background color of a selected row
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   821
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   822
    ^ hgLgBgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   823
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   825
hgLgFgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   826
    "returns the foreground color of a selected row
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   827
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   828
    ^ hgLgFgColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   829
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   830
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   831
separatorDarkColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   832
    "returns the dark color used for drawing a shadowed separator (3D)
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   833
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   834
    ^ shadowColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   835
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   836
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   837
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   838
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   839
separatorLightColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   840
    "returns the light color used for drawing a shadowed separator (3D)
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   841
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   842
    ^ lightColor
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   843
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   844
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   845
! !
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
   846
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   847
!DSVColumnView methodsFor:'accessing columns'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   848
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   849
columnAt:anIndex
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   850
    "returns the column at an index
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   851
    "
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
   852
    ^ columnDescriptors at:anIndex ifAbsent:nil
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   853
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   854
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   855
columnDescriptors
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   856
    "returns list of column descriptors
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   857
    "
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   858
    ^ columnDescriptors collect:[:aCol| aCol description ]
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   859
!
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   860
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   861
columnDescriptors:aColumnDescriptionList
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   862
    "set the columnDescriptors
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   863
    "
1187
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   864
    |id sz label labelView delta|
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
   865
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   866
    self deselect.
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   867
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   868
    (viewOrigin x ~~ 0 or:[viewOrigin y ~~ 0]) ifTrue:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   869
        delta := viewOrigin negated.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   870
        viewOrigin := 0@0.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   871
        super originChanged:delta
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
   872
    ].
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   873
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   874
    (sz := aColumnDescriptionList size) ~~ 0 ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   875
        id := 0.
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   876
        labelView := dataSetView labelView.
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   877
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   878
        columnDescriptors := aColumnDescriptionList collect:[:aCol||column|
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   879
            (column := aCol) isSequenceable ifTrue:[
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   880
                column := DataSetColumnSpec new fromLiteralArrayEncoding:aCol
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   881
            ].
1187
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   882
            id := id + 1.
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   883
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   884
            labelView notNil ifTrue:[
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   885
                label := DataSetLabel columnDescription:column
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   886
                                                builder:builder
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   887
                                                     on:labelView.
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   888
            ] ifFalse:[
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   889
                label := nil
544b83216038 add status: show labels
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
   890
            ].
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   891
            DataSetColumn new on:self description:column
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   892
                                     columnNumber:id
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
   893
                                            label:label.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   894
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   895
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   896
        columnDescriptors := #()
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   897
    ].
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
   898
    catchChangeEvents := true.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   899
    canFit := (columnDescriptors findFirst:[:aCol|aCol canResize]) ~~ 0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   900
    preferredExtent := nil.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   901
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
   902
    shown ifTrue:[
556
0e04616de48c bug fixes
ca
parents: 545
diff changeset
   903
        self fitColumns ifFalse:[
0e04616de48c bug fixes
ca
parents: 545
diff changeset
   904
            self invalidate.
0e04616de48c bug fixes
ca
parents: 545
diff changeset
   905
            self contentsChanged.
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
   906
        ] ifTrue:[
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
   907
            self preferredExtentChanged.
556
0e04616de48c bug fixes
ca
parents: 545
diff changeset
   908
        ]
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   909
    ].
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
   910
    catchChangeEvents := false.
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
   911
    self changed:#sizeOfColumns.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   912
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   913
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   914
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   915
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   916
firstColumn
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   917
    "returns the first column
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   918
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   919
    ^ columnDescriptors at:1
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   920
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   921
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   922
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   923
lastColumn
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
   924
    "returns the last column
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   925
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   926
    ^ columnDescriptors last
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   927
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   928
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
   929
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   930
!DSVColumnView methodsFor:'accessing interactors'!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   931
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   932
checkToggleActiveImage
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   933
    ^ checkToggleActiveImage
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   934
!
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   935
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   936
checkToggleExtent
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   937
    "returns the extent of a checkToggle
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   938
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   939
    ^ checkToggleExtent
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   940
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   941
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   942
checkToggleForm
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   943
    "returns the form of a checkToggle
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   944
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   945
    ^ checkToggleForm
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   946
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   947
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   948
checkToggleLevel
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   949
    "returns the level of a checkToggle button
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   950
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   951
    ^ checkToggleLevel
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   952
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   953
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   954
checkTogglePassiveImage
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   955
    ^ checkTogglePassiveImage
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   956
!
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
   957
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   958
comboButtonExtent
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   959
    "returns the extent of a comboList or -Box
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   960
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   961
    ^ comboButtonExtent
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   962
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   963
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   964
comboButtonForm
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   965
    "returns the form of a comboList or -Box
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   966
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   967
    ^ comboButtonForm
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   968
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   969
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   970
comboButtonLevel
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   971
    "returns the level of a comboList or -Box button
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
   972
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   973
    ^ comboButtonLevel
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   974
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   975
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   976
rowSelectorExtent
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   977
    "returns the bitmap of a selected row
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   978
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   979
    ^ rowSelectorForm extent
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   980
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   981
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   982
rowSelectorForm
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   983
    "returns the bitmap of a selected row
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   984
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   985
    ^ rowSelectorForm
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   986
! !
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
   987
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
   988
!DSVColumnView methodsFor:'accessing mvc'!
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
   989
1008
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   990
columnAdaptor
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   991
    "return the value of the instance variable 'columnAdaptor' (automatically generated)"
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   992
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   993
    ^ columnAdaptor!
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   994
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   995
columnAdaptor:something
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   996
    "set the value of the instance variable 'columnAdaptor' (automatically generated)"
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   997
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   998
    columnAdaptor := something.!
7874385db982 changes to support columnAdaptors
Claus Gittinger <cg@exept.de>
parents: 991
diff changeset
   999
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1000
columnHolder
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  1001
    "get the valueHolder, which keeps the list of column descriptions
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  1002
    "
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1003
    ^ columnHolder
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1004
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1005
!
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1006
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1007
columnHolder:aValueHolder
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  1008
    "set the valueHolder, which keeps the list of column descriptions
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  1009
    "
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1010
    |columns|
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1011
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1012
    columnHolder notNil ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1013
        columnHolder removeDependent:self
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1014
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1015
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1016
    (columnHolder := aValueHolder) notNil ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1017
        columnHolder addDependent:self.
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1018
        columns := columnHolder value.
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1019
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1020
        columns notNil ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1021
            self columnDescriptors:columns
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1022
        ]
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1023
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1024
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1025
! !
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1026
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1027
!DSVColumnView methodsFor:'accessing rows'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1028
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1029
at:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1030
    "return the row at an index, aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1031
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1032
    |row|
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1033
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1034
    (row := list at:aRowNr) isNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1035
        lockRowIndex := aRowNr.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1036
1034
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered.
Claus Gittinger <cg@exept.de>
parents: 1023
diff changeset
  1037
        (rowIfAbsentBlock notNil
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered.
Claus Gittinger <cg@exept.de>
parents: 1023
diff changeset
  1038
        and:[(row := rowIfAbsentBlock value:aRowNr) notNil]) ifTrue:[
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1039
            list at:aRowNr put:row.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1040
            beDependentOfRows ifTrue:[row addDependent:self].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1041
        ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1042
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1043
        lockRowIndex := 0
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1044
    ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1045
    ^ row
1034
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered.
Claus Gittinger <cg@exept.de>
parents: 1023
diff changeset
  1046
bd02c4cd7582 care for nonexisting rowIfAbsentBlock when a nil-row is encountered.
Claus Gittinger <cg@exept.de>
parents: 1023
diff changeset
  1047
    "Modified: / 31.7.1998 / 01:07:46 / cg"
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1048
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1049
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1050
at:aRowNr ifAbsent:exceptionBlock
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1051
    "return the row at a aRowNr. If the index is invalid, return the
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1052
     result of evaluating the exceptionblock
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1053
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1054
    (aRowNr between:1 and:self size) ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1055
        ^ self at:aRowNr
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1056
    ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1057
    ^ exceptionBlock value
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1058
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1059
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1060
at:aRowNr put:aRow
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1061
    "change the row at an index. The added row is returned
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1062
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1063
    |row|
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1064
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1065
    lockRowIndex == aRowNr ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1066
        ^ self
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1067
    ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1068
    row := list at:aRowNr.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1069
    row == aRow ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1070
        ^ self invalidateRowAt:aRowNr
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1071
    ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1072
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1073
    beDependentOfRows ifTrue:[
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1074
        (row := list at:aRowNr) notNil ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1075
            row removeDependent:self
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1076
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1077
    ].
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1078
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1079
    list at:aRowNr put:aRow.
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1080
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1081
    aRow notNil ifTrue:[                "/ free list
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1082
        beDependentOfRows ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1083
            aRow addDependent:self
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1084
        ].
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1085
        self invalidateRowAt:aRowNr
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1086
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1087
    ^ aRow.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1088
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1089
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1090
first
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1091
    "return the first row
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1092
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1093
    ^ self at:1
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1094
!
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1095
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1096
identityIndexOfRow:aRow
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1097
    "returns index of a row or 0
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1098
    "
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1099
    (list size ~~ 0 and:[aRow notNil]) ifTrue:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1100
        ^ list identityIndexOf:aRow
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1101
    ].
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1102
    ^ 0
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1103
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1104
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1105
last
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1106
    "return the last row
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1107
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1108
    ^ self at:(self size)
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1109
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1110
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1111
list
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1112
    "get the list of rows
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1113
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1114
    ^ list
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1115
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1116
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1117
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1118
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1119
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1120
list:aList
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1121
    "set the list of rows
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1122
    "
1259
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1123
    |makeDependent selectionHasChanged|
656
96a9b94e5472 bugfix:
ca
parents: 649
diff changeset
  1124
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1125
    "/ remove selection without redraw
622
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1126
1259
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1127
    selectionHasChanged := self hasSelection.
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1128
622
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1129
    editValue notNil ifTrue:[
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1130
        editValue removeDependent:self.
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1131
        editValue := nil
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1132
    ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  1133
    self destroyEditView.
622
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1134
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1135
    selectedColIndex := 0.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1136
    selectedRowIndex := multipleSelectOk ifTrue:[nil] ifFalse:[0].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1137
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1138
    shown ifFalse:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1139
        preferredExtent := nil
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1140
    ] ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1141
        aList size ~~ 0 ifTrue:[  "/ otherwise keep old values
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1142
            self columnsDo:[:aCol| aCol invalidate ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1143
            preferredExtent := nil.
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1144
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1145
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1146
656
96a9b94e5472 bugfix:
ca
parents: 649
diff changeset
  1147
    (makeDependent := beDependentOfRows) ifTrue:[
96a9b94e5472 bugfix:
ca
parents: 649
diff changeset
  1148
        self beDependentOfRows:false.
96a9b94e5472 bugfix:
ca
parents: 649
diff changeset
  1149
    ].
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1150
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1151
    aList size ~~ 0 ifTrue:[
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1152
        list := OrderedCollection new:(aList size).
645
53c78cc2ee08 redraw twice in case of expose event during adding a new entry
ca
parents: 643
diff changeset
  1153
        aList do:[:el| list add:el ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1154
    ] ifFalse:[
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1155
        list := nil
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1156
    ].
656
96a9b94e5472 bugfix:
ca
parents: 649
diff changeset
  1157
    self beDependentOfRows:makeDependent.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1158
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1159
    shown ifTrue:[
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1160
        list size ~~ 0 ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1161
            self fitColumns ifTrue:[^ self ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1162
        ].
713
b16e28767967 catch change notifications
ca
parents: 707
diff changeset
  1163
        self recomputeHeightOfContents.
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1164
        self invalidate.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1165
        self contentsChanged.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1166
    ].
1259
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1167
    selectionHasChanged ifTrue:[
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1168
        self selectionChanged.
be271bf31e4b raise selectionChanged notification in case that
tm
parents: 1258
diff changeset
  1169
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1170
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1171
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1172
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1173
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1174
!DSVColumnView methodsFor:'accessing visibility'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1175
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1176
font:aFont
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1177
    "set the font for all shown rows.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1178
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1179
    (aFont notNil and:[aFont ~~ font]) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1180
        super font:(aFont on:device).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1181
        realized ifTrue:[
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1182
            self columnsDo:[:aCol| aCol invalidate ].
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1183
            self preferredExtentChanged.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1184
            self invalidate.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1185
            self contentsChanged
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1186
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1187
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1188
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1189
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1190
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1191
has3Dseparators
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1192
    "returns true if shown in 3D mode
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1193
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1194
    ^ separatorSize ~~ 1
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1195
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1196
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1197
has3Dseparators:aBool
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1198
    "enable or disable 3D mode
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1199
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1200
    |newSepSize|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1201
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1202
    newSepSize := aBool ifTrue:[2] ifFalse:[1].
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1203
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1204
    newSepSize ~~ separatorSize ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1205
        separatorSize := newSepSize.
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1206
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1207
        realized ifTrue:[
1136
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1208
            self columnsDo:[:aCol| aCol invalidate ].
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1209
            self preferredExtentChanged.
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1210
            self invalidate.
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1211
            self contentsChanged
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  1212
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1213
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1214
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1215
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1216
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1217
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1218
horizontalSpacing
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1219
    "horizontal spacing used by columns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1220
    "
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1221
    ^ horizontalSpacing
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1222
!
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1223
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1224
horizontalSpacing:aNumber
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1225
    "horizontal spacing used by columns
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1226
    "
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1227
    horizontalSpacing ~~ aNumber ifTrue:[
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1228
        horizontalSpacing := aNumber.
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1229
        self preferredExtentChanged.
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1230
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1231
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1232
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1233
verticalSpacing
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1234
    "vertical spacing used by columns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1235
    "
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1236
    ^ verticalSpacing
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1237
!
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1238
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1239
verticalSpacing:aNumber
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1240
    "vertical spacing used by columns
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1241
    "
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1242
    verticalSpacing ~~ aNumber ifTrue:[
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1243
        verticalSpacing := aNumber.
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1244
        self preferredExtentChanged.
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  1245
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1246
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1247
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1248
!DSVColumnView methodsFor:'adding & removing rows'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1249
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1250
add:aRow
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1251
    "insert row at end
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1252
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1253
    ^ self add:aRow beforeIndex:(1 + self size)
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1254
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1255
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1256
add:aRow afterIndex:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1257
    "add a new row after slot aRowNr and redisplay; returns nil in case
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1258
     of an invalid index or the row
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1259
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1260
    ^ self add:aRow beforeIndex:(aRowNr + 1)
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1261
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1262
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1263
add:aRow beforeIndex:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1264
    "add a new row before slot aRowNr and redisplay; returns nil in case
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1265
     of an invalid index or the row
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1266
    "
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1267
    self addAll:(Array with:aRow) beforeIndex:aRowNr.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1268
    ^ aRow.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1269
!
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1270
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1271
addAll:aList beforeIndex:start
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1272
    "add a collection of rows before slot start and redisplay
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1273
    "
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1274
    |y0 y1 yD h dH size noSel|
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1275
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1276
    (size := aList size) == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1277
        ^ self
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1278
    ].
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1279
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1280
    self size == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1281
        ^ self list:aList
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1282
    ].
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1283
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1284
    beDependentOfRows ifTrue:[
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1285
        aList do:[:aRow| aRow notNil ifTrue:[aRow addDependent:self]]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1286
    ].
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1287
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1288
    noSel := self numberOfSelections.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1289
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1290
    noSel ~~ 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1291
        multipleSelectOk ifFalse:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1292
            selectedRowIndex >= start ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1293
                selectedRowIndex := selectedRowIndex + size
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1294
            ]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1295
        ] ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1296
            1 to:noSel do:[:i||v|
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1297
                (v := selectedRowIndex at:i) >= start ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1298
                    selectedRowIndex at:i put:(v + size)
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1299
                ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1300
            ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1301
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1302
    ].
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1303
    list addAll:aList beforeIndex:start.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1304
    self recomputeHeightOfContents.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1305
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1306
    y0 := (start - 1) * rowHeight.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1307
    yD := size * rowHeight.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1308
    y1 := y0 + yD.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1309
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1310
    y0 < viewOrigin y ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1311
        self originWillChange.
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1312
        viewOrigin y:(yD + viewOrigin y).
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1313
        self originChanged:(0 @ yD).
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1314
    ].
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1315
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1316
    (shown not or:[self sensor hasDamageFor:self]) ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1317
        ^ self contentsChanged.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1318
    ].
645
53c78cc2ee08 redraw twice in case of expose event during adding a new entry
ca
parents: 643
diff changeset
  1319
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1320
    y0 := self yVisibleOfRowNr:start.
1258
d41cbd2c3dc8 addAll:...
tm
parents: 1227
diff changeset
  1321
    h  := height - margin.
d41cbd2c3dc8 addAll:...
tm
parents: 1227
diff changeset
  1322
    y1 := y0 + yD min:h.
d41cbd2c3dc8 addAll:...
tm
parents: 1227
diff changeset
  1323
d41cbd2c3dc8 addAll:...
tm
parents: 1227
diff changeset
  1324
    (y1 > margin and:[y0 < h]) ifTrue:[
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1325
        h  := h - y1.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1326
        y0 := y0 max:margin.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1327
        dH := y1 - y0.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1328
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1329
        start == list size ifFalse:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1330
            self catchExpose.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1331
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1332
            self copyFrom:self x:0 y:y0
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1333
                             toX:0 y:y1
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1334
                           width:width height:h async:true.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1335
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1336
            self waitForExpose
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1337
        ].
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1338
        self invalidateX:margin y:y0 width:width - margin - margin height:dH.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1339
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1340
    self contentsChanged.
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1341
567
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
  1342
!
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
  1343
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1344
addFirst:aRow
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1345
    "insert a row at start
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1346
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1347
    ^ self add:aRow beforeIndex:1
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1348
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1349
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1350
removeFirst
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1351
    "remove first row; returns the removed row
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1352
    "
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1353
    ^ self removeIndex:1
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1354
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1355
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1356
removeFrom:startIndex to:stopIndex
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1357
    "remove rows from start to stop
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1358
    "
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1359
    |coll noRedraw
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1360
     noSel "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1361
     size  "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1362
     start "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1363
     stop  "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1364
     y0    "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1365
     y1    "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1366
     oY    "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1367
     dY    "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1368
     yB    "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1369
     h     "{ Class: SmallInteger }"
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1370
    |
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1371
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1372
    (    (start := startIndex) < 1
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1373
     or:[(stop := stopIndex) > list size]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1374
    ) ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1375
        ^ self subscriptBoundsError:start
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1376
    ].
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1377
    size := stop - start + 1.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1378
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1379
    beDependentOfRows ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1380
        list from:start to:stop do:[:r| r notNil ifTrue:[r removeDependent:self]].
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1381
    ].
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1382
    noSel := self numberOfSelections.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1383
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1384
    noSel ~~ 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1385
        noSel == 1 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1386
            noSel := self firstIndexSelected.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1387
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1388
            noSel < start ifFalse:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1389
                noSel > stop ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1390
                    noSel := noSel - size.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1391
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1392
                    multipleSelectOk ifFalse:[selectedRowIndex := noSel]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1393
                                      ifTrue:[selectedRowIndex at:1 put:noSel]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1394
                ] ifFalse:[
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1395
                    editValue notNil ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1396
                        editValue removeDependent:self.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1397
                        editValue := nil.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1398
                    ].
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1399
                    self deselect.
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1400
                ]
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1401
            ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1402
        ] ifFalse:[
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1403
            coll := OrderedCollection new:noSel.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1404
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1405
            selectedRowIndex do:[:i|
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1406
                i < start ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1407
                    coll add:i
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1408
                ] ifFalse:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1409
                    i > stop ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1410
                        coll add:(i - size)
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1411
                    ]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1412
                ]
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1413
            ].
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1414
            coll size == 0 ifTrue:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1415
                self deselect
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1416
            ] ifFalse:[
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1417
                selectedRowIndex := coll
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1418
            ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1419
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1420
    ].
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1421
    list removeFrom:start to:stop.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1422
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1423
    y0 := start - 1 * rowHeight.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1424
    dY := size * rowHeight.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1425
    y1 := dY + y0.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1426
    yB := y1 + margin - viewOrigin y.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1427
    self recomputeHeightOfContents.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1428
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1429
    y0 < (oY := viewOrigin y) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1430
        (noRedraw := y1 <= oY) ifFalse:[dY := y0 - oY]
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1431
                                ifTrue:[dY := dY negated].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1432
        self originWillChange.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1433
        viewOrigin y:(dY + oY).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1434
        self originChanged:(0 @ dY).        
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1435
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1436
        noRedraw := y0 > (height + viewOrigin y)
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1437
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1438
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1439
    (noRedraw or:[shown not]) ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1440
        y1 := yB.
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1441
        y0 := self yVisibleOfRowNr:start.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1442
        h  := height - margin - yB.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1443
        y0 := y0 max:margin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1444
561
43b62e424d52 check height is positive before copy
ca
parents: 556
diff changeset
  1445
        h > 0 ifTrue:[
43b62e424d52 check height is positive before copy
ca
parents: 556
diff changeset
  1446
            self catchExpose.
43b62e424d52 check height is positive before copy
ca
parents: 556
diff changeset
  1447
            self copyFrom:self x:0 y:yB toX:0 y:y0 width:width height:h async:true.
43b62e424d52 check height is positive before copy
ca
parents: 556
diff changeset
  1448
            self waitForExpose.
43b62e424d52 check height is positive before copy
ca
parents: 556
diff changeset
  1449
        ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1450
        y0 := y0 + h.
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1451
        self invalidateX:margin y:y0 width:width - margin - margin height:(height - y0).
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1452
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1453
    self contentsChanged.
861
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1454
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1455
!
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1456
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1457
removeIndex:aRowNr
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1458
    "remove row at an index; returns the removed row
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1459
    "
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1460
    |row|
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1461
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1462
    row := list at:aRowNr ifAbsent:nil.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1463
    self removeFrom:aRowNr to:aRowNr.
a227a3ca27e7 bug fix in multi selection
ca
parents: 859
diff changeset
  1464
  ^ row
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1465
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1466
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1467
removeLast
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1468
    "remove last row; the row is returned
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1469
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  1470
    ^ self removeIndex:self size
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1471
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1472
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1473
!DSVColumnView methodsFor:'change & update'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1474
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1475
changed:aParameter with:anArgument
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1476
    "notify all dependents that the receiver has changed somehow.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1477
     Each dependent gets a  '#update:with:from:'-message, with aParameter
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1478
     and anArgument as arguments."
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1479
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1480
    catchChangeEvents ifTrue:[
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1481
        (    aParameter == #sizeOfColumns
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1482
         or:[aParameter == #columnsLayout]
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1483
        ) ifTrue:[
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1484
            ^ self
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1485
        ]
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1486
    ].
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1487
    super changed:aParameter with:anArgument
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1488
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1489
!
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1490
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1491
update:something with:aParameter from:changedObject
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1492
    "one of my rows/cells changed its value
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1493
    "
1227
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1494
    |row newValue realValue|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1495
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1496
    changedObject == columnHolder ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  1497
        ^ self columnDescriptors:(columnHolder value)
622
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1498
    ].
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1499
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1500
    changedObject == editValue ifTrue:[
1227
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1501
        newValue := editValue value.
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1502
        self selectedColumn at:(self firstIndexSelected) put:newValue.
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1503
        realValue := self selectedColumn at:(self firstIndexSelected).
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1504
        realValue ~= newValue ifTrue:[
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1505
            "/ some validation by the row-object; the stored value
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1506
            "/ is different from what I think.
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1507
            "/ update my input fields modelValue
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1508
            editValue value:realValue.
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1509
        ].
2dd18061afc5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
  1510
        ^ self
622
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1511
    ].
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1512
2588f809445d update:with:from:
ca
parents: 618
diff changeset
  1513
    row := (something isNumber) ifTrue:[something] ifFalse:[changedObject].
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1514
    self redrawVisibleRow:row readSelector:aParameter.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1515
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1516
! !
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1517
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1518
!DSVColumnView methodsFor:'drag & drop'!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1519
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1520
canDrag
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1521
    "returns true if dragging is enabled
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1522
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1523
    ^ dropSource notNil
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1524
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1525
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1526
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1527
dropSource
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1528
    "returns the dropSource or nil
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1529
    "
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1530
    ^ dropSource
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1531
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1532
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1533
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1534
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1535
dropSource:aDropSourceOrNil
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1536
    "set the dropSource or nil
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1537
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1538
    dropSource := aDropSourceOrNil.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1539
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1540
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1541
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1542
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1543
dropTarget
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1544
    "returns the dropTarget or nil
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1545
    "
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1546
    ^ dropTarget
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1547
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1548
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1549
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1550
dropTarget:aDropTragetOrNil
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1551
    "set the dropTarget or nil
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1552
    "
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1553
    dropTarget := aDropTragetOrNil.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1554
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1555
!
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1556
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1557
startDragAt:aPoint
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1558
    (dragIsActive not and:[dropSource notNil]) ifTrue:[
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1559
        dragIsActive := true.
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1560
        dropSource startDragIn:self at:aPoint
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1561
    ]
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1562
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1563
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1564
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1565
!DSVColumnView methodsFor:'drawing'!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1566
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1567
colorOnDevice:aColor
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1568
    "returns color on device
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1569
    "
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1570
    |col|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1571
641
tz
parents: 637
diff changeset
  1572
    aColor = Color noColor ifFalse:[
tz
parents: 637
diff changeset
  1573
        col := colorMap at:aColor ifAbsent:nil.
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1574
641
tz
parents: 637
diff changeset
  1575
        col isNil ifTrue:[
tz
parents: 637
diff changeset
  1576
            colorMap at:aColor put:(col := aColor on:device)
tz
parents: 637
diff changeset
  1577
        ].
tz
parents: 637
diff changeset
  1578
        ^ col
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1579
    ].
641
tz
parents: 637
diff changeset
  1580
    ^ bgColor
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1581
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1582
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1583
forceRedraw
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1584
    "a redraw forced by any other component
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1585
    "
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1586
    shown ifTrue:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1587
        self invalidate
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1588
    ]
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1589
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1590
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1591
invalidate
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1592
    "recompute extent before repair range
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1593
    "
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1594
    self  recomputeHeightOfContents.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1595
    super invalidate.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1596
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1597
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1598
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1599
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1600
invalidateRowAt:aRowNr
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1601
    "redraw total row at an index
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1602
    "
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1603
    self invalidateRowAt:aRowNr colAt:0
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1604
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1605
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1606
invalidateRowAt:aRowNr colAt:aColNr
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1607
    "redraw visible row in case of aColNr == 0 or the column in a row;
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1608
     in case that the row/column is hidden no redraw is done
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1609
    "
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1610
    |x y h w|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1611
886
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
  1612
    aRowNr isNil ifTrue:[
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
  1613
        ^ self
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
  1614
    ].
57bd1eddba23 catch empty line in redraw
ca
parents: 874
diff changeset
  1615
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1616
    (shown and:[aRowNr between:1 and:self size]) ifTrue:[
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1617
        h := rowHeight.
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1618
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1619
        (y := self yVisibleOfRowNr:aRowNr) < margin ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1620
            (h := h + y) <= margin ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1621
                ^ self
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1622
            ].                                                  "/ row not visible
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1623
            h := h - margin.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1624
            y := margin.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1625
        ] ifFalse:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1626
            y >= height ifTrue:[^ self].
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1627
        ].
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1628
        aColNr ~~ 0 ifTrue:[                                    "/ redraw column in row
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1629
            w := (self columnAt:aColNr) width.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1630
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1631
            (x := self xVisibleOfColNr:aColNr) < margin ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1632
                (w := w + x) <= margin ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1633
                    ^ self
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1634
                ].                                              "/ column not visible
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1635
                w := w - margin.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1636
                x := margin.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1637
            ] ifFalse:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1638
                x >= width ifTrue:[^ self].
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1639
            ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1640
        ] ifFalse:[                                             "/ redraw whole row
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1641
            x := margin.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1642
            w := width.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1643
        ].
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1644
        self invalidateX:x y:y width:w height:h
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1645
    ]
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1646
!
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1647
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1648
invalidateX:x y:y width:w height:h
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1649
    "invalidate a rectangle 
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1650
    "
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1651
    shown ifTrue:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1652
        self invalidate:(Rectangle left:x top:y width:w height:h)
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1653
    ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1654
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1655
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1656
redrawVisibleRow:aRow
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1657
    "redraw row if visible
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1658
    "
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1659
    self redrawVisibleRow:aRow colAt:0
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1660
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1661
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1662
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1663
redrawVisibleRow:aRow colAt:aColNr
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1664
    "redraw row if visible
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1665
    "
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1666
    |start "{ Class:SmallInteger }"
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1667
     stop  "{ Class:SmallInteger }"
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1668
    |
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1669
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1670
    (start := self indexOfFirstRowShown) ~~ 0 ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1671
        stop := (start + (height // rowHeight)) min:(self size).
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1672
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1673
        aRow isNumber ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1674
            (aRow between:start and:stop) ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1675
                self invalidateRowAt:aRow colAt:aColNr
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1676
            ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1677
        ] ifFalse:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1678
            start to:stop do:[:i|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1679
                (self at:i) == aRow ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1680
                    ^ self invalidateRowAt:i colAt:aColNr
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1681
                ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1682
            ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1683
        ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1684
    ]
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1685
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1686
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1687
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1688
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1689
redrawVisibleRow:aRow readSelector:aSelector
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1690
    "redraw a column identified by its read selector; if no column with
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1691
     the specified read selector is detected, the whole line is drawn.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1692
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1693
    |row idx|
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1694
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1695
    aSelector isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1696
        idx := 0
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1697
    ] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1698
        (row := aRow) isNumber ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1699
            (row := self at:aRow) isNil ifTrue:[ ^ self ]
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1700
        ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1701
        idx := columnDescriptors findFirst:[:aCol||desc|
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1702
            aCol description readSelector == aSelector
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1703
        ]
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1704
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1705
    self redrawVisibleRow:aRow colAt:idx
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1706
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1707
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1708
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1709
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1710
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1711
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1712
redrawX:x y:y width:w height:h
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1713
    "redraw part of myself immediately, given logical coordinates 
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1714
    "
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1715
    |c0 savClip rctg
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1716
     start "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1717
     stop  "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1718
     x0    "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1719
     x1    "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1720
     maxX  "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1721
     yTop  "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1722
     yBot  "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1723
     clHg  "{ Class:SmallInteger }"
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1724
     size  "{ Class:SmallInteger }"
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1725
    |
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1726
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1727
    shown ifFalse:[^ self].
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1728
    self paint:bgColor.
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1729
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1730
    columnDescriptors isEmpty ifTrue:[
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1731
        ^ self fillRectangleX:x y:y width:w height:h
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1732
    ].
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1733
    size  := list size.
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1734
    yTop  := margin - viewOrigin y.                   
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1735
    c0    := y - yTop max:0.
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1736
    start := (c0 // rowHeight) + 1.
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1737
    stop  := (c0 + h - 1 // rowHeight + 1) min:size.
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1738
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1739
    stop < start ifTrue:[
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1740
        ^ self fillRectangleX:x y:y width:w height:h
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1741
    ].
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1742
    savClip := clipRect.
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1743
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1744
    maxX := (x + w) min:(width - margin).
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1745
    x0   := margin - viewOrigin x.
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1746
    yTop := yTop + ((start - 1) * rowHeight).
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1747
    rctg := Rectangle left:x top:y width:w height:h.
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1748
    clHg := (stop - start + 1) * rowHeight.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1749
    yBot := yTop + clHg.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1750
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1751
    columnDescriptors do:[:aCol|
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1752
        x1 := x0 + aCol width.
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1753
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1754
        (x1 > x and:[x0 < maxX]) ifTrue:[
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1755
            rctg width:((x1 min:maxX) - x).
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1756
            clipRect := nil.
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1757
            self clippingRectangle:rctg.
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1758
            aCol redrawX:x0 y:yTop h:clHg  from:start to:stop.
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1759
        ].
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1760
        x0 := x1
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1761
    ].
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1762
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1763
 "/ restore old clipping rectangle
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1764
    self clippingRectangle:savClip.
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1765
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1766
    stop == size ifTrue:[
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1767
        yTop := y + h.
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1768
        yBot < (yTop - margin) ifTrue:[
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1769
         "/ clear to bottom of screen
1115
7f3f4581c3d3 clear background
ca
parents: 1112
diff changeset
  1770
            self paint:bgColor.
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1771
            self fillRectangleX:x y:yBot width:w height:(yTop - yBot).
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1772
        ]
1136
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1773
    ].
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1774
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1775
    (c0 := w + x- x1) > 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1776
     "/ clear to right of screen
1136
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1777
        self paint:bgColor.
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1778
        self fillRectangleX:x1 y:y width:c0 height:h.
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1779
    ].
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1780
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1781
! !
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1782
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1783
!DSVColumnView methodsFor:'drawing interactors'!
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1784
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1785
drawCheckToggleAtX:xTop y:yTop w:rowWidth state:aState
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1786
    "draw a check toggle button
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1787
    "
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1788
    |e form
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1789
     y "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1790
     x "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1791
     h "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1792
     w "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1793
    |
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1794
    w := checkToggleExtent x.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1795
    h := checkToggleExtent y.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1796
    y := yTop + (rowHeight - h // 2).
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1797
    x := xTop + (rowWidth  - w // 2).
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1798
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1799
    (form := checkToggleActiveImage) isNil ifTrue:[
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1800
        self paint:bgColor.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1801
        self fillRectangleX:x y:y width:w height:h.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1802
        self drawEdgesAtX:x   y:y width:w height:h level:checkToggleLevel on:self.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1803
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1804
        aState ifFalse:[
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1805
            ^ self
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1806
        ].
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1807
        self paint:fgColor on:bgColor.
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1808
        form := checkToggleForm
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1809
    ] ifFalse:[
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1810
        aState ifFalse:[form := checkTogglePassiveImage]
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  1811
    ].
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1812
    e := (checkToggleExtent - form extent) // 2.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1813
    self displayForm:form x:(x + e x) y:(y + e y).
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1814
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1815
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1816
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1817
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1818
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1819
!
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1820
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1821
drawComboButtonAtX:xTop y:yTop w:rowWidth
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1822
    "draw a combo button
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1823
    "
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1824
    |e
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1825
     x "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1826
     y "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1827
     h "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1828
     w "{ Class:SmallInteger }"
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1829
    |
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1830
    w := comboButtonExtent x.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1831
    h := comboButtonExtent y.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1832
    y := yTop + (rowHeight - h // 2).
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  1833
    x := xTop + (rowWidth  - w - separatorSize - 1).
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1834
    e := (comboButtonExtent - comboButtonForm extent) // 2.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1835
1131
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1836
    self paint:bgColor.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1837
    self fillRectangleX:x y:y width:w height:h.
ef8f528399aa clear background under button
ca
parents: 1129
diff changeset
  1838
    self drawEdgesAtX:x   y:y width:w height:h level:comboButtonLevel on:self.
1136
4a9d9db81422 set bg/fg color when drawing an interactor
ca
parents: 1134
diff changeset
  1839
    self paint:fgColor on:bgColor.
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1840
    self displayForm:comboButtonForm x:(x + e x) y:(y + e y)
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1841
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1842
!
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1843
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1844
drawEdgesAtX:x y:y width:w height:h level:aLevel on:aGC
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1845
    "draw edges for a cell or label
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1846
    "
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1847
    aGC  drawEdgesForX:x
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1848
                     y:y 
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1849
                 width:w
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1850
                height:h
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1851
                 level:aLevel 
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1852
                shadow:buttonShadowColor 
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1853
                 light:buttonLightColor
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1854
            halfShadow:buttonHalfShadowColor 
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1855
             halfLight:buttonHalfLightColor
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1856
                 style:ButtonEdgeStyle.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  1857
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1858
! !
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  1859
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1860
!DSVColumnView methodsFor:'enumerating columns'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1861
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1862
columnsDo:aOneArgBlock
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1863
    "evaluate the argument, aOneArgBlock for every column
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1864
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1865
    columnDescriptors do:aOneArgBlock
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1866
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1867
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1868
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1869
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1870
columnsFrom:start to:stop do:aOneArgBlock
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1871
    "evaluate the argument, aOneArgBlock for the columns with index start to
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1872
     stop in the collection of column descriptors
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1873
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1874
    columnDescriptors from:start to:stop do:aOneArgBlock
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1875
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1876
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1877
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1878
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1879
!DSVColumnView methodsFor:'event handling'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1880
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1881
buttonMotion:buttonMask x:x y:y
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1882
    "mouse-move while button was pressed - handle multiple selection changes
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1883
    "
991
c1bc86ebe79e removed unused locals
Claus Gittinger <cg@exept.de>
parents: 990
diff changeset
  1884
    |idx scr p|
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1885
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1886
    dragAccessPoint notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1887
        dragIsActive ifFalse:[
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1888
            p := x @ y.
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  1889
            (clickPosition dist:p) > 5.0 ifTrue:[ self startDragAt:p ]
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1890
        ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1891
        ^ self
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1892
    ].
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1893
    self sensor ctrlDown ifTrue:[^ self ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1894
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1895
    (multipleSelectOk and:[selectedColIndex == 0 and:[selectedRowIndex notNil]]) ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1896
        ^ self
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1897
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1898
    "is it the select or 1-button ?"
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1899
1023
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1900
    self sensor leftButtonPressed ifFalse:[^ self].
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1901
"/    (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1902
"/        (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1903
"/            ^ self
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1904
"/        ].
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1905
"/    ].
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1906
    scr := 0.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1907
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1908
    y > height ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1909
        scr := rowHeight.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1910
        idx := self yVisibleToRowNr:(height + rowHeight).
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1911
    ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1912
        y < 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1913
            scr := rowHeight negated.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1914
            idx := self yVisibleToRowNr:scr.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1915
        ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1916
            idx := self yVisibleToRowNr:y.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1917
        ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1918
    ].
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1919
    (idx isNil or:[idx < 1 or:[self isInSelection:idx]]) ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1920
        ^ self
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1921
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1922
    selectedRowIndex := selectedRowIndex asOrderedCollection.
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1923
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1924
    clickPosition notNil ifTrue:[
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1925
        (clickPosition - idx) abs > 1 ifTrue:[|s e|
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1926
            clickPosition < idx ifTrue:[
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1927
                s := clickPosition + 1.
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1928
                e := idx - 1.
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1929
            ] ifFalse:[
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1930
                s := idx + 1.
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1931
                e := clickPosition - 1.
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1932
            ].
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1933
            s to:e do:[:i|
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1934
                (self isInSelection:i) ifFalse:[
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1935
                    selectedRowIndex add:i.
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1936
                    self invalidateRowAt:i colAt:0.
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1937
                ]
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1938
            ]
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1939
        ]
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1940
    ].
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  1941
    selectedRowIndex add:(clickPosition := idx).
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1942
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1943
    scr == 0 ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  1944
        self invalidateRowAt:idx colAt:0.
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1945
    ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1946
        self scrollTo:(viewOrigin + (0 @ scr)) redraw:true
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1947
    ].
1023
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1948
59c1888ca494 use another left-button-down test in #buttonMotion.
Claus Gittinger <cg@exept.de>
parents: 1008
diff changeset
  1949
    "Modified: / 28.7.1998 / 16:01:11 / cg"
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1950
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1951
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1952
buttonMultiPress:button x:x y:y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1953
    "a button was pressed twice - handle doubleclick here
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1954
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1955
    ((button == 1) or:[button == #select]) ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1956
        ^ super buttonMultiPress:button x:x y:y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1957
    ].
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1958
    self numberOfSelections == 1 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1959
        self firstIndexSelected == (self yVisibleToRowNr:y) ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1960
            (     selectedColIndex == 0
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1961
              or:[selectedColIndex == (self xVisibleToColNr:x)]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1962
            ) ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1963
                self doubleClicked
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  1964
            ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1965
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1966
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1967
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1968
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1969
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1970
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1971
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1972
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1973
buttonPress:button x:x y:y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1974
    "a button was pressed - handle selection here
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1975
    "
991
c1bc86ebe79e removed unused locals
Claus Gittinger <cg@exept.de>
parents: 990
diff changeset
  1976
    |rowNr colNr menu sz|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  1977
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1978
    clickPosition   := nil.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1979
    dragAccessPoint := nil.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1980
    dragIsActive    := false.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  1981
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1982
    ((button == 2) or:[button == #menu]) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1983
        (menu := self findMenuForSelection) notNil ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1984
            ^ menu startUp
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1985
        ]
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1986
    ] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1987
        (     (button == 1 or:[button == #select])
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1988
         and:[(rowNr := self yVisibleToRowNr:y) notNil
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1989
         and:[(colNr := self xVisibleToColNr:x) notNil]]
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1990
        ) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1991
            (multipleSelectOk not or:[self sensor ctrlDown not]) ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1992
                selectedColIndex ~~ 0 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1993
                    colNr := 0
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1994
                ] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1995
                    (sz := self numberOfSelections == 0) ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1996
                        (self isInSelection:rowNr) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1997
                            sz == 1 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1998
                                self selectColIndex:0 rowIndex:nil.
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  1999
                                ^ self sensor flushMotionEventsFor:self.
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2000
                            ].
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2001
                            selectedRowIndex remove:rowNr.
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2002
                        ] ifFalse:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2003
                            selectedRowIndex add:rowNr
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2004
                        ].
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2005
                        self invalidateRowAt:rowNr.
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2006
                        self selectionChanged.
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2007
                      ^ self sensor flushMotionEventsFor:self.
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2008
                    ]
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2009
                ]
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2010
            ].
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  2011
            (self canDrag and:[self isSelected:rowNr inColumn:colNr]) ifTrue:[
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  2012
                clickPosition   := x @ y.
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2013
                dragAccessPoint := (colNr @ rowNr).
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2014
            ] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2015
                self selectRowAt:rowNr colAt:colNr atPoint:(x @ y)
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2016
            ].
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2017
            ^ self
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2018
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2019
    ].
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2020
    super buttonPress:button x:x y:y
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2021
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2022
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2023
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2024
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2025
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2026
buttonRelease:button x:x y:y
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2027
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2028
    clickPosition notNil ifTrue:[
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2029
        dragAccessPoint notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2030
            dragIsActive ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2031
                self selectRowAt:(dragAccessPoint y)
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2032
                           colAt:(dragAccessPoint x)
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2033
                         atPoint:clickPosition
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2034
            ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2035
            dragAccessPoint := nil.
824
d2e60c8ac775 support of Drag & Drop
ca
parents: 809
diff changeset
  2036
            dragIsActive := false.
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2037
        ] ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2038
            self selectionChanged
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2039
        ].        
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2040
        clickPosition := nil.
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2041
    ].
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2042
    super buttonRelease:button x:x y:y
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2043
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2044
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2045
!
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2046
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2047
characterPress:aChar x:x y:y
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2048
    "search row in column at x/y starting its printable label with cahracter.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2049
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2050
    |colNr rowNr lsize found column|
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2051
872
ad92183a6e6b pass unhandled keys up (for focus control)
Claus Gittinger <cg@exept.de>
parents: 861
diff changeset
  2052
    (rowIfAbsentBlock notNil 
896
aa07612a7c04 care for redirected messages in characterPress:
Claus Gittinger <cg@exept.de>
parents: 892
diff changeset
  2053
     or:[x isNil
aa07612a7c04 care for redirected messages in characterPress:
Claus Gittinger <cg@exept.de>
parents: 892
diff changeset
  2054
     or:[(colNr := self xVisibleToColNr:x) isNil]]) ifTrue:[
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2055
        ^ self
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2056
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2057
    rowNr  := self lastIndexSelected.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2058
    lsize  := self size.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2059
    column := self columnAt:colNr.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2060
    found  := 0.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2061
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2062
    lsize > rowNr ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2063
     "/ search to end
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2064
        found := column findRowNrStartingWithChar:aChar start:(rowNr + 1) stop:lsize.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2065
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2066
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2067
    (found == 0 and:[rowNr > 1]) ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2068
     "/ search from begin
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2069
        found := column findRowNrStartingWithChar:aChar start:1 stop:(rowNr - 1)
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2070
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2071
    found ~~ 0 ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2072
        self selectColIndex:colNr rowIndex:found.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2073
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2074
896
aa07612a7c04 care for redirected messages in characterPress:
Claus Gittinger <cg@exept.de>
parents: 892
diff changeset
  2075
    "Modified: / 21.5.1998 / 03:30:22 / cg"
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2076
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2077
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2078
contentsChanged
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2079
    "contents changed - move origin up if possible
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2080
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2081
    |y|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2082
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2083
    shown ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2084
        self recomputeHeightOfContents.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2085
        y := self maxViewOriginY.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2086
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2087
        viewOrigin y > y ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2088
            self scrollTo:(viewOrigin x @ y)
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2089
        ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2090
            self updateEditViewOrigin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2091
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2092
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2093
    super contentsChanged
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2094
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2095
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2096
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2097
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2098
doubleClicked
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2099
    "handle a double click
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2100
    "
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2101
    |col sel idx|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2102
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2103
    self hasSelection ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2104
        idx := self firstIndexSelected.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2105
        col := self selectedColumn.
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2106
        (col notNil and:[(sel := col doubleClickedSelector) notNil]) ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2107
            (self at:idx) perform:sel
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2108
        ] ifFalse:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2109
            doubleClickActionBlock notNil ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2110
                doubleClickActionBlock value:idx
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2111
            ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2112
        ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2113
    ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2114
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2115
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2116
findMenuForSelection
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2117
    "find the middle button menu for the current selection; returns the menu or nil
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2118
    "
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2119
    |col row menu|
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2120
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2121
    self numberOfSelections == 1 ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2122
        row := self at:(self firstIndexSelected).
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2123
        col := self selectedColumn.
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2124
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2125
        (col notNil and:[(menu := col menuForRow:row) notNil]) ifTrue:[
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2126
            ^ menu
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2127
        ].
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2128
        col := columnDescriptors detect:[:c| c rendererType == #rowSelector]
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2129
                                 ifNone:[nil].
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2130
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2131
        col notNil ifTrue:[
1223
176702811314 kludge: when asking for an itemMenu, pass application to
tm
parents: 1215
diff changeset
  2132
            ^ col menuForRow:row inApplication:(self application)
667
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2133
        ]
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2134
    ].
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2135
    ^ nil
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2136
!
caa3c553d3d1 accessing of the middle-button assigned to a cell
ca
parents: 656
diff changeset
  2137
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2138
keyPress:aKey x:x y:y
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2139
    "a key was pressed - handle page-keys here
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2140
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2141
    <resource: #keyboard (#PreviousPage #NextPage #HalfPageUp #HalfPageDown
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2142
                          #BeginOfText #EndOfText #ScrollUp #ScrollDown
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2143
                          #CursorUp #CursorDown #CursorRight #CursorLeft)>
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2144
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2145
    |sensor n max idx selRowNr key column isTab listSize noSel|
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2146
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2147
    (sensor := self sensor) isNil ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2148
        ^ self
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2149
    ].
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2150
    (listSize := list size) == 0 ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2151
        ^ super keyPress:aKey x:x y:y
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2152
    ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2153
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2154
    (aKey == #PreviousPage) ifTrue:[^ self pageUp].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2155
    (aKey == #NextPage)     ifTrue:[^ self pageDown].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2156
    (aKey == #HalfPageUp)   ifTrue:[^ self halfPageUp].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2157
    (aKey == #HalfPageDown) ifTrue:[^ self halfPageDown].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2158
    (aKey == #BeginOfText)  ifTrue:[^ self scrollToTop].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2159
    (aKey == #EndOfText)    ifTrue:[^ self scrollToBottom].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2160
    (aKey isCharacter)      ifTrue:[^ self characterPress:aKey x:x y:y ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2161
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2162
    (aKey == #ScrollUp or:[aKey == #ScrollDown]) ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2163
        n := (1 + (sensor compressKeyPressEventsWithKey:aKey)) * self verticalScrollStep.
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2164
        aKey == #ScrollUp ifTrue:[self scrollUp:n] ifFalse:[self scrollDown:n].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2165
      ^ self
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2166
    ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2167
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2168
    aKey == #Return ifTrue:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2169
        self numberOfSelections == 1 ifTrue:[self doubleClicked].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2170
      ^ self
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2171
    ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2172
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2173
    selRowNr := self firstIndexSelected.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2174
    n        := 1 + (sensor compressKeyPressEventsWithKey:aKey).
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2175
    (aKey == #CursorUp or:[aKey == #CursorDown]) ifTrue:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2176
        selRowNr == 0 ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2177
            n := aKey == #CursorUp ifTrue:[listSize] ifFalse:[1]
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2178
        ] ifFalse:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2179
            n := (n \\ listSize) max:1.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2180
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2181
            aKey == #CursorUp ifTrue:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2182
                (n := selRowNr - n) <= 0       ifTrue:[n := listSize + n]
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2183
            ] ifFalse:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2184
                (n := selRowNr + n) > listSize ifTrue:[n := n - listSize]
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2185
            ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2186
        ].
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2187
        ^ self selectColIndex:selectedColIndex rowIndex:n
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2188
    ].
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2189
    (isTab := aKey includesString:'Tab') ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2190
        key := (sensor shiftDown or:[aKey includesString:'Left']) ifTrue:[#CursorLeft]
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2191
                                                                 ifFalse:[#CursorRight]
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2192
    ] ifFalse:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2193
        (aKey == #focusPrevious or:[aKey == #focusNext]) ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2194
            isTab := true.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2195
            key   := aKey == #focusPrevious ifTrue:[#CursorLeft] ifFalse:[#CursorRight]
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2196
        ] ifFalse:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2197
            (aKey == #CursorRight or:[aKey == #CursorLeft]) ifFalse:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2198
                ^ super keyPress:aKey x:x y:y
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2199
            ].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2200
            key := aKey
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2201
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2202
    ].
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2203
    max := self numberOfColumns.
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2204
    selRowNr == 0 ifTrue:[selRowNr := 1].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2205
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2206
    (idx := selectedColIndex) == 0 ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2207
        idx := key == #CursorRight ifTrue:[0] ifFalse:[max + 1]
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2208
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2209
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2210
    key == #CursorLeft ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2211
        [n ~~ 0] whileTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2212
            (idx := idx - 1) == 0 ifTrue:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2213
                (isTab and:[(selRowNr := selRowNr - 1) == 0]) ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2214
                    tabAtStartAction notNil ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2215
                        tabAtStartAction value
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2216
                    ] ifFalse:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2217
                        self windowGroup focusPreviousFrom:self
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2218
                    ].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2219
                    ^ self
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2220
                ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2221
                idx := max
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2222
            ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2223
            column := self columnAt:idx.
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2224
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2225
            (column rendererType ~~ #rowSelector and:[column canSelect:selRowNr]) ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2226
                n := n - 1
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2227
            ]
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2228
        ]
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2229
    ] ifFalse:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2230
        [n ~~ 0] whileTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2231
            (idx := idx + 1) > max ifTrue:[
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2232
                (isTab and:[(selRowNr := selRowNr + 1) > listSize]) ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2233
                    tabAtEndAction notNil ifTrue:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2234
                        tabAtEndAction value
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2235
                    ] ifFalse:[
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2236
                        self windowGroup focusNextFrom:self
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2237
                    ].
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2238
                    ^ self
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2239
                ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2240
                idx := 1
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2241
            ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2242
            column := self columnAt:idx.
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2243
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2244
            (column rendererType ~~ #rowSelector and:[column canSelect:selRowNr]) ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2245
                n := n - 1
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2246
            ]
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2247
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2248
    ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2249
    self selectColIndex:idx rowIndex:selRowNr.
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2250
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2251
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  2252
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2253
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2254
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2255
originChanged:delta
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2256
    "this one is sent, after the origin of my contents has changed -
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2257
     tell dependents (i.e. scrollers) about this
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2258
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2259
    super originChanged:delta.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2260
    self updateEditViewOrigin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2261
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2262
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2263
sizeChanged:how
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2264
    "size changed - move origin up if possible
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2265
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2266
    super sizeChanged:how.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2267
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2268
    (shown and:[self numberOfColumns ~~ 0 and:[self fitColumns not]]) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2269
        self scrollTo:viewOrigin.       "/ validates viewOrigin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2270
        self invalidate.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2271
        self scrollToSelection
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2272
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2273
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2274
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2275
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2276
!DSVColumnView methodsFor:'gc operations'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2277
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2278
imageOnDevice:anImage
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2279
    "associate image to device and clear pixel mask; returns the new image.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2280
    "
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2281
    |image|
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2282
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2283
    (image := anImage) notNil ifTrue:[
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2284
        image device ~~ device ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2285
            image := image copy onDevice:device.
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2286
        ].
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2287
        image isImage ifTrue:[
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2288
            image := image clearMaskedPixels
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2289
        ]
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2290
    ].
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2291
    ^ image
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2292
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2293
!
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2294
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2295
registerImage:anImage key:aKey
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2296
    "any row can register an image with a unique identifier a key symbol
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2297
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2298
    |img|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2299
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2300
    (img := registererImages at:aKey ifAbsent:nil) notNil ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2301
        ^ img
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2302
    ].
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2303
    img := self imageOnDevice:anImage.
567
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
  2304
    registererImages at:aKey put:img.
01083cbb4bae checkin from browser
ca
parents: 563
diff changeset
  2305
    ^ img
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2306
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2307
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2308
registeredImageAt:aKey
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2309
    "any row can register an image with a unique identifier
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2310
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2311
    ^ registererImages at:aKey ifAbsent:nil
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2312
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2313
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2314
releaseAllRegisteredImages
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2315
    "release all registered images
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2316
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2317
    registererImages := IdentityDictionary new.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2318
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2319
1326
7ec8697bad24 category change
Claus Gittinger <cg@exept.de>
parents: 1311
diff changeset
  2320
!DSVColumnView methodsFor:'initialize / release'!
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2321
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2322
create
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2323
    "set color on device
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2324
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2325
    super create.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2326
    fgColor     := fgColor     on:device.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2327
    bgColor     := bgColor     on:device.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2328
    hgLgFgColor := hgLgFgColor on:device.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2329
    hgLgBgColor := hgLgBgColor on:device.
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2330
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2331
    buttonShadowColor := buttonShadowColor on:device.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2332
    buttonLightColor  := buttonLightColor on:device.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2333
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2334
    buttonHalfShadowColor notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2335
        buttonHalfShadowColor := buttonHalfShadowColor on:device
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2336
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2337
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2338
    buttonHalfLightColor notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2339
        buttonHalfLightColor := buttonHalfLightColor on:device
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2340
    ].
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2341
    rowSelectorForm         := self imageOnDevice:rowSelectorForm.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2342
    checkToggleActiveImage  := self imageOnDevice:checkToggleActiveImage.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2343
    checkTogglePassiveImage := self imageOnDevice:checkTogglePassiveImage.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2344
    comboButtonForm         := self imageOnDevice:comboButtonForm.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2345
    checkToggleForm         := self imageOnDevice:checkToggleForm.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2346
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2347
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2348
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2349
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2350
destroy
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2351
    "remove dependencies
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2352
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2353
    self columnHolder:nil.
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2354
    self beDependentOfRows:false.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2355
    super destroy
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2356
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2357
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2358
initStyle
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2359
    "setup colors
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2360
    "
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2361
    |button widget|
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2362
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2363
    super initStyle.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2364
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2365
    DefaultForegroundColor isNil ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2366
        self class updateStyleCache
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2367
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2368
    fgColor     := DefaultForegroundColor.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2369
    bgColor     := DefaultBackgroundColor.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2370
    hgLgFgColor := DefaultHilightForegroundColor.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2371
    hgLgBgColor := DefaultHilightBackgroundColor.
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2372
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2373
    shadowColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2374
        shadowColor := Color grayPercent:40.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2375
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2376
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2377
    lightColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2378
        lightColor := Color grayPercent:75
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2379
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2380
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2381
    buttonLightColor    := ButtonLightColor  ? lightColor.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2382
    buttonShadowColor   := ButtonShadowColor ? shadowColor.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2383
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2384
    (ButtonEdgeStyle == #soft) ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2385
        buttonHalfShadowColor := ButtonHalfShadowColor.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2386
        buttonHalfLightColor  := ButtonHalfLightColor.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2387
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2388
        buttonHalfShadowColor isNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2389
            buttonHalfShadowColor := buttonShadowColor lightened
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2390
        ]
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2391
    ].
1100
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2392
    rowSelectorForm         := self class rowSelector.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2393
    checkToggleActiveImage  := CheckToggleActiveImage.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2394
    checkTogglePassiveImage := CheckTogglePassiveImage.
376515452be4 support of all styles; windows and next
ca
parents: 1089
diff changeset
  2395
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2396
    ComboButtonForm isNil ifTrue:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2397
        widget            := ComboListView new.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2398
        button            := widget menuButton.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2399
        ComboButtonForm   := button label.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2400
        ComboButtonLevel  := button offLevel.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2401
        ComboButtonExtent := (button preferredExtent x) @ (widget preferredExtent y).
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2402
    ].
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2403
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2404
    CheckToggleForm isNil ifTrue:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2405
        widget            := CheckToggle new.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2406
        CheckToggleForm   := widget label.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2407
        CheckToggleLevel  := widget offLevel.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2408
        CheckToggleExtent := widget preferredExtent.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2409
    ].
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2410
    comboButtonForm   := ComboButtonForm.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2411
    comboButtonLevel  := ComboButtonLevel.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2412
    comboButtonExtent := ComboButtonExtent.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2413
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2414
    checkToggleForm   := CheckToggleForm.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2415
    checkToggleLevel  := CheckToggleLevel.
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2416
    checkToggleExtent := CheckToggleExtent.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2417
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2418
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2419
initialize
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2420
    "set default attributes
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2421
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2422
    super initialize.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2423
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2424
    viewOrigin         := 0@0.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2425
    font               := font on:device.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2426
    rowHeight          := font height.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2427
    multipleSelectOk   := false.                        "/ multiselect disabled
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2428
    selectedRowIndex   := selectedColIndex  := 0.       "/ no selection
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2429
    registererImages   := IdentityDictionary new.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2430
    columnDescriptors  := #().
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2431
    beDependentOfRows  := false.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2432
    verticalSpacing    := self class verticalSpacing.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2433
    horizontalSpacing  := self class horizontalSpacing.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2434
    colorMap           := Dictionary new.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2435
    catchChangeEvents  := false.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2436
    dragIsActive       := false.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2437
    rowFontAscent      := 1.                            "/ dummy initialization
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2438
    separatorSize      := 1.                            "/ separators mode 2D
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2439
    selectRowOnDefault := true.
610
4954999c4c75 set lineWidth to 0
ca
parents: 607
diff changeset
  2440
    self lineWidth:0.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2441
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2442
705
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2443
mapped
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2444
    "set selection if exists after mapping
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2445
    "
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2446
    |idx|
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2447
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2448
    super mapped.
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2449
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2450
    (idx := self firstIndexSelected) ~~ 0 ifTrue:[
705
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2451
        self scrollToRowAt:idx colAt:0.        
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2452
    ].
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2453
!
d9ebfd72d506 set selection if exists after mapping
tz
parents: 667
diff changeset
  2454
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2455
realize
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2456
    "recompute contents and fit columns to view
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2457
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2458
    self  bitGravity:#NorthWest.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2459
    self  recomputeHeightOfContents.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2460
    super realize.
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2461
    self  fitColumns.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2462
! !
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2463
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2464
!DSVColumnView methodsFor:'obsolete'!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2465
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2466
has3Dsepartors
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2467
    "shouldn't be used any more
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2468
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2469
    ^ self has3Dseparators
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2470
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2471
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2472
has3Dsepartors:aBool
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2473
    "shouldn't be used any more
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2474
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2475
    self has3Dseparators:aBool
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2476
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2477
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2478
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2479
!DSVColumnView methodsFor:'private'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2480
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2481
destroyEditView
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2482
    "destroy the edit view; release KeyboardForwarder
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2483
    "
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2484
    editView notNil ifTrue:[
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2485
        editView withAllSubViewsDo:[:aView|
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2486
            aView delegate:nil
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2487
        ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2488
        editView destroy.
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2489
        editView := nil.
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2490
        self windowGroup focusView:nil.
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2491
    ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2492
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2493
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2494
!
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  2495
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2496
detectViewAt:aPoint in:aView
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2497
    "returns the view at a point
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2498
    "
637
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2499
    |p|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2500
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2501
    (aView notNil and:[aView subViews notNil]) ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2502
        aView subViews do:[:sv|
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2503
            p := device translatePoint:aPoint from:(self id) to:(sv id).
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2504
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2505
            (p x >= 0 and:[p y >= 0 and:[p x <= sv width and:[p y <= sv height]]]) ifTrue:[
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2506
                ^ self detectViewAt:aPoint in:sv
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2507
            ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2508
        ]
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2509
    ].
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2510
    ^ aView
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2511
!
e56ec99923ae VW compatible
ca
parents: 622
diff changeset
  2512
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2513
fitColumns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2514
    "fit columns to view
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2515
    "
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2516
    |raiseNotify lastColumn dX sz expand resizables deltaWidth|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2517
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2518
    self canFit ifFalse:[^ false ].
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2519
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2520
    resizables  := 0.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2521
    deltaWidth  := 0.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2522
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2523
    preferredExtent isNil ifTrue:[
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2524
        raiseNotify := catchChangeEvents.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2525
        catchChangeEvents := true.
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2526
        self preferredExtent.
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2527
        catchChangeEvents := raiseNotify.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2528
        raiseNotify := raiseNotify not.
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2529
    ] ifFalse:[
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2530
        raiseNotify := false
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2531
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2532
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2533
    self columnsDo:[:aCol|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2534
        aCol canResize ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2535
            resizables := resizables + 1.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2536
            deltaWidth := aCol setMinWidth.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2537
            lastColumn := aCol.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2538
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2539
    ].
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2540
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2541
    resizables == 0 ifFalse:[
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2542
        sz := self widthOfContents.
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2543
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2544
        (expand := sz < width) ifTrue:[
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2545
            deltaWidth := width - sz + margin + margin
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2546
        ]
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2547
    ].
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2548
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2549
    deltaWidth == 0 ifTrue:[
859
e63eb6f321e1 support List for columns
ca
parents: 833
diff changeset
  2550
        raiseNotify ifTrue:[ self changed:#columnsLayout ].
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2551
        ^ false
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2552
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2553
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2554
    expand ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2555
        (dX := deltaWidth // resizables) ~~ 0 ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2556
            self columnsDo:[:aCol|aCol canResize ifTrue:[aCol growWidth:dX]]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2557
        ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2558
        lastColumn growWidth:(deltaWidth - (dX * resizables)).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2559
    ].
732
cc72bcc0372b bug fix: resize label view
ca
parents: 713
diff changeset
  2560
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2561
    self preferredExtentChanged.
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2562
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2563
    shown ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2564
        self invalidate.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2565
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2566
        self hasSelection ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2567
            editView notNil ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2568
                editView width:(self selectedColumn width - separatorSize)
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2569
            ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2570
            self scrollToSelection.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2571
        ].
732
cc72bcc0372b bug fix: resize label view
ca
parents: 713
diff changeset
  2572
        self contentsChanged.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2573
    ].
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2574
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2575
    self changed:#columnsLayout.
732
cc72bcc0372b bug fix: resize label view
ca
parents: 713
diff changeset
  2576
  ^ true.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2577
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2578
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2579
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2580
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2581
maxViewOriginY
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2582
    "returns the maximum possible y of the view origin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2583
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2584
    |y|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2585
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2586
    y := self heightOfContents - self innerHeight.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2587
  ^ y max:0
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2588
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2589
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2590
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2591
updateEditViewOrigin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2592
    "update origin of the editView
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2593
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2594
    |x y|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2595
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2596
    editView notNil ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2597
        y := self yVisibleOfRowNr:(self firstIndexSelected).
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2598
        x := self xVisibleOfColNr:(self selectedColIndex).
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2599
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  2600
        editView origin:(x @ y + separatorSize).
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2601
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2602
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2603
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2604
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2605
xVisibleOfColNr:aColNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2606
    "returns visible x assigned to a column number
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2607
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2608
    |x|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2609
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2610
    x := margin - viewOrigin x.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2611
    self columnsFrom:1 to:(aColNr - 1) do:[:aCol| x := x + aCol width ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2612
  ^ x
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2613
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2614
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2615
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2616
xVisibleToColNr:x
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2617
    "returns the column number assigned to a physical x or nil
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2618
    "
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2619
    |x0 nr|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2620
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2621
    x0 := x + viewOrigin x - margin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2622
    nr := 1.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2623
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2624
    self columnsDo:[:aCol|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2625
        (x0 := x0 - aCol width) <= 0 ifTrue:[^ nr].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2626
        nr := nr + 1.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2627
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2628
    ^ nil.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2629
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2630
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2631
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2632
yVisibleOfRowNr:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2633
    "returns visible y assigned to the row number
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2634
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2635
    ^ (aRowNr - 1) * rowHeight + margin - viewOrigin y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2636
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2637
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2638
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2639
yVisibleToRowNr:y
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2640
    "returns the row number assigned to a physical y or nil
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2641
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2642
    |y0|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2643
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2644
    y0 := (y + viewOrigin y - margin) // rowHeight + 1.
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2645
  ^ (y0 <= self size) ifTrue:[y0] ifFalse:[nil]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2646
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2647
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2648
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2649
!DSVColumnView methodsFor:'queries'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2650
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2651
canFit
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2652
    "returns true if columns can be fit to view
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2653
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2654
    ^ canFit
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2655
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2656
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  2657
hasOpenEditor
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  2658
    ^ editView notNil
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  2659
!
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  2660
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2661
indexOfFirstRowShown
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2662
    "returns index of first row shown
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2663
    "
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2664
    |idx|
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2665
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2666
    idx := (self yOriginOfContents // rowHeight) + 1.
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2667
  ^ (idx <= self size) ifTrue:[idx] ifFalse:[0]
563
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2668
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2669
!
826871ce82c9 bug fix:
ca
parents: 561
diff changeset
  2670
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2671
numberOfColumns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2672
    "returns number of columns
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2673
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2674
    ^ columnDescriptors size
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2675
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2676
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2677
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2678
numberOfRows
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2679
    "returns number of raws
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2680
    "
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2681
    ^ self size
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2682
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2683
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2684
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2685
rowHeight
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2686
    "get the height of the highest row in pixels
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2687
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2688
    ^ rowHeight
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2689
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2690
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2691
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2692
separatorSize
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2693
    "returns vertical/horizontal size of a separator dependent on the
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2694
     3D effect.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2695
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2696
    ^ separatorSize
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2697
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2698
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2699
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2700
size
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2701
    "returns number of raws
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2702
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2703
    ^ list size
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2704
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2705
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2706
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2707
!DSVColumnView methodsFor:'recomputation'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2708
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2709
hasPreferredExtent
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2710
    "returns true if preferred extent is accumulated
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2711
    "
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2712
    ^ preferredExtent notNil
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2713
!
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2714
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2715
preferredExtent
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2716
    "recompute preferred extent; raise notification
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2717
    "
1201
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2718
    |x rH|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2719
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2720
    preferredExtent notNil ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2721
        ^ preferredExtent
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2722
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2723
    x := 3.
1201
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2724
    rH := font height.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2725
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2726
    self columnsDo:[:aCol|
1201
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2727
        rH := (aCol heightOfHighestRow) max:rH.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2728
        x := x + (aCol minWidth).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2729
    ].
1201
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2730
    rowHeight       := (rH + separatorSize + verticalSpacing + verticalSpacing + 1) // 2 * 2.
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2731
    preferredExtent := (x + margin + margin) @ (self size * rH).
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2732
    rowFontAscent   := (rH - separatorSize - font height) // 2 + font ascent.
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2733
    rowFontAscent   := font ascent.
a81cf27650bd *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1187
diff changeset
  2734
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2735
    shown ifFalse:[
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2736
        self changed:#columnsLayout
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2737
    ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2738
  ^ preferredExtent
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2739
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2740
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2741
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2742
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2743
preferredExtentChanged
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2744
    "called if the preffered extent changed
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2745
    "
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2746
    |y x|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2747
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2748
    y := viewOrigin y.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2749
    x := viewOrigin x.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2750
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2751
    (y ~~ 0 or:[x ~~ 0]) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2752
        self originWillChange.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2753
        viewOrigin := 0 @ 0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2754
        preferredExtent := nil.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2755
        self originChanged:(x negated  @ y negated).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2756
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2757
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2758
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2759
recomputeHeightOfContents
1087
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2760
    "recompute height of contents( scrolling )
8e97cbfebe12 add some comment
ca
parents: 1067
diff changeset
  2761
    "
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2762
    preferredExtent notNil ifTrue:[
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2763
        preferredExtent y:(rowHeight * self size)
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2764
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2765
        self preferredExtent
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2766
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2767
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2768
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2769
!DSVColumnView methodsFor:'scroller interface'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2770
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2771
heightOfContents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2772
    "return the height of the contents in pixels
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2773
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2774
    ^ self preferredExtent y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2775
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2776
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2777
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2778
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2779
innerHeight
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2780
    "returns the inner height of the contents shown
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2781
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2782
    ^ height - margin - margin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2783
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2784
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2785
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2786
innerWidth
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2787
    "returns the inner width of the contents shown
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2788
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2789
    ^ width - margin - margin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2790
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2791
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2792
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2793
verticalScrollStep
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2794
    "return the amount to scroll when stepping up/down.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2795
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2796
    ^ rowHeight
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2797
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2798
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2799
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2800
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2801
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2802
viewOrigin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2803
    "return the viewOrigin; thats the coordinate of the contents 
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2804
     which is shown topLeft in the view.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2805
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2806
    ^ viewOrigin
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2807
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2808
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2809
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2810
widthOfContents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2811
    "return the width of the contents in pixels
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2812
    "
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2813
    preferredExtent isNil ifTrue:[
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2814
        self preferredExtent
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2815
    ].
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  2816
    ^ preferredExtent x
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2817
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2818
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2819
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2820
xOriginOfContents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2821
    "return the horizontal origin of the contents in pixels
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2822
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2823
    ^ viewOrigin x 
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2824
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2825
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2826
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2827
yOriginOfContents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2828
    "return the vertical origin of the contents in pixels
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2829
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2830
    ^ viewOrigin y
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2831
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2832
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2833
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2834
!DSVColumnView methodsFor:'scrolling'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2835
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2836
scrollTo:anOrigin redraw:doRedraw
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2837
    "change origin to have newOrigin be visible at the top-left.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2838
    "
1123
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents
Claus Gittinger <cg@exept.de>
parents: 1115
diff changeset
  2839
    |x y dX dY newOrg dltOrg h innerWT innerHG sensor|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2840
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2841
    shown ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2842
        ^ self
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2843
    ].
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2844
1123
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents
Claus Gittinger <cg@exept.de>
parents: 1115
diff changeset
  2845
    sensor := self sensor.
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents
Claus Gittinger <cg@exept.de>
parents: 1115
diff changeset
  2846
    [sensor hasExposeEventFor:nil] whileTrue:[
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2847
        self windowGroup processExposeEvents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2848
    ].
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  2849
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2850
    innerWT := self innerWidth.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2851
    innerHG := self innerHeight.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2852
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2853
    h := viewOrigin y.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2854
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2855
    (y := anOrigin y) > h ifTrue:[              "/ end of contents
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2856
        y > (dY := self maxViewOriginY) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2857
            y := dY max:h
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2858
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2859
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2860
        y := y max:0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2861
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2862
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2863
    (x := anOrigin x) > 0 ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2864
        x := x min:(self widthOfContents - innerWT).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2865
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2866
    x      := x max:0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2867
    newOrg := (x @ y).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2868
    dltOrg := newOrg - viewOrigin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2869
    dX     := dltOrg x.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2870
    dY     := dltOrg y.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2871
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2872
    (dX == 0 and:[dY == 0]) ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2873
        ^ self
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2874
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2875
    self originWillChange.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2876
    viewOrigin := newOrg.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2877
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2878
    doRedraw ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2879
        ^ self originChanged:dltOrg
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2880
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2881
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2882
    dY ~~ 0 ifTrue:[                            "/ SCROLL VERTICAL
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2883
        dY := dY abs.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2884
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2885
        (dX ~~ 0 or:[innerHG - dY < 20]) ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2886
            self invalidate.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2887
        ] ifFalse:[                             "/ COPY VERTICAL
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2888
            |y0 y1|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2889
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2890
            y0 := y1 := margin + dY.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2891
            h  := innerHG - dY.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2892
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2893
            dltOrg y < 0 ifTrue:[y0 := margin. y := y0]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2894
                        ifFalse:[y1 := margin. y := y1 + h].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2895
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2896
            self catchExpose.
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2897
            self copyFrom:self x:margin y:y0 toX:margin y:y1 width:innerWT height:h async:true.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2898
            self waitForExpose.
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2899
            self invalidateX:margin y:y width:innerWT height:(innerHG - h).
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2900
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2901
    ] ifFalse:[                                 "/ SCROLL HORIZONTAL
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2902
        dX := dX abs.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2903
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2904
        innerWT - dX < 20 ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2905
            self invalidate.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2906
        ] ifFalse:[                             "/ COPY HORIZONTAL
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2907
            |x0 x1 w|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2908
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2909
            x0 := x1 := dX + margin.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2910
            w  := width - dX - margin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2911
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2912
            dltOrg x < 0 ifTrue:[x0 := x := margin ]
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2913
                        ifFalse:[x1 := margin. x := w].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2914
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2915
            self catchExpose.
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  2916
            self copyFrom:self x:x0 y:margin toX:x1 y:margin width:w height:innerHG async:true.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2917
            self waitForExpose.
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  2918
            self invalidateX:x y:margin width:(width - w) height:innerHG.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2919
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2920
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2921
    self originChanged:dltOrg.
1123
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents
Claus Gittinger <cg@exept.de>
parents: 1115
diff changeset
  2922
ea32a2e3d44d care for sensor becoming nil while handling exposeEvents
Claus Gittinger <cg@exept.de>
parents: 1115
diff changeset
  2923
    "Modified: / 7.9.1998 / 16:39:49 / cg"
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2924
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2925
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2926
scrollToRowAt:aRowNr colAt:aColNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2927
    "make row at a row number in column at a column number visible
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2928
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2929
    |x y l dY dX|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2930
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  2931
    (    (aRowNr between:1 and:(self size))
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2932
     and:[aColNr between:0 and:(self numberOfColumns)]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2933
    ) ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2934
        ^ self
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2935
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2936
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2937
    dY := dX := 0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2938
    y  := self yVisibleOfRowNr:aRowNr.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2939
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2940
    y < margin ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2941
        dY := margin - y.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2942
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2943
        y := y + rowHeight.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2944
        l := height - margin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2945
        y > l ifTrue:[dY := l - y]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2946
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2947
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2948
    aColNr == 0 ifTrue:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2949
        dY == 0 ifTrue:[^ self].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2950
        dX := 0.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2951
    ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2952
        x  := self xVisibleOfColNr:aColNr.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2953
1163
f46f69609c53 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1149
diff changeset
  2954
        x <= margin ifTrue:[
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2955
            dX := margin - x
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2956
        ] ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2957
            x := x + (self columnAt:aColNr) width.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2958
            l := width - margin.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2959
            x > l ifTrue:[dX := l - x]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2960
        ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2961
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2962
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2963
    (dX == 0 and:[dY == 0]) ifFalse:[
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2964
        self scrollTo:(viewOrigin - (dX @ dY)).
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2965
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2966
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2967
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2968
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2969
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2970
scrollToSelection
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2971
    "make selection visible
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2972
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2973
    |rowNr|
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2974
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2975
    (rowNr := self firstIndexSelected) ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2976
        self scrollToRowAt:rowNr colAt:(self selectedColIndex)
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2977
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2978
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2979
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2980
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2981
!DSVColumnView methodsFor:'selection'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  2982
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2983
deselect
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2984
    "deselect
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2985
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2986
    self selectColIndex:0 rowIndex:0
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2987
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2988
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2989
firstIndexSelected
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  2990
    "returns index of first row selected or 0
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2991
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2992
    multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2993
        ^ selectedRowIndex
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2994
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2995
    selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2996
        ^ selectedRowIndex at:1
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2997
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2998
    ^ 0
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  2999
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3000
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3001
hasSelection
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3002
    "returns true if a selection exists
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3003
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3004
    ^ self numberOfSelections ~~ 0
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3005
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3006
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3007
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3008
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3009
isInSelection:aRowNr
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3010
    "return true, if row, aRowNr is in the selection
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3011
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3012
    aRowNr ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3013
        multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3014
            ^ aRowNr == selectedRowIndex
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3015
        ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3016
        selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3017
            ^ selectedRowIndex includes:aRowNr
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3018
        ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3019
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3020
    ^ false
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3021
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3022
647
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3023
isRowSelected:aRowNr
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3024
    "return true, if row is in the selection
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3025
    "
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3026
    selectedColIndex == 0 ifTrue:[
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3027
        ^ self isInSelection:aRowNr
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3028
    ].
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3029
    ^ false
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3030
!
ee98a1976972 support of different styles
ca
parents: 645
diff changeset
  3031
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3032
isSelected:aRowNr inColumn:aColNr
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3033
    "returns true if cell in a row; a row number, in a column, a column
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3034
     number is selected.
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3035
    "
1042
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3036
    multipleSelectOk ifFalse:[
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3037
        aRowNr ~~ selectedRowIndex ifTrue:[
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3038
            ^ false
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3039
        ]
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3040
    ] ifTrue:[
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3041
        (selectedRowIndex size ~~ 0 and:[selectedRowIndex includes:aRowNr]) ifFalse:[
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3042
            ^ false
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3043
        ]
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3044
    ].
1042
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3045
    ^ (selectedColIndex == 0 or:[selectedColIndex == aColNr])
b2b27ac9a550 change rowSelector icon;
ca
parents: 1034
diff changeset
  3046
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3047
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3048
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3049
lastIndexSelected
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3050
    "returns index of last row selected or 0
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3051
    "
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3052
    multipleSelectOk ifFalse:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3053
        ^ selectedRowIndex
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3054
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3055
    selectedRowIndex size ~~ 0 ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3056
        ^ selectedRowIndex last
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3057
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3058
    ^ 0
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3059
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3060
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3061
numberOfSelections
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3062
    "return the number of selected rows
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3063
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3064
    multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3065
        ^ selectedRowIndex ~~ 0 ifTrue:[1] ifFalse:[0]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3066
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3067
    ^ selectedRowIndex size
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3068
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3069
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3070
selectColIndex:aColNr rowIndex:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3071
    "change selection with notification
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3072
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3073
    |oC oR|
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3074
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3075
    oC := self selectedColIndex.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3076
    oR := self selectedRowIndex.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3077
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3078
    self setSelectColIndex:aColNr rowIndex:aRowNr.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3079
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3080
    (oC ~~ self selectedColIndex or:[oR ~= self selectedRowIndex]) ifTrue:[
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3081
        self selectionChanged
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3082
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3083
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3084
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3085
selectRow:something
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3086
    "select a row
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3087
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3088
    ^ self selectedRowIndex:something
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3089
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3090
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3091
selectRowAt:rowNr colAt:colNr atPoint:aPoint
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3092
    |v p|
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3093
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3094
    self selectColIndex:colNr rowIndex:rowNr.
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3095
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3096
    (v := self detectViewAt:aPoint in:editView) notNil ifTrue:[
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3097
        p := device translatePoint:aPoint from:(self id) to:(v id).
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3098
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3099
        self sensor pushEvent:(WindowEvent buttonEvent
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3100
                                 for:v
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3101
                                 type:#buttonPress:x:y:
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3102
                                 arguments:(Array with:#select with:p x with:p y)
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3103
                              )
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3104
    ].
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3105
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3106
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3107
!
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3108
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3109
selectRowIndex:something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3110
    "set selection of rows
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3111
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3112
    self selectColIndex:selectedColIndex rowIndex:something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3113
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3114
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3115
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3116
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3117
selectedColIndex
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3118
    "returns selected column number or 0
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3119
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3120
    ^ selectedColIndex
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3121
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3122
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3123
selectedColumn
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3124
    "returns selected column or nil
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3125
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3126
    ^ columnDescriptors at:selectedColIndex ifAbsent:nil.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3127
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3128
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3129
selectedRow
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3130
    "returns selected row (or collection if multiple selection) or nil
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3131
    "
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3132
    multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3133
        ^ self at:selectedRowIndex ifAbsent:nil
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3134
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3135
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3136
    selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3137
        ^ selectedRowIndex collect:[:i| self at:i]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3138
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3139
    ^ nil
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3140
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3141
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3142
selectedRow:something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3143
    "select something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3144
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3145
    self selectedRowIndex:something
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3146
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3147
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3148
selectedRowIndex
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3149
    "returns selected row number or 0
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3150
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3151
    ^ selectedRowIndex
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3152
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3153
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3154
selectedRowIndex:something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3155
    "set selection of rows
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3156
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3157
    self selectColIndex:selectedColIndex rowIndex:something
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3158
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3159
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3160
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3161
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3162
selectionChanged
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3163
    "selection has changed
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3164
    "
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3165
    self changed:#selection.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3166
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3167
    actionBlock notNil ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3168
        actionBlock value:(self selectedRowIndex)
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3169
    ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3170
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3171
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3172
selectionIndicesDo:aOneArgBlock
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3173
    "evaluate block on each row selected; the argument to the row
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3174
     is the index of the selected row
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3175
    "
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3176
    multipleSelectOk ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3177
        selectedRowIndex ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3178
            aOneArgBlock value:selectedRowIndex
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3179
        ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3180
    ] ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3181
        selectedRowIndex size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3182
            selectedRowIndex do:[:i| aOneArgBlock value:i ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3183
        ]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3184
    ]
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3185
!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3186
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3187
setSelectColIndex:aColNr rowIndex:aRowNr
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3188
    "change selection without notification
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3189
    "
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3190
    |editSpec rowNr colNr newCol oldCol oldRow sensor sglSelRow oldSz
1269
f33ad4d38b5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3191
     keyBrdFwd filter edValue|
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3192
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3193
    rowNr := self validateSelection:aRowNr.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3194
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3195
    multipleSelectOk ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3196
        colNr := (rowNr size == 1) ifTrue:[aColNr] ifFalse:[0]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3197
    ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3198
        colNr := rowNr ~~ 0 ifTrue:[aColNr] ifFalse:[0]
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3199
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3200
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3201
    (colNr := colNr ? 0) ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3202
        newCol := self columnAt:colNr.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3203
        newCol rendererType == #rowSelector ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3204
            colNr := 0.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3205
            newCol := nil
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3206
        ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3207
            multipleSelectOk ifTrue:[sglSelRow := rowNr at:1]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3208
                            ifFalse:[sglSelRow := rowNr].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3209
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3210
            (newCol canSelect:sglSelRow) ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3211
                newCol := nil.
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3212
                colNr  := 0.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3213
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3214
                selectRowOnDefault ifFalse:[
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3215
                    rowNr  := multipleSelectOk ifFalse:[0] ifTrue:[nil]
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3216
                ]
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3217
            ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3218
        ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3219
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3220
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3221
    (rowNr = selectedRowIndex and:[colNr == selectedColIndex]) ifTrue:[
643
bfd44867347f adding: bug fix
ca
parents: 642
diff changeset
  3222
        ^ self
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3223
    ].
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3224
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3225
    "/ release old selection
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3226
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3227
    oldSz  := self numberOfSelections.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3228
    oldCol := selectedColIndex.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3229
    oldRow := selectedRowIndex.
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3230
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3231
    selectedRowIndex := rowNr.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3232
    selectedColIndex := colNr.
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3233
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3234
    oldSz == 1 ifTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3235
        multipleSelectOk ifTrue:[oldRow := oldRow at:1].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3236
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3237
        editValue notNil ifTrue:[
1215
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3238
            editValue removeDependent:self
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3239
        ].
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3240
        editView notNil ifTrue:[
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3241
            editView allSubViewsDo:[:aSubView|
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3242
                aSubView perform:#accept ifNotUnderstood:nil.
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3243
            ]
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3244
        ].
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3245
76b43b3de51e call accept before closing the editView
tm
parents: 1201
diff changeset
  3246
        editValue notNil ifTrue:[
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3247
            edValue := editValue value.
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3248
            edValue isSequenceable ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3249
                edValue size == 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3250
                    edValue := nil
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3251
                ] ifFalse:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3252
                    edValue isString not ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3253
                        edValue := edValue select:[:el| el notNil ].
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3254
                        edValue size == 0 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3255
                            edValue := nil
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3256
                        ]
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3257
                    ]
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3258
                ]
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3259
            ].
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3260
           (self columnAt:oldCol) at:oldRow put:edValue.
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3261
            editValue := nil
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3262
        ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3263
        self destroyEditView.
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3264
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3265
    shown ifFalse:[^ self ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3266
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3267
    oldSz > 1 ifTrue:[                                  "/ redraw old selection
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3268
        oldRow do:[:aRowNr|                             "/ unselected if visible
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  3269
            self invalidateRowAt:aRowNr colAt:0
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3270
        ]
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3271
    ] ifFalse:[
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3272
        oldSz == 1 ifTrue:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  3273
            self invalidateRowAt:oldRow colAt:oldCol
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3274
        ]
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3275
    ].   
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3276
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3277
    "/ show new selection
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3278
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3279
    newCol notNil ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3280
        self scrollToRowAt:sglSelRow colAt:colNr.
833
c4e3e579f8bd handle choices
ca
parents: 824
diff changeset
  3281
        editSpec := newCol editorAt:sglSelRow.
c4e3e579f8bd handle choices
ca
parents: 824
diff changeset
  3282
c4e3e579f8bd handle choices
ca
parents: 824
diff changeset
  3283
        editSpec notNil ifTrue:[
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3284
            editView := SimpleView extent:(  (newCol width - (2 * separatorSize)) 
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3285
                                           @ (rowHeight    - (2 * separatorSize))
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3286
                                          )
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3287
                                       in:self.
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3288
            self updateEditViewOrigin.
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3289
1134
d7c5844b24b0 *** empty log message ***
ca
parents: 1131
diff changeset
  3290
            (newCol containsText or:[newCol showSelectionHighLighted not]) ifTrue:[
d7c5844b24b0 *** empty log message ***
ca
parents: 1131
diff changeset
  3291
                editView viewBackground:(newCol backgroundColorFor:sglSelRow)
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3292
            ] ifFalse:[
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3293
                editView viewBackground:hgLgBgColor
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3294
            ].
833
c4e3e579f8bd handle choices
ca
parents: 824
diff changeset
  3295
            editView add:(editSpec at:1).
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3296
            oldSz := editSpec size.
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3297
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3298
            oldSz == 3 ifTrue:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3299
                filter := [:aKey| #(#Tab #CursorUp #CursorDown) includes:aKey]
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3300
            ] ifFalse:[
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3301
                filter := [:aKey| aKey == #Tab]
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3302
            ].
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3303
            keyBrdFwd := KeyboardForwarder toView:self
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3304
                                        condition:nil
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3305
                                           filter:filter.
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3306
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3307
            editView withAllSubViewsDo:[:aView|
1112
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3308
                aView delegate:keyBrdFwd.
81f2a7f0afdc draw routines for interactors
ca
parents: 1111
diff changeset
  3309
                aView font:font.
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3310
            ].
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3311
1149
c212f122c8b3 allow collections of string and icons for a cell label
Claus Gittinger <cg@exept.de>
parents: 1136
diff changeset
  3312
            (editValue := editSpec at:2 ifAbsent:nil) notNil ifTrue:[
809
0206d997fe99 support styleSheet and set preferred extent for drawing
ca
parents: 765
diff changeset
  3313
                editValue addDependent:self.
648
1d77d0c9e58a check for isEditing
ca
parents: 647
diff changeset
  3314
            ].
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3315
            editView realize.
1111
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3316
            self windowGroup focusView:(editSpec at:1).
4fd0430173fa support #Tab
ca
parents: 1109
diff changeset
  3317
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3318
        ] ifFalse:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  3319
            self invalidateRowAt:sglSelRow colAt:colNr
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3320
        ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3321
    ] ifFalse:[
1408
1cda0a4fb566 use invalidate... insteat of redraw...
Claus Gittinger <cg@exept.de>
parents: 1333
diff changeset
  3322
        self selectionIndicesDo:[:i| self invalidateRowAt:i colAt:0 ].
612
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3323
        self scrollToRowAt:(self firstIndexSelected) colAt:0
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3324
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3325
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3326
    sensor := self sensor.                              "/ catch expose events
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3327
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3328
    [sensor hasExposeEventFor:nil] whileTrue:[
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3329
        self windowGroup processExposeEvents
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3330
    ].
af7786327bd4 add columnHolder
ca
parents: 610
diff changeset
  3331
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3332
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3333
!
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3334
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3335
validateSelection:aSelection
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3336
    |newSel|
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3337
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3338
    newSel := aSelection.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3339
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3340
    (self size == 0 or:[newSel isNil or:[newSel == 0]]) ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3341
        ^ multipleSelectOk ifFalse:[0] ifTrue:[nil]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3342
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3343
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3344
    newSel isNumber ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3345
        ^ multipleSelectOk ifFalse:[newSel] ifTrue:[OrderedCollection with:newSel]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3346
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3347
    multipleSelectOk ifFalse:[
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3348
        newSel := self identityIndexOfRow:aSelection
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3349
    ] ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3350
        newSel := nil.
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3351
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3352
        aSelection size ~~ 0 ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3353
            aSelection first isNumber ifTrue:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3354
                newSel := aSelection
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3355
            ] ifFalse:[
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3356
                aSelection do:[:el||n|
618
6a79bf9b4cd3 support list with undefined rows
ca
parents: 612
diff changeset
  3357
                    (n := self identityIndexOfRow:el) ~~ 0 ifTrue:[
607
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3358
                        newSel isNil ifTrue:[newSel := OrderedCollection new].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3359
                        newSel add:n
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3360
                    ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3361
                ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3362
            ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3363
        ]
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3364
    ].
a5e0c2bf1370 support of multiple select:rows
ca
parents: 596
diff changeset
  3365
    ^ newSel
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3366
! !
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3367
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3368
!DSVColumnView class methodsFor:'documentation'!
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3369
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3370
version
1416
505ef8832a06 focus next/previous
Claus Gittinger <cg@exept.de>
parents: 1408
diff changeset
  3371
    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.77 1999-06-19 10:23:36 cg Exp $'
542
e22c45e26653 intitial checkin
ca
parents:
diff changeset
  3372
! !