Mercurial Mercurial > hg > stx-libwidg / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SequenceView.st
changeset 6815 34586cf7ecbd
parent 5926 643cafe77eed
equal deleted inserted replaced
6814:e9155e18dfb4 6815:34586cf7ecbd 
       
     1 "{ Encoding: utf8 }"
 
       
     2 
     1 "
 
     3 "
 
     2  COPYRIGHT (c) 1997 by eXept Software AG
 
     4  COPYRIGHT (c) 1997 by eXept Software AG
 
     3               All Rights Reserved
 
     5               All Rights Reserved
 
     4 
     6 
     5  This software is furnished under a license and may be used
 
     7  This software is furnished under a license and may be used
 
    94 !SequenceView methodsFor:'slave-view messages'!
 
    96 !SequenceView methodsFor:'slave-view messages'!
 
    95 
    97 
    96 enabled:aBoolean
 
    98 enabled:aBoolean
 
    97     "senders assume that I am the listView - not a wrapper"
 
    99     "senders assume that I am the listView - not a wrapper"
 
    98 
   100 
    99     scrolledView enabled:aBoolean
 
   101     scrolledView notNil ifTrue:[ scrolledView enabled:aBoolean ]
 
   100 !
 
   102 !
 
   101 
   103 
   102 font:aFont
 
   104 font:aFont
 
   103     "set the font for the scrolled view"
 
   105     "set the font for the scrolled view"
 
   104 
   106 
   109 !
 
   111 !
 
   110 
   112 
   111 invalidate
 
   113 invalidate
 
   112     "senders assume that I am the listView - not a wrapper"
 
   114     "senders assume that I am the listView - not a wrapper"
 
   113 
   115 
   114     scrolledView invalidate
 
   116     scrolledView notNil ifTrue:[ scrolledView invalidate ]
 
   115 !
 
   117 !
 
   116 
   118 
   117 invalidate:aRectangle
 
   119 invalidate:aRectangle
 
   118     "senders assume that I am the listView - not a wrapper"
 
   120     "senders assume that I am the listView - not a wrapper"
 
   119 
   121 
   120     scrolledView invalidate:aRectangle
 
   122     scrolledView notNil ifTrue:[ scrolledView invalidate:aRectangle ]
 
   121 !
 
   123 !
 
   122 
   124 
   123 invalidate:aRectangle repairNow:doRepair
 
   125 invalidate:aRectangle repairNow:doRepair
 
   124     "senders assume that I am the listView - not a wrapper"
 
   126     "senders assume that I am the listView - not a wrapper"
 
   125 
   127 
   126     scrolledView invalidate:aRectangle repairNow:doRepair
 
   128     scrolledView notNil ifTrue:[ scrolledView invalidate:aRectangle repairNow:doRepair ]
 
   127 !
 
   129 !
 
   128 
   130 
   129 invalidateDeviceRectangle:aRectangle repairNow:doRepair
 
   131 invalidateDeviceRectangle:aRectangle repairNow:doRepair
 
   130     "senders assume that I am the listView - not a wrapper"
 
   132     "senders assume that I am the listView - not a wrapper"
 
   131 
   133 
   132     scrolledView invalidateDeviceRectangle:aRectangle repairNow:doRepair
 
   134     scrolledView notNil ifTrue:[ scrolledView invalidateDeviceRectangle:aRectangle repairNow:doRepair ]
 
   133 !
 
   135 !
 
   134 
   136 
   135 invalidateRepairNow:doRepair
 
   137 invalidateRepairNow:doRepair
 
   136     "senders assume that I am the listView - not a wrapper"
 
   138     "senders assume that I am the listView - not a wrapper"
 
   137 
   139 
   138     scrolledView invalidateRepairNow:doRepair
 
   140     scrolledView notNil ifTrue:[ scrolledView invalidateRepairNow:doRepair ]
 
   139 ! !
 
   141 ! !
 
   140 
   142 
   141 !SequenceView class methodsFor:'documentation'!
 
   143 !SequenceView class methodsFor:'documentation'!
 
   142 
   144 
   143 version
 
   145 version
hg/stx-libwidg