Tools_SpecialCodeView.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Feb 2015 14:17:11 +0100
changeset 15150 940d37c7d3ac
parent 9469 88979740715f
permissions -rw-r--r--
class: Tools::ChangeList fixed the following redraw bug in ModelListView (which is already fixed in SelectionInListView): if a colored item is shown with selection, the color attribute should be removed (or relaxed), to avoid drawing the label invisible. I.e. if the text color is blue or grey, and the selection bg is blue. we should draw white-on-blue, instead of blue/grey on blue. For this to work, the info whether drawing a selection must be passed down through the renderer to the item's draw routine.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	      All Rights Reserved
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    12
"{ Package: 'stx:libtool' }"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
ApplicationModel subclass:#SpecialCodeView
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:'displayMode'
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Browsers-New'
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!SpecialCodeView class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
copyright
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
 COPYRIGHT (c) 2000 by eXept Software AG
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	      All Rights Reserved
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
!SpecialCodeView class methodsFor:'interface specs'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
     UIPainter new openOnClass:SpecialCodeView andSelector:#windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
     SpecialCodeView new openInterface:#windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
     SpecialCodeView open
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    ^ 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
     #(#FullSpec
9469
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    58
        #name: #windowSpec
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    59
        #window: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
       #(#WindowSpec
9469
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    61
          #label: 'SpecialCodeView'
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    62
          #name: 'SpecialCodeView'
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    63
          #min: #(#Point 10 10)
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    64
          #bounds: #(#Rectangle 12 22 312 322)
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    65
        )
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    66
        #component: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
       #(#SpecCollection
9469
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    68
          #collection: #()
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    69
        )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
      )
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
!SpecialCodeView class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
version
9469
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    76
    ^ '$Header: /cvs/stx/stx/libtool/Tools_SpecialCodeView.st,v 1.3 2010-05-07 12:27:43 cg Exp $'
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    77
!
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    78
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    79
version_CVS
88979740715f no max window size !
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
    80
    ^ '$Header: /cvs/stx/stx/libtool/Tools_SpecialCodeView.st,v 1.3 2010-05-07 12:27:43 cg Exp $'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
! !