14 "{ NameSpace: Smalltalk }"

    14 "{ NameSpace: Smalltalk }"

    15 

    15 

    16 GraphicsContext subclass:#DeviceGraphicsContext

    16 GraphicsContext subclass:#DeviceGraphicsContext

    17 	instanceVariableNames:'drawableId gcId deviceFont foreground background drawableType

    17 	instanceVariableNames:'drawableId gcId deviceFont foreground background drawableType

    18 		parentId'

    18 		parentId'

    20 	poolDictionaries:''

    20 	poolDictionaries:''

    21 	category:'Graphics-Support'

    21 	category:'Graphics-Support'

    22 !

    22 !

    23 

    23 

    24 DeviceHandle subclass:#DevicePixmapGCHandle

    24 DeviceHandle subclass:#DevicePixmapGCHandle

    56     I provide the common protocol for a graphicsContext which is associated with a particular

    56     I provide the common protocol for a graphicsContext which is associated with a particular

    57     device (i.e. Bitmaps, Pixmaps, RootWindow and Windows in Xs world, but also postscript

    57     device (i.e. Bitmaps, Pixmaps, RootWindow and Windows in Xs world, but also postscript

    58     printer pages or fax pages).

    58     printer pages or fax pages).

    59 

    59 

    60     My instance variables are mainly caching device-related stuff (such as font- and color-Ids)

    60     My instance variables are mainly caching device-related stuff (such as font- and color-Ids)

    63     All real work is done by my device, which is accessed via the device instance variable.

    62     All real work is done by my device, which is accessed via the device instance variable.

    64     Most drawing requests are simply forwarded to it, others are simulated by using more basic

    63     Most drawing requests are simply forwarded to it, others are simulated by using more basic

    65     drawing functions (see GraphicsContext drawing vs. basic drawing category).

    64     drawing functions (see GraphicsContext drawing vs. basic drawing category).

    66 

    65 

    67     The added variables foreground/background are the drawing colors actually

    66     The added variables foreground/background are the drawing colors actually

    71     (there are some operations and special cases, for which a direct access to

    70     (there are some operations and special cases, for which a direct access to

    72      fg/bg makes sense)

    71      fg/bg makes sense)

    73 

    72 

    74     [Instance variables:]

    73     [Instance variables:]

    75 

    74 

    85 

    84 

    86     [see also:]

    85     [see also:]

    89 

    88 

    90     [author:]

    89     [author:]

    92 

    91 

    93 "

    92 "

   104 ! !

    93 ! !

   105 

    94 

   106 !DeviceGraphicsContext class methodsFor:'instance creation'!

    95 !DeviceGraphicsContext class methodsFor:'instance creation'!

   107 

    96 

   108 new

    97 new

   163     "Modified: 2.4.1997 / 19:19:35 / cg"

   152     "Modified: 2.4.1997 / 19:19:35 / cg"

   164 ! !

   153 ! !

   165 

   154 

   166 !DeviceGraphicsContext class methodsFor:'cleanup'!

   155 !DeviceGraphicsContext class methodsFor:'cleanup'!

   167 

   156 

   192 lowSpaceCleanup

   157 lowSpaceCleanup

   193     CachedScaledForms := CachedScales := nil

   158     CachedScaledForms := CachedScales := nil

   239 ! !

   159 ! !

   240 

   160 

   241 !DeviceGraphicsContext methodsFor:'accessing'!

   161 !DeviceGraphicsContext methodsFor:'accessing'!

   242 

   162 

   243 at:aPoint

   163 at:aPoint

   319      This is a low level entry, which is not to be redefined

   239      This is a low level entry, which is not to be redefined

   320      (i.e. it must not imply a redraw operation)"

   240      (i.e. it must not imply a redraw operation)"

   321 

   241 

   322     |id|

   242     |id|

   323 

   243 

   338     ]

   256     ]

   339 

   257 

   340     "Created: / 23-02-1996 / 17:16:51 / cg"

   258     "Created: / 23-02-1996 / 17:16:51 / cg"

   341     "Modified: / 22-10-2006 / 14:11:37 / cg"

   259     "Modified: / 22-10-2006 / 14:11:37 / cg"

   342 !

   260 !

   363     ]

   281     ]

   364 

   282 

   365     "Modified: 12.5.1996 / 22:23:03 / cg"

   283     "Modified: 12.5.1996 / 22:23:03 / cg"

   366 !

   284 !

   367 

   285 

   397 clippedByChildren:aBoolean

   286 clippedByChildren:aBoolean

   398     "turn on/off drawing over children.

   287     "turn on/off drawing over children.

   399      If on, a superview may draw 'over' its children.

   288      If on, a superview may draw 'over' its children.

   400      If off (the default), drawing is 'under' its children.

   289      If off (the default), drawing is 'under' its children.

   401      Only useful for the rootView, to draw over any visible views.

   290      Only useful for the rootView, to draw over any visible views.

   517 !

   406 !

   518 

   407 

   519 device:aDevice

   408 device:aDevice

   520     "set the device"

   409     "set the device"

   521 

   410 

   522     device := aDevice

   425     device := aDevice

   523 !

   426 !

   524 

   427 

   525 deviceClippingBounds:aRectangleOrNil

   428 deviceClippingBounds:aRectangleOrNil

   526     "set the clipping rectangle for drawing (in device coordinates);

   429     "set the clipping rectangle for drawing (in device coordinates);

   555      a nil clipping rectangle means: no clipping (i.e. whole view is drawable - incl. margins)"

   458      a nil clipping rectangle means: no clipping (i.e. whole view is drawable - incl. margins)"

   556 

   459 

   557     ^ clipRect

   460     ^ clipRect

   558 !

   461 !

   559 

   462 

   632 drawableId

   463 drawableId

   633     ^drawableId

   464     ^drawableId

   634 

   465 

   635     "Created: / 10-07-2008 / 10:20:04 / Jan Vrany <vranyj1@fel.cvut.cz>"

   466     "Created: / 10-07-2008 / 10:20:04 / Jan Vrany <vranyj1@fel.cvut.cz>"

   636     "Modified (format): / 26-04-2016 / 07:11:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   467     "Modified (format): / 26-04-2016 / 07:11:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   671 

   502 

   672 gcId

   503 gcId

   673     "return the receiver's graphic context id on the device"

   504     "return the receiver's graphic context id on the device"

   674 

   505 

   675     ^ gcId

   506     ^ gcId

   685 !

   507 !

   686 

   508 

   687 id

   509 id

   688     "return the id of the drawable on the device"

   510     "return the id of the drawable on the device"

   689 

   511 

   796         transformation notNil ifTrue:[

   618         transformation notNil ifTrue:[

   797             pO := transformation transformPoint:aPoint.

   619             pO := transformation transformPoint:aPoint.

   798             x:= pO x.

   620             x:= pO x.

   799             y := pO y.

   621             y := pO y.

   800         ].

   622         ].

   803 

   623 

   804         gcId notNil ifTrue:[

   624         gcId notNil ifTrue:[

   806         ]

   626         ]

   807     ]

   627     ]

   808 

   628 

   809     "Created: / 26.1.1998 / 19:03:02 / cg"

   629     "Created: / 26.1.1998 / 19:03:02 / cg"

   810 !

   630 !

   811 

   631 

   812 maskOriginX:orgX y:orgY

   632 maskOriginX:orgX y:orgY

   813     "set the origin of the pattern"

   633     "set the origin of the pattern"

   814 

   634 

   815     self maskOrigin:(orgX @ orgY)

   635     self maskOrigin:(orgX @ orgY)

   827 !

   636 !

   828 

   637 

   829 paint:aColor

   638 paint:aColor

   830     "set the drawing color, which may be a real color, a dithered one

   639     "set the drawing color, which may be a real color, a dithered one

   831      or even an image."

   640      or even an image."

   923      Only set the variable, do not change the gc"

   732      Only set the variable, do not change the gc"

   924 

   733 

   925     clipRect := aRectangleOrNil

   734     clipRect := aRectangleOrNil

   926 !

   735 !

   927 

   736 

   928 setGraphicsExposures:aBoolean

   745 setGraphicsExposures:aBoolean

   929     "want to if aBoolean is true - or dont want to be notified

   746     "want to if aBoolean is true - or dont want to be notified

   930      of graphics exposures"

   747      of graphics exposures"

   931 

   748 

   932     gcId notNil ifTrue:[

   749     gcId notNil ifTrue:[

  1079     ]

   896     ]

  1080 

   897 

  1081     "Modified: 28.5.1996 / 20:45:27 / cg"

   898     "Modified: 28.5.1996 / 20:45:27 / cg"

  1082 !

   899 !

  1083 

   900 

  1095 foreground:aColor function:fun

   901 foreground:aColor function:fun

  1096     <resource: #obsolete>

   902     <resource: #obsolete>

  1097     "set the foreground color and function for drawing.

   903     "set the foreground color and function for drawing.

  1098      OBSOLETE: this method will vanish; use #paint: / #paint:on:"

   904      OBSOLETE: this method will vanish; use #paint: / #paint:on:"

  1099 

   905 

  1143         x:dstX y:dstY

   949         x:dstX y:dstY

  1144         width:srcW height:srcH       "all senders set srcW/srcH to self width / self height"

   950         width:srcW height:srcH       "all senders set srcW/srcH to self width / self height"

  1145         with:gcId.

   951         with:gcId.

  1146 !

   952 !

  1147 

   953 

  1185     "copy from aDrawable into the receiver;

   955     "copy from aDrawable into the receiver;

  1186      the source may be the receiver as well - in this case its a scroll.

   956      the source may be the receiver as well - in this case its a scroll.

  1187      All coordinates are in device coordinates.

   957      All coordinates are in device coordinates.

  1188      If the receiver is a view AND async is true, the call returns immediately

   958      If the receiver is a view AND async is true, the call returns immediately

  1189      - otherwise, it returns when the scroll operation is finished.

   959      - otherwise, it returns when the scroll operation is finished.

  1190      (not all devices care for this).

   960      (not all devices care for this).

  1191      If the receiver is a pixmap, the call always returns immediately."

   961      If the receiver is a pixmap, the call always returns immediately."

  1192 

   962 

  1216 

   964 

  1217     gcId isNil ifTrue:[

   965     gcId isNil ifTrue:[

  1218         self initGC

   966         self initGC

  1219     ].

   967     ].

  1220 

   968 

  1226             device

   975             device

  1228                 x:srcX

   977                 x:srcX

  1229                 y:srcY

   978                 y:srcY

  1230                 gc:srcGCId

   979                 gc:srcGCId

  1231                 to:drawableId

   980                 to:drawableId

  1232                 x:dstX

   981                 x:dstX

  1234                 gc:gcId

   983                 gc:gcId

  1235                 width:w

   984                 width:w

  1236                 height:h

   985                 height:h

  1237         ] ifFalse:[

   986         ] ifFalse:[

  1238             device

   987             device

  1240                 x:srcX

   989                 x:srcX

  1241                 y:srcY

   990                 y:srcY

  1242                 gc:srcGCId

   991                 gc:srcGCId

  1243                 to:drawableId

   992                 to:drawableId

  1244                 x:dstX

   993                 x:dstX

  1246                 gc:gcId

   995                 gc:gcId

  1247                 width:w

   996                 width:w

  1248                 height:h

   997                 height:h

  1249         ]

   998         ]

  1250     ] ifFalse:[

   999     ] ifFalse:[

  1252             device

  1001             device

  1254                 x:srcX

  1003                 x:srcX

  1255                 y:srcY

  1004                 y:srcY

  1256                 gc:srcGCId

  1005                 gc:srcGCId

  1257                 to:drawableId

  1006                 to:drawableId

  1258                 x:dstX

  1007                 x:dstX

  1259                 y:dstY

  1008                 y:dstY

  1260                 gc:gcId

  1009                 gc:gcId

  1261                 width:w

  1010                 width:w

  1262                 height:h

  1011                 height:h

  1263         ] ifFalse:[

  1012         ] ifFalse:[

  1268             device

  1013             device

  1270                 x:srcX

  1015                 x:srcX

  1271                 y:srcY

  1016                 y:srcY

  1272                 gc:srcGCId

  1017                 gc:srcGCId

  1273                 to:drawableId

  1018                 to:drawableId

  1274                 x:dstX

  1019                 x:dstX

  1275                 y:dstY

  1020                 y:dstY

  1276                 gc:gcId

  1021                 gc:gcId

  1277                 width:w

  1022                 width:w

  1278                 height:h.

  1023                 height:h.

  1283         ]

  1024         ]

  1291     "copy one plane from aDrawable into the receiver. 0's are drawn in

  1029     "copy one plane from aDrawable into the receiver. 0's are drawn in

  1292      background, while 1's are drawn with foreground color.

  1030      background, while 1's are drawn with foreground color.

  1293      The depth of aDrawable must (should) be 1.

  1031      The depth of aDrawable must (should) be 1.

  1294      The drawable must have been allocated on the same device.

  1032      The drawable must have been allocated on the same device.

  1295      All coordinates are in device coordinates."

  1033      All coordinates are in device coordinates."

  1296 

  1034 

  1302     ] ifFalse:[

  1057     ] ifFalse:[

  1350     ]

  1069     ]

  1351 

  1070 

  1352     "Modified: / 22.8.1998 / 15:15:52 / cg"

  1071     "Modified: / 22.8.1998 / 15:15:52 / cg"

  1353 ! !

  1072 ! !

  1354 

  1073 

  1862     "draw a substring at the coordinate x/y -

  1581     "draw a substring at the coordinate x/y -

  1863      draw foreground-pixels only (in current paint-color),

  1582      draw foreground-pixels only (in current paint-color),

  1864      leaving background as-is. If the transformation involves scaling,

  1583      leaving background as-is. If the transformation involves scaling,

  1865      the font's point-size is scaled as appropriate."

  1584      the font's point-size is scaled as appropriate."

  1866 

  1585 

  1868 !

  1587 !

  1869 

  1588 

  1870 displayString:aString from:index1 to:index2 x:x y:y opaque:opaque

  1589 displayString:aString from:index1 to:index2 x:x y:y opaque:opaque

  1871     "draw part of a string with both fg and bg at x/y in current font"

  1590     "draw part of a string with both fg and bg at x/y in current font"

  1872 

  1591 

  1874 !

  1593 !

  1875 

  1594 

  1876 displayString:aStringArg from:index1Arg to:index2Arg x:x y:y opaque:opaqueArg maxWidth:maxWidth

  1595 displayString:aStringArg from:index1Arg to:index2Arg x:x y:y opaque:opaqueArg maxWidth:maxWidth

  1877     "draw a substring at the coordinate x/y - draw foreground pixels in

  1596     "draw a substring at the coordinate x/y - draw foreground pixels in

  1878      paint-color and (if opaque is true), background pixels in bgPaint-color.

  1597      paint-color and (if opaque is true), background pixels in bgPaint-color.

  1879      If the transformation involves scaling, the font's point-size is scaled as appropriate.

  1598      If the transformation involves scaling, the font's point-size is scaled as appropriate.

  1880      Assuming that device can only draw in device colors, we have to handle

  1599      Assuming that device can only draw in device colors, we have to handle

  1881      the case where paint and/or bgPaint are dithered colors.

  1600      the case where paint and/or bgPaint are dithered colors.

  1882      maxWidth is the maximum width of the string in pixels or nil if unknown."

  1601      maxWidth is the maximum width of the string in pixels or nil if unknown."

  1883 

  1602 

  1886      nSkipLeft nChars wString wSkipLeft index2Guess|

  1604      nSkipLeft nChars wString wSkipLeft index2Guess|

  1887 

  1605 

  1888     index1 := index1Arg.

  1606     index1 := index1Arg.

  1889     index2 := index2Arg.

  1607     index2 := index2Arg.

  1890     opaque := opaqueArg.

  1608     opaque := opaqueArg.

  1899 

  1617 

  1900     gcId isNil ifTrue:[

  1618     gcId isNil ifTrue:[

  1901         self initGC

  1619         self initGC

  1902     ].

  1620     ].

  1903 

  1621 

  1905         "

  1623         "

  1906          hook for non-strings (i.e. attributed text)

  1624          hook for non-strings (i.e. attributed text)

  1907          that 'thing' should know how to display itself ...

  1625          that 'thing' should know how to display itself ...

  1908         "

  1626         "

  1909         aStringArg displayOn:self x:x y:y from:index1 to:index2 opaque:opaque.

  1627         aStringArg displayOn:self x:x y:y from:index1 to:index2 opaque:opaque.

  1910         ^ self

  1628         ^ self

  1911     ].

  1629     ].

  1912 

  1630 

  1914     aString := aStringArg.

  1632     aString := aStringArg.

  1915     fontsEncoding := font encoding.

  1633     fontsEncoding := font encoding.

  1919     (characterEncoding ~~ fontsEncoding) ifTrue:[

  1634     (characterEncoding ~~ fontsEncoding) ifTrue:[

  1920         [

  1635         [

  1921             aString := CharacterEncoder encodeString:aString from:characterEncoding into:fontsEncoding.

  1636             aString := CharacterEncoder encodeString:aString from:characterEncoding into:fontsEncoding.

  1922         ] on:CharacterEncoderError do:[:ex|

  1637         ] on:CharacterEncoderError do:[:ex|

  1923             "substitute a default value for codes that cannot be represented

  1638             "substitute a default value for codes that cannot be represented

  1925             ex proceedWith:ex defaultValue.

  1640             ex proceedWith:ex defaultValue.

  1926         ].

  1641         ].

  1927     ].

  1642     ].

  1928 

  1643 

  1929     fontUsed := font.

  1644     fontUsed := font.

  1931     transformation notNil ifTrue:[

  1645     transformation notNil ifTrue:[

  1932         pX := transformation applyToX:x.

  1646         pX := transformation applyToX:x.

  1933         pY := transformation applyToY:y.

  1647         pY := transformation applyToY:y.

  1934         transformation noScale ifFalse:[

  1648         transformation noScale ifFalse:[

  1937             sz := font size.

  1649             sz := font size.

  1938             sz notNil ifTrue:[

  1650             sz notNil ifTrue:[

  1939                 fontUsed := font asSize:(transformation applyScaleY:sz) rounded.

  1651                 fontUsed := font asSize:(transformation applyScaleY:sz) rounded.

  1940             ]

  1652             ]

  1941         ]

  1653         ]

  1955 

  1667 

  1956     pX := pX rounded.

  1668     pX := pX rounded.

  1957     pY := pY rounded.

  1669     pY := pY rounded.

  1958 

  1670 

  1959     fontUsed := fontUsed onDevice:device.

  1671     fontUsed := fontUsed onDevice:device.

  1965     ].

  1678     ].

  1966 

  1679 

  1967     "

  1680     "

  1968      if bgPaint or paint is not a real Color (aka a pattern), we have to do it the hard way ...

  1681      if bgPaint or paint is not a real Color (aka a pattern), we have to do it the hard way ...

  1969     "

  1682     "

  1985         ] ifFalse:[

  1698         ] ifFalse:[

  1986             easy := false

  1699             easy := false

  1987         ].

  1700         ].

  1988     ].

  1701     ].

  1989 

  1702 

  1994 

  1705 

  1995     "/ check if this string is too long and cut it into a managable size.

  1706     "/ check if this string is too long and cut it into a managable size.

  1996     "/ this is due to win32 limitations which seems to be unable to handle strings

  1707     "/ this is due to win32 limitations which seems to be unable to handle strings

  1997     "/ which are drawn longer than 32k pixels.

  1708     "/ which are drawn longer than 32k pixels.

  1998     nChars := 500.

  1709     nChars := 500.

  2013             pX := pX + wSkipLeft.

  1724             pX := pX + wSkipLeft.

  2014 "/ ('skip %d w=%d x=%d' printfWith:nSkipLeft with:wSkipLeft with:x) printCR.

  1725 "/ ('skip %d w=%d x=%d' printfWith:nSkipLeft with:wSkipLeft with:x) printCR.

  2015         ].

  1726         ].

  2016 

  1727 

  2017 "/ ('n=%d w=%d' printfWith:nChars with:wString) printCR.

  1728 "/ ('n=%d w=%d' printfWith:nChars with:wString) printCR.

  2019             index2Guess := (index1+nChars-1) min:index2.

  1730             index2Guess := (index1+nChars-1) min:index2.

  2020             wString := fontUsed widthOf:aString from:index1 to:index2Guess.

  1731             wString := fontUsed widthOf:aString from:index1 to:index2Guess.

  2022         ] whileTrue:[  "/ not enough...

  1733         ] whileTrue:[  "/ not enough...

  2023             nChars := (nChars * 1.1) rounded.

  1734             nChars := (nChars * 1.1) rounded.

  2024         ].

  1735         ].

  2025 "/ ('n=%d w=%d' printfWith:nChars with:wString) printCR.

  1736 "/ ('n=%d w=%d' printfWith:nChars with:wString) printCR.

  2026         index2 := index2Guess.

  1737         index2 := index2Guess.

  2032             background := bgPaint.

  1743             background := bgPaint.

  2033         ] ifFalse:[

  1744         ] ifFalse:[

  2034             device setForeground:fgId in:gcId.

  1745             device setForeground:fgId in:gcId.

  2035         ].

  1746         ].

  2036         foreground := paint.

  1747         foreground := paint.

  2038         ^ self

  1749         ^ self

  2039     ].

  1750     ].

  2040 

  1751 

  2041     "/

  1752     "/

  2042     "/ do it the hard way - either forground or background is not a plain color,

  1753     "/ do it the hard way - either forground or background is not a plain color,

  2055         self paint:savedPaint.

  1766         self paint:savedPaint.

  2056 

  1767 

  2057         "

  1768         "

  2058          then draw using fgPaint (which is a real color)

  1769          then draw using fgPaint (which is a real color)

  2059         "

  1770         "

  2061         ^ self

  1772         ^ self

  2062     ].

  1773     ].

  2063 

  1774 

  2064     "/ the very hard case (fg-dither)

  1775     "/ the very hard case (fg-dither)

  2065 

  1776 

  2073     "draw a string at the coordinate x/y -

  1784     "draw a string at the coordinate x/y -

  2074      draw foreground-pixels only (in current paint-color),

  1785      draw foreground-pixels only (in current paint-color),

  2075      leaving background as-is. If the transformation involves scaling,

  1786      leaving background as-is. If the transformation involves scaling,

  2076      the font's point-size is scaled as appropriate."

  1787      the font's point-size is scaled as appropriate."

  2077 

  1788 

  2079 !

  1790 !

  2080 

  1791 

  2081 displayUnscaledForm:formToDraw x:x y:y

  1792 displayUnscaledForm:formToDraw x:x y:y

  2082     "draw a form or image non opaque and unscaled;

  1793     "draw a form or image non opaque and unscaled;

  2083      if its a 1-plane bitmap, 1-bits are drawn in the

  1794      if its a 1-plane bitmap, 1-bits are drawn in the

  2367 

  2078 

  2368                         "

  2079                         "

  2369                          stamp out mask in temp form

  2080                          stamp out mask in temp form

  2370                          set unmasked pixels to allBits and masked pixels to 0

  2081                          set unmasked pixels to allBits and masked pixels to 0

  2371                         "

  2082                         "

  2373                             setForeground:allBits background:0 in:tmpGCId;

  2084                             setForeground:allBits background:0 in:tmpGCId;

  2374                             setFunction:#and in:tmpGCId;

  2085                             setFunction:#and in:tmpGCId;

  2375                             copyPlaneFromPixmapId:maskId

  2086                             copyPlaneFromPixmapId:maskId

  2376                                 x:0

  2087                                 x:0

  2377                                 y:0

  2088                                 y:0

  2380                                 x:0

  2091                                 x:0

  2381                                 y:0

  2092                                 y:0

  2382                                 gc:tmpGCId

  2093                                 gc:tmpGCId

  2383                                 width:w

  2094                                 width:w

  2384                                 height:h.

  2095                                 height:h.

  2390 

  2101 

  2391                         "

  2102                         "

  2392                          stamp out mask in destination

  2103                          stamp out mask in destination

  2393                          set unmasked pixels to 0 and masked pixels to allBits

  2104                          set unmasked pixels to 0 and masked pixels to allBits

  2394                         "

  2105                         "

  2396                             setForeground:0 background:allBits in:gcId;

  2107                             setForeground:0 background:allBits in:gcId;

  2397                             setFunction:#and in:gcId;

  2108                             setFunction:#and in:gcId;

  2398                             copyPlaneFromPixmapId:maskId

  2109                             copyPlaneFromPixmapId:maskId

  2399                                 x:0

  2110                                 x:0

  2400                                 y:0

  2111                                 y:0

  2407                                 height:h.

  2118                                 height:h.

  2408 

  2119 

  2409                         "

  2120                         "

  2410                          or-in tempform-bits ...

  2121                          or-in tempform-bits ...

  2411                         "

  2122                         "

  2413                             setForeground:0 background:0 in:gcId;

  2124                             setForeground:0 background:0 in:gcId;

  2414                             setFunction:#or in:gcId;

  2125                             setFunction:#or in:gcId;

  2415                             copyFromPixmapId:tmpId

  2126                             copyFromPixmapId:tmpId

  2416                                 x:0

  2127                                 x:0

  2417                                 y:0

  2128                                 y:0

  3003     background := nil.

  2714     background := nil.

  3004 

  2715 

  3005     "Modified: 22.4.1997 / 21:44:10 / cg"

  2716     "Modified: 22.4.1997 / 21:44:10 / cg"

  3006 !

  2717 !

  3007 

  2718 

  3009     "draw a substring at the coordinate x/y - draw foreground pixels in

  2720     "draw a substring at the coordinate x/y - draw foreground pixels in

  3010      paint-color and background pixels in bgPaint-color.

  2721      paint-color and background pixels in bgPaint-color.

  3011      Assuming that device can only draw in device colors, we have to handle

  2722      Assuming that device can only draw in device colors, we have to handle

  3012      the case where paint and/or bgPaint are dithered colors.

  2723      the case where paint and/or bgPaint are dithered colors.

  3013      No translation or scaling is done."

  2724      No translation or scaling is done."

  3014 

  2725 

  3017      deviceDepth fontsEncoding ascent|

  2727      deviceDepth fontsEncoding ascent|

  3018 

  2728 

  3019     "

  2729     "

  3020      if backgroundPaint color is nil, we assume

  2730      if backgroundPaint color is nil, we assume

  3021      this is a non-opaque draw

  2731      this is a non-opaque draw

  3022     "

  2732     "

  3023     bgPaint isNil ifTrue:[

  2733     bgPaint isNil ifTrue:[

  3025         ^ self

  2735         ^ self

  3026     ].

  2749     ].

  3027 

  2750 

  3028     aString isPlainString ifFalse:[

  2751     aString isPlainString ifFalse:[

  3029         "

  2752         "

  3030          hook for non-strings (i.e. attributed text)

  2753          hook for non-strings (i.e. attributed text)

  3035     ].

  2758     ].

  3036 

  2759 

  3037     pX := x rounded.

  2760     pX := x rounded.

  3038     pY := y rounded.

  2761     pY := y rounded.

  3039 

  2762 

  3056     fontsEncoding := fontUsed encoding.

  2765     fontsEncoding := fontUsed encoding.

  3058     "/ This is now obsolete, as we are always using unicode internally.

  2766     "/ This is now obsolete, as we are always using unicode internally.

  3059     "/ so the next line should be changed to fontsEncoding ~~ #unicode

  2767     "/ so the next line should be changed to fontsEncoding ~~ #unicode

  3060     (characterEncoding ~~ fontsEncoding) ifTrue:[

  2768     (characterEncoding ~~ fontsEncoding) ifTrue:[

  3061         [

  2769         [

  3063         ] on:CharacterEncoderError do:[:ex|

  2771         ] on:CharacterEncoderError do:[:ex|

  3064             "substitute a default value for codes that cannot be represented

  2772             "substitute a default value for codes that cannot be represented

  3065              in the new character set"

  2773              in the new character set"

  3066             ex proceedWith:ex defaultValue.

  2774             ex proceedWith:ex defaultValue.

  3067         ].

  2775         ].

  3068     ].

  2776     ].

  3069 

  2777 

  3074         ^ self

  2784         ^ self

  3080     ].

  2785     ].

  3081 

  2786 

  3082     "

  2787     "

  3083      if bgPaint or paint is not a real Color, we have to do it the hard way ...

  2788      if bgPaint or paint is not a real Color, we have to do it the hard way ...

  3084     "

  2789     "

  3102 

  2807 

  3103     easy ifTrue:[

  2808     easy ifTrue:[

  3104         device setForeground:fgId background:bgId in:gcId.

  2809         device setForeground:fgId background:bgId in:gcId.

  3105         foreground := paint.

  2810         foreground := paint.

  3106         background := bgPaint.

  2811         background := bgPaint.

  3108         ^ self

  2813         ^ self

  3109     ].

  2814     ].

  3110 

  2815 

  3112     h := fontUsed height.

  2817     h := fontUsed height.

  3113     ascent := fontUsed ascent.

  2818     ascent := fontUsed ascent.

  3114 

  2819 

  3115     (fgId notNil and:[function == #copy]) ifTrue:[

  2820     (fgId notNil and:[function == #copy]) ifTrue:[

  3116         "

  2821         "

  3122         self paint:savedPaint.

  2827         self paint:savedPaint.

  3123 

  2828 

  3124         "

  2829         "

  3125          then draw using fgPaint (which is a real color)

  2830          then draw using fgPaint (which is a real color)

  3126         "

  2831         "

  3128         ^ self

  2833         ^ self

  3129     ].

  2834     ].

  3130 

  2835 

  3131     allColor := Color allColor.

  2836     allColor := Color allColor.

  3132     allBits := allColor colorId.

  2837     allBits := allColor colorId.

  3199             ] ifFalse:[

  2904             ] ifFalse:[

  3200                 device setPixmapMask:mask id in:gcId

  2905                 device setPixmapMask:mask id in:gcId

  3201             ].

  2906             ].

  3202         ].

  2907         ].

  3203 

  2908 

  3205         ^ self.

  2910         ^ self.

  3206     ].

  2911     ].

  3207 

  2912 

  3208     "

  2913     "

  3209      very hard case, both fg and bg are dithered colors/images

  2914      very hard case, both fg and bg are dithered colors/images

  3240      stamp-out background (have now bg-bits with fg=0 in bgForm)

  2945      stamp-out background (have now bg-bits with fg=0 in bgForm)

  3241     "

  2946     "

  3242     bgForm font:fontUsed.

  2947     bgForm font:fontUsed.

  3243     bgForm paint:noColor on:allColor.

  2948     bgForm paint:noColor on:allColor.

  3244     bgForm function:#and.

  2949     bgForm function:#and.

  3246 

  2951 

  3247     "

  2952     "

  3248      stamp-out foreground

  2953      stamp-out foreground

  3249     "

  2954     "

  3250     maskForm font:fontUsed.

  2955     maskForm font:fontUsed.

  3251     maskForm paint:allColor on:noColor.

  2956     maskForm paint:allColor on:noColor.

  3253 

  2958 

  3254     fgForm function:#and.

  2959     fgForm function:#and.

  3255     fgForm copyFrom:maskForm x:0 y:0 toX:0 y:0 width:w height:h.

  2960     fgForm copyFrom:maskForm x:0 y:0 toX:0 y:0 width:w height:h.

  3256 

  2961 

  3257     "

  2962     "

  3313      No translation or scaling is done"

  3018      No translation or scaling is done"

  3314 

  3019 

  3315     self displayDeviceOpaqueString:aString from:1 to:(aString size) in:font x:x y:y

  3020     self displayDeviceOpaqueString:aString from:1 to:(aString size) in:font x:x y:y

  3316 !

  3021 !

  3317 

  3022 

  3319     "draw a substring at the coordinate x/y -

  3024     "draw a substring at the coordinate x/y -

  3320      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3025      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3321      No translation or scaling is done"

  3026      No translation or scaling is done"

  3322 

  3027 

  3324 

  3029 

  3325     "

  3030     "

  3326      hook for non-strings (i.e. attributed text)

  3031      hook for non-strings (i.e. attributed text)

  3327     "

  3032     "

  3328     aString isPlainString ifFalse:[

  3033     aString isPlainString ifFalse:[

  3329         ^ aString displayOn:self x:x y:y from:index1 to:index2

  3034         ^ aString displayOn:self x:x y:y from:index1 to:index2

  3330     ].

  3035     ].

  3331 

  3036 

  3344     gcId isNil ifTrue:[

  3037     gcId isNil ifTrue:[

  3345         self initGC

  3038         self initGC

  3346     ].

  3039     ].

  3347 

  3040 

  3350     fontsEncoding := fontUsed encoding.

  3052     fontsEncoding := fontUsed encoding.

  3354     (characterEncoding ~~ fontsEncoding) ifTrue:[

  3053     (characterEncoding ~~ fontsEncoding) ifTrue:[

  3355         [

  3054         [

  3357         ] on:CharacterEncoderError do:[:ex|

  3056         ] on:CharacterEncoderError do:[:ex|

  3358             "substitute a default value for codes that cannot be represented

  3057             "substitute a default value for codes that cannot be represented

  3359              in the new character set"

  3058              in the new character set"

  3360             ex proceedWith:ex defaultValue.

  3059             ex proceedWith:ex defaultValue.

  3361         ].

  3060         ].

  3362     ].

  3061     ].

  3368         ^ self

  3068         ^ self

  3376 

  3072 

  3377     "Modified: 1.7.1997 / 17:08:48 / cg"

  3073     "Modified: 1.7.1997 / 17:08:48 / cg"

  3378 !

  3074 !

  3379 

  3075 

  3380 displayDeviceString:aString from:index1 to:index2 x:x y:y

  3076 displayDeviceString:aString from:index1 to:index2 x:x y:y

  3381     "draw a substring at the coordinate x/y -

  3077     "draw a substring at the coordinate x/y -

  3382      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3078      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3383      No translation or scaling is done"

  3079      No translation or scaling is done"

  3384 

  3080 

  3385     self displayDeviceString:aString from:index1 to:index2 in:font x:x y:y

  3081     self displayDeviceString:aString from:index1 to:index2 in:font x:x y:y

  3386 !

  3094 !

  3387 

  3095 

  3388 displayDeviceString:aString x:x y:y

  3096 displayDeviceString:aString x:x y:y

  3389     "draw a string at the coordinate x/y -

  3097     "draw a string at the coordinate x/y -

  3390      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3098      draw foreground-pixels only (in current paint-color), leaving background as-is.

  3526 ! !

  3234 ! !

  3527 

  3235 

  3528 !DeviceGraphicsContext methodsFor:'filling'!

  3236 !DeviceGraphicsContext methodsFor:'filling'!

  3529 

  3237 

  3530 clearDeviceRectangleX:x y:y width:w height:h

  3238 clearDeviceRectangleX:x y:y width:w height:h

  3543     oldPaint := paint.

  3243     oldPaint := paint.

  3546     self paint:oldPaint

  3246     self paint:oldPaint

  3550 !

  3258 !

  3551 

  3259 

  3552 fillArcX:x y:y width:w height:h from:startAngle angle:angle

  3260 fillArcX:x y:y width:w height:h from:startAngle angle:angle

  3553     "draw a filled arc; apply transformation if nonNil"

  3261     "draw a filled arc; apply transformation if nonNil"

  3554 

  3262 

  3688 

  3396 

  3689 finalizationLobby

  3397 finalizationLobby

  3690     "answer the registry used for finalization.

  3398     "answer the registry used for finalization.

  3691      DeviceGraphicContexts have their own Registry"

  3399      DeviceGraphicContexts have their own Registry"

  3692 

  3400 

  3694 !

  3402 !

  3695 

  3403 

  3696 registerChange

  3404 registerChange

  3697     "register a change with the finalizationLobby"

  3405     "register a change with the finalizationLobby"

  3698 

  3406 

  3714      Since we do not need a gc-object for the drawable until something is

  3422      Since we do not need a gc-object for the drawable until something is

  3715      really drawn, none is created up to the first draw.

  3423      really drawn, none is created up to the first draw.

  3716      This method is sent, when the first drawing happens"

  3424      This method is sent, when the first drawing happens"

  3717 

  3425 

  3718     drawableType == #window ifTrue:[

  3426     drawableType == #window ifTrue:[

  3719         gcId := device gcFor:drawableId.

  3429         gcId := device gcFor:drawableId.