aboutsummaryrefslogtreecommitdiff
path: root/win
diff options
context:
space:
mode:
Diffstat (limited to 'win')
-rw-r--r--win/Tkzinc.aip.in118
-rw-r--r--win/Tkzincperl.aip.in151
-rw-r--r--win/WinPort.c1042
-rw-r--r--win/makefile.vc.in130
-rw-r--r--win/package.tcl76
5 files changed, 0 insertions, 1517 deletions
diff --git a/win/Tkzinc.aip.in b/win/Tkzinc.aip.in
deleted file mode 100644
index d7fc904..0000000
--- a/win/Tkzinc.aip.in
+++ /dev/null
@@ -1,118 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<DOCUMENT type="Advanced Installer" version="1.4" modules="freeware" RootPath=".">
- <COMPONENT cid="caphyon.advinst.msicomp.MsiPropsComponent">
- <ROW Property="ProductCode" Value="{D5355F48-24D0-4B15-A267-DC02AA7C93C2}"/>
- <ROW Property="ALLUSERS" Value="2"/>
- <ROW Property="ARPCONTACT" Value="zinc@cena.fr"/>
- <ROW Property="ARPURLINFOABOUT" Value="www.tkzinc.org"/>
- <ROW Property="BannerBitmap" Value="default_banner.bmp"/>
- <ROW Property="DialogBitmap" Value="default_dialog.bmp"/>
- <ROW Property="Manufacturer" Value="C.E.N.A"/>
- <ROW Property="ProductLanguage" Value="1033"/>
- <ROW Property="ProductVersion" Value="@VERSION@"/>
- <ROW Property="SecureCustomProperties" Value="OLDPRODUCTS"/>
- <ROW Property="UpgradeCode" Value="{E1562383-D767-4BF5-AED0-B8CCF6581AC9}"/>
- <ROW Property="ProductName" Value="TkZinc"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiDirsComponent">
- <ROW Directory="TARGETDIR" Directory_Parent="" DefaultDir="SourceDir"/>
- <ROW Directory="data" Directory_Parent="Tkzinc" DefaultDir="data"/>
- <ROW Directory="demos" Directory_Parent="TARGETDIR" DefaultDir="demos"/>
- <ROW Directory="images" Directory_Parent="Tkzinc" DefaultDir="images"/>
- <ROW Directory="Tkzinc" Directory_Parent="demos" DefaultDir="Tkzinc"/>
- <ROW Directory="Tkzinc_1" Directory_Parent="lib" DefaultDir="Tkzinc"/>
- <ROW Directory="bin" Directory_Parent="TARGETDIR" DefaultDir="bin"/>
- <ROW Directory="lib" Directory_Parent="TARGETDIR" DefaultDir="lib"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCompsComponent">
- <ROW Component="Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" ComponentId="{BD006EA0-030C-4C37-853A-74802C13198A}" Directory_="Tkzinc_1" Attributes="0" Condition="" KeyPath="Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" FullKeyPath="TARGETDIR\lib\Tkzinc\Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll"/>
- <ROW Component="demos" ComponentId="{1971090C-E55B-49F0-BF82-2F4E1F7CFD36}" Directory_="demos" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="videomap_paris_w_90_2" ComponentId="{2568BCC4-ED6E-4C50-AF00-BD8B53AD2D22}" Directory_="data" Attributes="0" Condition="" KeyPath="videomap_paris_w_90_2" FullKeyPath="TARGETDIR\demos\Tkzinc\data"/>
- <ROW Component="zinc.gif" ComponentId="{EAA08733-85D2-48B8-BCB0-41FED94ECE88}" Directory_="images" Attributes="0" Condition="" KeyPath="zinc.gif" FullKeyPath="TARGETDIR\demos\Tkzinc\images"/>
- <ROW Component="zinc_widget.tcl" ComponentId="{75BEE58C-9D63-4C77-B0EE-F84010D0666A}" Directory_="bin" Attributes="0" Condition="" KeyPath="zinc_widget.tcl" FullKeyPath="TARGETDIR\bin"/>
- <ROW Component="lib" ComponentId="{B8FDD86E-7E03-4764-89F3-225B746368F4}" Directory_="lib" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="pkgIndex.tcl" ComponentId="{F0E7B97E-2B21-4CB3-A3AE-D915174972D7}" Directory_="Tkzinc_1" Attributes="0" Condition="" KeyPath="pkgIndex.tcl" FullKeyPath="TARGETDIR\lib\Tkzinc"/>
- <ROW Component="reliefs.tcl" ComponentId="{F1C0F127-1924-4C59-8565-883A18CD536D}" Directory_="Tkzinc" Attributes="0" Condition="" KeyPath="reliefs.tcl" FullKeyPath="TARGETDIR\demos\Tkzinc"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiFeatsComponent">
- <ROW Feature="MainFeature" Feature_Parent="" Title="Main Feature" Description="Main Feature" Display="2" Level="1" Directory_="TARGETDIR" Attributes="0" Components="lib pkgIndex.tcl demos reliefs.tcl zinc.gif videomap_paris_w_90_2 Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll zinc_widget.tcl"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiFilesComponent">
- <ROW File="fillRule.tcl" Component_="reliefs.tcl" FileName="fillRule.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\fillRule.tcl" SelfReg="false"/>
- <ROW File="simpleInteractionTrack.tcl" Component_="reliefs.tcl" FileName="simple~1.tcl|simpleInteractionTrack.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\simpleInteractionTrack.tcl" SelfReg="false"/>
- <ROW File="transforms.tcl" Component_="reliefs.tcl" FileName="transf~1.tcl|transforms.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\transforms.tcl" SelfReg="false"/>
- <ROW File="photoAlpha.tcl" Component_="reliefs.tcl" FileName="photoA~1.tcl|photoAlpha.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\photoAlpha.tcl" SelfReg="false"/>
- <ROW File="paper_grey.gif" Component_="zinc.gif" FileName="paper-~1.gif|paper-grey.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\paper-grey.gif" SelfReg="false"/>
- <ROW File="testGraphics.tcl" Component_="reliefs.tcl" FileName="testGr~1.tcl|testGraphics.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\testGraphics.tcl" SelfReg="false"/>
- <ROW File="videomap_paris_w_90_2" Component_="videomap_paris_w_90_2" FileName="videom~1|videomap_paris-w_90_2" Version="" Language="" Attributes="" SourcePath="..\demos\data\videomap_paris-w_90_2" SelfReg="false"/>
- <ROW File="groupsPriority.tcl" Component_="reliefs.tcl" FileName="groups~2.tcl|groupsPriority.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\groupsPriority.tcl" SelfReg="false"/>
- <ROW File="items.tcl" Component_="reliefs.tcl" FileName="items.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\items.tcl" SelfReg="false"/>
- <ROW File="paper_grey1.gif" Component_="zinc.gif" FileName="paper-~2.gif|paper-grey1.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\paper-grey1.gif" SelfReg="false"/>
- <ROW File="photoAlpha.png" Component_="zinc.gif" FileName="photoA~1.png|photoAlpha.png" Version="" Language="" Attributes="" SourcePath="..\demos\images\photoAlpha.png" SelfReg="false"/>
- <ROW File="Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" Component_="Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" FileName="Tkzinc~1.dll|Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" Version="" Language="" Attributes="" SourcePath="..\Tkzinc@MAJOR_VERSION@@MINOR_VERSION@@PATCHLEVEL@.dll" SelfReg="false"/>
- <ROW File="background_texture.gif" Component_="zinc.gif" FileName="backgr~1.gif|background_texture.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\background_texture.gif" SelfReg="false"/>
- <ROW File="hegias_parouest_TE.vid" Component_="videomap_paris_w_90_2" FileName="hegias~1.vid|hegias_parouest_TE.vid" Version="" Language="" Attributes="" SourcePath="..\demos\data\hegias_parouest_TE.vid" SelfReg="false"/>
- <ROW File="lines.tcl" Component_="reliefs.tcl" FileName="lines.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\lines.tcl" SelfReg="false"/>
- <ROW File="magicLens.tcl" Component_="reliefs.tcl" FileName="magicL~1.tcl|magicLens.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\magicLens.tcl" SelfReg="false"/>
- <ROW File="paper.gif" Component_="zinc.gif" FileName="paper.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\paper.gif" SelfReg="false"/>
- <ROW File="tiger.tcl" Component_="reliefs.tcl" FileName="tiger.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\tiger.tcl" SelfReg="false"/>
- <ROW File="colorCircular.tcl" Component_="reliefs.tcl" FileName="colorC~1.tcl|colorCircular.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\colorCircular.tcl" SelfReg="false"/>
- <ROW File="groupsInAtcStrips.tcl" Component_="reliefs.tcl" FileName="groups~1.tcl|groupsInAtcStrips.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\groupsInAtcStrips.tcl" SelfReg="false"/>
- <ROW File="pathTags.tcl" Component_="reliefs.tcl" FileName="pathTags.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\pathTags.tcl" SelfReg="false"/>
- <ROW File="simpleRadar.tcl" Component_="reliefs.tcl" FileName="simple~2.tcl|simpleRadar.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\simpleRadar.tcl" SelfReg="false"/>
- <ROW File="tkZincLogo.tcl" Component_="reliefs.tcl" FileName="tkZinc~1.tcl|tkZincLogo.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\tkZincLogo.tcl" SelfReg="false"/>
- <ROW File="allOptions.tcl" Component_="reliefs.tcl" FileName="allOpt~1.tcl|allOptions.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\allOptions.tcl" SelfReg="false"/>
- <ROW File="atomicGroups.tcl" Component_="reliefs.tcl" FileName="atomic~1.tcl|atomicGroups.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\atomicGroups.tcl" SelfReg="false"/>
- <ROW File="contours.tcl" Component_="reliefs.tcl" FileName="contours.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\contours.tcl" SelfReg="false"/>
- <ROW File="iconTransform.tcl" Component_="reliefs.tcl" FileName="iconTr~1.tcl|iconTransform.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\iconTransform.tcl" SelfReg="false"/>
- <ROW File="textInput.tcl" Component_="reliefs.tcl" FileName="textIn~1.tcl|textInput.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\textInput.tcl" SelfReg="false"/>
- <ROW File="windowContours.tcl" Component_="reliefs.tcl" FileName="window~1.tcl|windowContours.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\windowContours.tcl" SelfReg="false"/>
- <ROW File="zincGraphics.tcl" Component_="pkgIndex.tcl" FileName="zincGr~1.tcl|zincGraphics.tcl" Version="" Language="" Attributes="" SourcePath="..\library\zincGraphics.tcl" SelfReg="false"/>
- <ROW File="zincLogo.tcl" Component_="pkgIndex.tcl" FileName="zincLogo.tcl" Version="" Language="" Attributes="" SourcePath="..\library\zincLogo.tcl" SelfReg="false"/>
- <ROW File="clipping.tcl" Component_="reliefs.tcl" FileName="clipping.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\clipping.tcl" SelfReg="false"/>
- <ROW File="curveBezier.tcl" Component_="reliefs.tcl" FileName="curveB~1.tcl|curveBezier.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\curveBezier.tcl" SelfReg="false"/>
- <ROW File="stripped_texture.gif" Component_="zinc.gif" FileName="stripp~1.gif|stripped_texture.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\stripped_texture.gif" SelfReg="false"/>
- <ROW File="colorX.tcl" Component_="reliefs.tcl" FileName="colorX.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\colorX.tcl" SelfReg="false"/>
- <ROW File="zinc.gif" Component_="zinc.gif" FileName="zinc.gif" Version="" Language="" Attributes="" SourcePath="..\demos\images\zinc.gif" SelfReg="false"/>
- <ROW File="zinc_widget.tcl" Component_="zinc_widget.tcl" FileName="zinc-w~1.tcl|zinc-widget.tcl" Version="" Language="" Attributes="" SourcePath="zinc-widget.tcl" SelfReg="false"/>
- <ROW File="colorY.tcl" Component_="reliefs.tcl" FileName="colorY.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\colorY.tcl" SelfReg="false"/>
- <ROW File="labelformat.tcl" Component_="reliefs.tcl" FileName="labelf~1.tcl|labelformat.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\labelformat.tcl" SelfReg="false"/>
- <ROW File="triangles.tcl" Component_="reliefs.tcl" FileName="triang~1.tcl|triangles.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\triangles.tcl" SelfReg="false"/>
- <ROW File="videomap_orly" Component_="videomap_paris_w_90_2" FileName="videom~2|videomap_orly" Version="" Language="" Attributes="" SourcePath="..\demos\data\videomap_orly" SelfReg="false"/>
- <ROW File="zincText.tcl" Component_="pkgIndex.tcl" FileName="zincText.tcl" Version="" Language="" Attributes="" SourcePath="..\library\zincText.tcl" SelfReg="false"/>
- <ROW File="pkgIndex.tcl" Component_="pkgIndex.tcl" FileName="pkgIndex.tcl" Version="" Language="" Attributes="" SourcePath="pkgIndex.tcl" SelfReg="false"/>
- <ROW File="reliefs.tcl" Component_="reliefs.tcl" FileName="reliefs.tcl" Version="" Language="" Attributes="" SourcePath="..\demos\reliefs.tcl" SelfReg="false"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCustActComponent">
- <ROW Action="SET_SHORTCUTDIR" Type="307" Source="SHORTCUTDIR" Target="[WindowsVolume]\Tcl\demos\Tkzinc"/>
- <ROW Action="SET_TARGETDIR" Type="307" Source="TARGETDIR" Target="[WindowsVolume]\Tcl"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCreateFolderComponent">
- <ROW Directory_="demos" Component_="demos"/>
- <ROW Directory_="lib" Component_="lib"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiMediaComponent">
- <ATTRIBUTE name="InstallationType" value="0"/>
- <ATTRIBUTE name="MediaSize" value="0"/>
- <ATTRIBUTE name="Compress" value="1"/>
- <ATTRIBUTE name="Package" value="1"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiUpgradeComponent">
- <ROW UpgradeCode="UpgradeCode" VersionMin="" VersionMax="ProductVersion" Language="" Attributes="1025" Remove=""/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiBinaryComponent">
- <ROW Name="default_banner.bmp" SourcePath="&lt;default-banner.bmp&gt;"/>
- <ROW Name="default_dialog.bmp" SourcePath="&lt;default-dialog.bmp&gt;"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiLaunchConditionsComponent">
- <ROW Condition="Version9X&lt;&gt;400" Description="[ProductName] cannot be installed on Windows 95."/>
- <ROW Condition="Version9X&lt;&gt;410" Description="[ProductName] cannot be installed on Windows 98."/>
- <ROW Condition="Version9X&lt;&gt;490" Description="[ProductName] cannot be installed on Windows Milennium Edition."/>
- <ROW Condition="VersionNT&lt;&gt;400" Description="[ProductName] cannot be installed on Windows NT 4.0."/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiInstallUISequenceComponent">
- <ATTRIBUTE name="Start" value="WelcomeDlg FolderDlg VerifyReadyDlg"/>
- <ATTRIBUTE name="Progress" value="ProgressDlg"/>
- <ATTRIBUTE name="End" value="ExitDialog"/>
- </COMPONENT>
-</DOCUMENT>
diff --git a/win/Tkzincperl.aip.in b/win/Tkzincperl.aip.in
deleted file mode 100644
index b6e5e02..0000000
--- a/win/Tkzincperl.aip.in
+++ /dev/null
@@ -1,151 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
-<DOCUMENT type="Advanced Installer" version="1.4" modules="freeware" RootPath=".">
- <COMPONENT cid="caphyon.advinst.msicomp.MsiPropsComponent">
- <ROW Property="ARPURLINFOABOUT" Value="www.tkzinc.org"/>
- <ROW Property="DialogBitmap" Value="default_dialog.bmp"/>
- <ROW Property="Manufacturer" Value="C.E.N.A"/>
- <ROW Property="ProductLanguage" Value="1033"/>
- <ROW Property="ProductName" Value="Tkzinc-perl"/>
- <ROW Property="ALLUSERS" Value="2"/>
- <ROW Property="ARPCONTACT" Value="zinc@cena.fr"/>
- <ROW Property="BannerBitmap" Value="default_banner.bmp"/>
- <ROW Property="ProductVersion" Value="@VERSION@"/>
- <ROW Property="SecureCustomProperties" Value="OLDPRODUCTS"/>
- <ROW Property="UpgradeCode" Value="{FF2B87A1-C290-433D-8B75-11C51DEFBF4B}"/>
- <ROW Property="ProductCode" Value="{76AB4D37-3059-4ED1-AA67-57BB8B1C2FB3}"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiDirsComponent">
- <ROW Directory="Zinc" Directory_Parent="Tk" DefaultDir="Zinc"/>
- <ROW Directory="Zinc_1" Directory_Parent="Tk_1" DefaultDir="Zinc"/>
- <ROW Directory="demos" Directory_Parent="Tk_1" DefaultDir="demos"/>
- <ROW Directory="zinc_pm" Directory_Parent="demos" DefaultDir="zinc_pm"/>
- <ROW Directory="auto" Directory_Parent="lib" DefaultDir="auto"/>
- <ROW Directory="bin" Directory_Parent="TARGETDIR" DefaultDir="bin"/>
- <ROW Directory="site" Directory_Parent="TARGETDIR" DefaultDir="site"/>
- <ROW Directory="zinc_data" Directory_Parent="demos" DefaultDir="zinc_d~1|zinc_data"/>
- <ROW Directory="TARGETDIR" Directory_Parent="" DefaultDir="SourceDir"/>
- <ROW Directory="zinc_contrib_lib" Directory_Parent="demos" DefaultDir="zinc_c~1|zinc_contrib_lib"/>
- <ROW Directory="zinc_lib" Directory_Parent="demos" DefaultDir="zinc_lib"/>
- <ROW Directory="Tk" Directory_Parent="auto" DefaultDir="Tk"/>
- <ROW Directory="Tk_1" Directory_Parent="lib" DefaultDir="Tk"/>
- <ROW Directory="lib" Directory_Parent="site" DefaultDir="lib"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCompsComponent">
- <ROW Component="Zinc.pdb" ComponentId="{F7C10F4C-49E2-4A87-9CE4-6FDF9F2C9190}" Directory_="Zinc" Attributes="0" Condition="" KeyPath="Zinc.pdb" FullKeyPath="TARGETDIR\site\lib\auto\Tk\Zinc"/>
- <ROW Component="demos" ComponentId="{667472C4-DA67-4414-AF5C-66DEB5CE0D19}" Directory_="demos" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="auto" ComponentId="{8056E60B-3CCC-4934-B7FE-7A78711FF1EF}" Directory_="auto" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="site" ComponentId="{C6397E22-6B68-4223-82D0-D5F6B23ABCA8}" Directory_="site" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="Zinc.dll" ComponentId="{D96C4370-BE7B-43E7-A5E6-7D4D16FE06A2}" Directory_="Zinc" Attributes="0" Condition="" KeyPath="Zinc.dll" FullKeyPath="TARGETDIR\site\lib\auto\Tk\Zinc\Zinc.dll"/>
- <ROW Component="SimpleRadarControls.pm" ComponentId="{0AA127CF-56CA-4F8A-9480-3BAFB467BE0B}" Directory_="zinc_pm" Attributes="0" Condition="" KeyPath="SimpleRadarControls.pm" FullKeyPath="TARGETDIR\site\lib\Tk\demos\zinc_pm"/>
- <ROW Component="Tk" ComponentId="{5876071E-15AD-4A01-B0E4-4DBFCBCA3002}" Directory_="Tk" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="TraceUtils.pm" ComponentId="{01F3478B-E89C-431C-9E93-92EE1FC3831A}" Directory_="Zinc_1" Attributes="0" Condition="" KeyPath="TraceUtils.pm" FullKeyPath="TARGETDIR\site\lib\Tk\Zinc"/>
- <ROW Component="TripleRotatingWheel.pl" ComponentId="{6880F916-90D4-41F6-B15E-6046AC4E5F84}" Directory_="zinc_contrib_lib" Attributes="0" Condition="" KeyPath="TripleRotatingWheel.pl" FullKeyPath="TARGETDIR\site\lib\Tk\demos\zinc_contrib_lib"/>
- <ROW Component="Zinc.pm" ComponentId="{09BA61D1-CEF5-4A84-9EB1-CA3A11FD58C6}" Directory_="Tk_1" Attributes="0" Condition="" KeyPath="Zinc.pm" FullKeyPath="TARGETDIR\site\lib\Tk"/>
- <ROW Component="lib" ComponentId="{F85FD376-379E-400A-BAF6-5A87BB455864}" Directory_="lib" Attributes="0" Condition="" KeyPath="" FullKeyPath=""/>
- <ROW Component="zinc_anti.gif" ComponentId="{A1AE55D1-7A80-4357-9003-F410383B4A2A}" Directory_="zinc_data" Attributes="0" Condition="" KeyPath="zinc_anti.gif" FullKeyPath="TARGETDIR\site\lib\Tk\demos\zinc_data"/>
- <ROW Component="zinc_demos.bat" ComponentId="{D547BFCA-5674-491D-8E03-183D90F51365}" Directory_="bin" Attributes="0" Condition="" KeyPath="zinc_demos.bat" FullKeyPath="TARGETDIR\bin"/>
- <ROW Component="zoom.pl" ComponentId="{153D1046-6E03-424B-B715-A88C24285360}" Directory_="zinc_lib" Attributes="0" Condition="" KeyPath="zoom.pl" FullKeyPath="TARGETDIR\site\lib\Tk\demos\zinc_lib"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiFeatsComponent">
- <ROW Feature="MainFeature" Feature_Parent="" Title="Main Feature" Description="Main Feature" Display="2" Level="1" Directory_="TARGETDIR" Attributes="0" Components="zinc_demos.bat site lib auto Tk Zinc.pdb Zinc.dll TraceUtils.pm Zinc.pm demos TripleRotatingWheel.pl zoom.pl zinc_anti.gif SimpleRadarControls.pm"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiFilesComponent">
- <ROW File="Text.pm" Component_="TraceUtils.pm" FileName="Text.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Text.pm" SelfReg="false"/>
- <ROW File="clipping.pl" Component_="zoom.pl" FileName="clipping.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\clipping.pl" SelfReg="false"/>
- <ROW File="color_x.pl" Component_="zoom.pl" FileName="color-x.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\color-x.pl" SelfReg="false"/>
- <ROW File="color_y.pl" Component_="zoom.pl" FileName="color-y.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\color-y.pl" SelfReg="false"/>
- <ROW File="Debug.pm" Component_="TraceUtils.pm" FileName="Debug.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Debug.pm" SelfReg="false"/>
- <ROW File="Graphics.pod" Component_="TraceUtils.pm" FileName="Graphics.pod" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Graphics.pod" SelfReg="false"/>
- <ROW File="color_path_and_conic.pl" Component_="zoom.pl" FileName="color-~2.pl|color-path-and-conic.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\color-path-and-conic.pl" SelfReg="false"/>
- <ROW File="paper_grey.gif" Component_="zinc_anti.gif" FileName="paper-~1.gif|paper-grey.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\paper-grey.gif" SelfReg="false"/>
- <ROW File="videomap_paris_w_90_2" Component_="zinc_anti.gif" FileName="videom~2|videomap_paris-w_90_2" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\videomap_paris-w_90_2" SelfReg="false"/>
- <ROW File="SimpleRadarControls.pm" Component_="SimpleRadarControls.pm" FileName="Simple~1.pm|SimpleRadarControls.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_pm\SimpleRadarControls.pm" SelfReg="false"/>
- <ROW File="labelformat.pl" Component_="zoom.pl" FileName="labelf~1.pl|labelformat.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\labelformat.pl" SelfReg="false"/>
- <ROW File="paper_grey1.gif" Component_="zinc_anti.gif" FileName="paper-~2.gif|paper-grey1.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\paper-grey1.gif" SelfReg="false"/>
- <ROW File="triangles.pl" Component_="zoom.pl" FileName="triang~1.pl|triangles.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\triangles.pl" SelfReg="false"/>
- <ROW File="zinc_anti.gif" Component_="zinc_anti.gif" FileName="zinc_a~1.gif|zinc_anti.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\zinc_anti.gif" SelfReg="false"/>
- <ROW File="background_texture.gif" Component_="zinc_anti.gif" FileName="backgr~1.gif|background_texture.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\background_texture.gif" SelfReg="false"/>
- <ROW File="mapinfo.pl" Component_="zoom.pl" FileName="mapinfo.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\mapinfo.pl" SelfReg="false"/>
- <ROW File="lines.pl" Component_="zoom.pl" FileName="lines.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\lines.pl" SelfReg="false"/>
- <ROW File="path_tags.pl" Component_="zoom.pl" FileName="path_t~1.pl|path_tags.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\path_tags.pl" SelfReg="false"/>
- <ROW File="tiger.pl" Component_="zoom.pl" FileName="tiger.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\tiger.pl" SelfReg="false"/>
- <ROW File="atomic_groups.pl" Component_="zoom.pl" FileName="atomic~1.pl|atomic-groups.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\atomic-groups.pl" SelfReg="false"/>
- <ROW File="TraceErrors.pm" Component_="TraceUtils.pm" FileName="TraceE~1.pm|TraceErrors.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\TraceErrors.pm" SelfReg="false"/>
- <ROW File="TripleRotatingWheel.pl" Component_="TripleRotatingWheel.pl" FileName="Triple~1.pl|TripleRotatingWheel.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_contrib_lib\TripleRotatingWheel.pl" SelfReg="false"/>
- <ROW File="Zinc.bs" Component_="Zinc.pdb" FileName="Zinc.bs" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\arch\auto\Tk\Zinc\Zinc.bs" SelfReg="false"/>
- <ROW File="contours.pl" Component_="zoom.pl" FileName="contours.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\contours.pl" SelfReg="false"/>
- <ROW File="simple_interaction_track.pl" Component_="zoom.pl" FileName="simple~1.pl|simple_interaction_track.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\simple_interaction_track.pl" SelfReg="false"/>
- <ROW File="wheelOfFortune.pl" Component_="zoom.pl" FileName="wheelO~1.pl|wheelOfFortune.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\wheelOfFortune.pl" SelfReg="false"/>
- <ROW File="Zinc.pdb" Component_="Zinc.pdb" FileName="Zinc.pdb" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\arch\auto\Tk\Zinc\Zinc.pdb" SelfReg="false"/>
- <ROW File="icon_zoom_resize.pl" Component_="zoom.pl" FileName="icon_z~1.pl|icon_zoom_resize.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\icon_zoom_resize.pl" SelfReg="false"/>
- <ROW File="zinc.gif" Component_="zinc_anti.gif" FileName="zinc.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\zinc.gif" SelfReg="false"/>
- <ROW File="Zinc.lib" Component_="Zinc.pdb" FileName="Zinc.lib" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\arch\auto\Tk\Zinc\Zinc.lib" SelfReg="false"/>
- <ROW File="fillrule.pl" Component_="zoom.pl" FileName="fillrule.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\fillrule.pl" SelfReg="false"/>
- <ROW File="transforms.pl" Component_="zoom.pl" FileName="transf~1.pl|transforms.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\transforms.pl" SelfReg="false"/>
- <ROW File="translation.pl" Component_="zoom.pl" FileName="transl~1.pl|translation.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\translation.pl" SelfReg="false"/>
- <ROW File="Trace.pm" Component_="TraceUtils.pm" FileName="Trace.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Trace.pm" SelfReg="false"/>
- <ROW File="counter.pl" Component_="zoom.pl" FileName="counter.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\counter.pl" SelfReg="false"/>
- <ROW File="rotation.pl" Component_="zoom.pl" FileName="rotation.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\rotation.pl" SelfReg="false"/>
- <ROW File="videomap_orly" Component_="zinc_anti.gif" FileName="videom~1|videomap_orly" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\videomap_orly" SelfReg="false"/>
- <ROW File="TraceUtils.pm" Component_="TraceUtils.pm" FileName="TraceU~1.pm|TraceUtils.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\TraceUtils.pm" SelfReg="false"/>
- <ROW File="Zetris.pl" Component_="zoom.pl" FileName="Zetris.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\Zetris.pl" SelfReg="false"/>
- <ROW File="groups_in_ATC_strips.pl" Component_="zoom.pl" FileName="groups~1.pl|groups_in_ATC_strips.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\groups_in_ATC_strips.pl" SelfReg="false"/>
- <ROW File="groups_priority.pl" Component_="zoom.pl" FileName="groups~2.pl|groups_priority.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\groups_priority.pl" SelfReg="false"/>
- <ROW File="testGraphics.pl" Component_="zoom.pl" FileName="testGr~1.pl|testGraphics.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\testGraphics.pl" SelfReg="false"/>
- <ROW File="zinc_demos.bat" Component_="zinc_demos.bat" FileName="zinc-d~1|zinc-demos.bat" Version="" Language="" Attributes="" SourcePath="zinc-demos.bat" SelfReg="false"/>
- <ROW File="Graphics.pm" Component_="TraceUtils.pm" FileName="Graphics.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Graphics.pm" SelfReg="false"/>
- <ROW File="Logo.pm" Component_="TraceUtils.pm" FileName="Logo.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc\Logo.pm" SelfReg="false"/>
- <ROW File="hegias_parouest_TE.vid" Component_="zinc_anti.gif" FileName="hegias~1.vid|hegias_parouest_TE.vid" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\hegias_parouest_TE.vid" SelfReg="false"/>
- <ROW File="items.pl" Component_="zoom.pl" FileName="items.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\items.pl" SelfReg="false"/>
- <ROW File="paper.gif" Component_="zinc_anti.gif" FileName="paper.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\paper.gif" SelfReg="false"/>
- <ROW File="MagicLens.pl" Component_="zoom.pl" FileName="MagicL~1.pl|MagicLens.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\MagicLens.pl" SelfReg="false"/>
- <ROW File="color_circular.pl" Component_="zoom.pl" FileName="color-~1.pl|color-circular.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\color-circular.pl" SelfReg="false"/>
- <ROW File="README" Component_="TripleRotatingWheel.pl" FileName="README" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_contrib_lib\README" SelfReg="false"/>
- <ROW File="Zinc.dll" Component_="Zinc.dll" FileName="Zinc.dll" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\arch\auto\Tk\Zinc\Zinc.dll" SelfReg="false"/>
- <ROW File="all_options.pl" Component_="zoom.pl" FileName="all_op~1.pl|all_options.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\all_options.pl" SelfReg="false"/>
- <ROW File="simpleradar.pl" Component_="zoom.pl" FileName="simple~2.pl|simpleradar.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\simpleradar.pl" SelfReg="false"/>
- <ROW File="tkZincLogo.pl" Component_="zoom.pl" FileName="tkZinc~1.pl|tkZincLogo.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\tkZincLogo.pl" SelfReg="false"/>
- <ROW File="window_contours.pl" Component_="zoom.pl" FileName="window~1.pl|window-contours.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\window-contours.pl" SelfReg="false"/>
- <ROW File="Zinc.exp" Component_="Zinc.pdb" FileName="Zinc.exp" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\arch\auto\Tk\Zinc\Zinc.exp" SelfReg="false"/>
- <ROW File="Zinc.pm" Component_="Zinc.pm" FileName="Zinc.pm" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\Zinc.pm" SelfReg="false"/>
- <ROW File="curve_bezier.pl" Component_="zoom.pl" FileName="curve_~1.pl|curve_bezier.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\curve_bezier.pl" SelfReg="false"/>
- <ROW File="stripped_texture.gif" Component_="zinc_anti.gif" FileName="stripp~1.gif|stripped_texture.gif" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_data\stripped_texture.gif" SelfReg="false"/>
- <ROW File="textInput.pl" Component_="zoom.pl" FileName="textIn~1.pl|textInput.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\textInput.pl" SelfReg="false"/>
- <ROW File="zoom.pl" Component_="zoom.pl" FileName="zoom.pl" Version="" Language="" Attributes="" SourcePath="..\buildperl\blib\lib\Tk\demos\zinc_lib\zoom.pl" SelfReg="false"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCustActComponent">
- <ROW Action="SET_SHORTCUTDIR" Type="307" Source="SHORTCUTDIR" Target="[WindowsVolume]\Perl"/>
- <ROW Action="SET_TARGETDIR" Type="307" Source="TARGETDIR" Target="[WindowsVolume]\Perl"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiCreateFolderComponent">
- <ROW Directory_="Tk" Component_="Tk"/>
- <ROW Directory_="site" Component_="site"/>
- <ROW Directory_="auto" Component_="auto"/>
- <ROW Directory_="lib" Component_="lib"/>
- <ROW Directory_="demos" Component_="demos"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiMediaComponent">
- <ATTRIBUTE name="InstallationType" value="0"/>
- <ATTRIBUTE name="MediaSize" value="0"/>
- <ATTRIBUTE name="Compress" value="1"/>
- <ATTRIBUTE name="Package" value="1"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiUpgradeComponent">
- <ROW UpgradeCode="UpgradeCode" VersionMin="" VersionMax="ProductVersion" Language="" Attributes="1025" Remove=""/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiBinaryComponent">
- <ROW Name="default_banner.bmp" SourcePath="&lt;default-banner.bmp&gt;"/>
- <ROW Name="default_dialog.bmp" SourcePath="&lt;default-dialog.bmp&gt;"/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiLaunchConditionsComponent">
- <ROW Condition="Version9X&lt;&gt;400" Description="[ProductName] cannot be installed on Windows 95."/>
- <ROW Condition="Version9X&lt;&gt;410" Description="[ProductName] cannot be installed on Windows 98."/>
- <ROW Condition="Version9X&lt;&gt;490" Description="[ProductName] cannot be installed on Windows Milennium Edition."/>
- <ROW Condition="VersionNT&lt;&gt;400" Description="[ProductName] cannot be installed on Windows NT 4.0."/>
- </COMPONENT>
- <COMPONENT cid="caphyon.advinst.msicomp.MsiInstallUISequenceComponent">
- <ATTRIBUTE name="Start" value="WelcomeDlg FolderDlg VerifyReadyDlg"/>
- <ATTRIBUTE name="Progress" value="ProgressDlg"/>
- <ATTRIBUTE name="End" value="ExitDialog"/>
- </COMPONENT>
-</DOCUMENT>
diff --git a/win/WinPort.c b/win/WinPort.c
deleted file mode 100644
index 8e6b8d8..0000000
--- a/win/WinPort.c
+++ /dev/null
@@ -1,1042 +0,0 @@
-/*
- * WinPort.c -- Compatibility layer for Windows 2k
- *
- * Authors : Patrick Lecoanet.
- * Creation date :
- *
- * $Id$
- */
-
-/*
- * Copyright (c) 2003 - CENA, Patrick Lecoanet --
- *
- * This code is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This code is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this code; if not, write to the Free
- * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- */
-
-#ifdef _WIN32
-
-#include "Types.h"
-
-#include <tkInt.h>
-#include <tkWinInt.h>
-#ifdef PTK
-#include <tkIntPlatDecls.m>
-#endif
-
-static const char rcsid[] = "$Id";
-static const char compile_id[]="$Compile$";
-
-#ifndef MIN
-#define MIN(a, b) ((a) <= (b) ? (a) : (b))
-#endif
-#ifndef MAX
-#define MAX(a, b) ((a) >= (b) ? (a) : (b))
-#endif
-
-
-/*
- *----------------------------------------------------------------------
- *
- * ZnPointInRegion --
- *
- * Test whether the specified point is inside a region.
- *
- * Results:
- * Returns the boolean result of the test.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-int
-ZnPointInRegion(TkRegion reg,
- int x,
- int y)
-{
- return PtInRegion((HRGN) reg, x, y);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * ZnUnionRegion --
- *
- * Compute the union of two regions.
- *
- * Results:
- * Returns the result in the dr_return region.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-void
-ZnUnionRegion(TkRegion sra,
- TkRegion srb,
- TkRegion dr_return)
-{
- CombineRgn((HRGN) dr_return, (HRGN) sra, (HRGN) srb, RGN_OR);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * ZnOffsetRegion --
- *
- * Offset a region by the specified pixel offsets.
- *
- * Results:
- * Returns the result in the dr_return region.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-void
-ZnOffsetRegion(TkRegion reg,
- int dx,
- int dy)
-{
- OffsetRgn((HRGN) reg, dx, dy);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * ZnPolygonRegion --
- *
- * Compute a region from a polygon.
- *
- * Results:
- * Returns the result in the dr_return region.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-TkRegion
-ZnPolygonRegion(XPoint *points,
- int n,
- int fill_rule)
-{
- POINT *pts;
- HRGN reg;
- int i;
-
- pts = (POINT *) ckalloc(n*sizeof(POINT));
- for (i = 0; i < n; i++, points++) {
- pts[i].x = points->x;
- pts[i].y = points->y;
- }
-
- reg = CreatePolygonRgn(pts, n,
- fill_rule==EvenOddRule?ALTERNATE:WINDING);
- if (!reg) {
- fprintf(stderr, "Polygon region failed: %ld, n: %d\n", GetLastError(), n);
- }
- ckfree((char *) pts);
- return (TkRegion) reg;
-}
-
-#define PI 3.14159265358979
-#define XAngleToRadians(a) ((double)(a) / 64 * PI / 180);
-
-/*
- * Translation table between X gc functions and Win32 raster op modes.
- */
-
-int tkpWinRopModes[] = {
- R2_BLACK, /* GXclear */
- R2_MASKPEN, /* GXand */
- R2_MASKPENNOT, /* GXandReverse */
- R2_COPYPEN, /* GXcopy */
- R2_MASKNOTPEN, /* GXandInverted */
- R2_NOT, /* GXnoop */
- R2_XORPEN, /* GXxor */
- R2_MERGEPEN, /* GXor */
- R2_NOTMERGEPEN, /* GXnor */
- R2_NOTXORPEN, /* GXequiv */
- R2_NOT, /* GXinvert */
- R2_MERGEPENNOT, /* GXorReverse */
- R2_NOTCOPYPEN, /* GXcopyInverted */
- R2_MERGENOTPEN, /* GXorInverted */
- R2_NOTMASKPEN, /* GXnand */
- R2_WHITE /* GXset */
-};
-
-/*
- * The following two raster ops are used to copy the foreground and background
- * bits of a source pattern as defined by a stipple used as the pattern.
- */
-
-#define COPYFG 0x00CA0749 /* dest = (pat & src) | (!pat & dst) */
-#define COPYBG 0x00AC0744 /* dest = (!pat & src) | (pat & dst) */
-
-/*
- * The followng typedef is used to pass Windows GDI drawing functions.
- */
-
-typedef BOOL (CALLBACK *WinDrawFunc) _ANSI_ARGS_((HDC dc,
- CONST POINT* points, int npoints));
-
-typedef struct ThreadSpecificData {
- POINT *winPoints; /* Array of points that is reused. */
- int nWinPoints; /* Current size of point array. */
-} ThreadSpecificData;
-static Tcl_ThreadDataKey dataKey;
-
-/*
- *----------------------------------------------------------------------
- *
- * SetUpGraphicsPort --
- *
- * Set up the graphics port from the given GC.
- *
- * Results:
- * None.
- *
- * Side effects:
- * The current port is adjusted.
- *
- *----------------------------------------------------------------------
- */
-
-static HPEN
-SetUpGraphicsPort(gc)
- GC gc;
-{
- DWORD style;
-
- if (gc->line_style == LineOnOffDash) {
- unsigned char *p = (unsigned char *) &(gc->dashes);
- /* pointer to the dash-list */
-
- /*
- * Below is a simple translation of serveral dash patterns
- * to valid windows pen types. Far from complete,
- * but I don't know how to do it better.
- * Any ideas: <mailto:j.nijtmans@chello.nl>
- */
-
- if (p[1] && p[2]) {
- if (!p[3] || p[4]) {
- style = PS_DASHDOTDOT; /* -.. */
- } else {
- style = PS_DASHDOT; /* -. */
- }
- } else {
- if (p[0] > (4 * gc->line_width)) {
- style = PS_DASH; /* - */
- } else {
- style = PS_DOT; /* . */
- }
- }
- } else {
- style = PS_SOLID;
- }
- if (gc->line_width < 2) {
- return CreatePen(style, gc->line_width, gc->foreground);
- } else {
- LOGBRUSH lb;
-
- lb.lbStyle = BS_SOLID;
- lb.lbColor = gc->foreground;
- lb.lbHatch = 0;
-
- style |= PS_GEOMETRIC;
- switch (gc->cap_style) {
- case CapNotLast:
- case CapButt:
- style |= PS_ENDCAP_FLAT;
- break;
- case CapRound:
- style |= PS_ENDCAP_ROUND;
- break;
- default:
- style |= PS_ENDCAP_SQUARE;
- break;
- }
- switch (gc->join_style) {
- case JoinMiter:
- style |= PS_JOIN_MITER;
- break;
- case JoinRound:
- style |= PS_JOIN_ROUND;
- break;
- default:
- style |= PS_JOIN_BEVEL;
- break;
- }
- return ExtCreatePen(style, gc->line_width, &lb, 0, NULL);
- }
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * ConvertPoints --
- *
- * Convert an array of X points to an array of Win32 points.
- *
- * Results:
- * Returns the converted array of POINTs.
- *
- * Side effects:
- * Allocates a block of memory in thread local storage that
- * should not be freed.
- *
- *----------------------------------------------------------------------
- */
-
-static POINT *
-ConvertPoints(points, npoints, mode, bbox)
- XPoint *points;
- int npoints;
- int mode; /* CoordModeOrigin or CoordModePrevious. */
- RECT *bbox; /* Bounding box of points. */
-{
- ThreadSpecificData *tsdPtr = (ThreadSpecificData *)
- Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
- int i;
-
- /*
- * To avoid paying the cost of a malloc on every drawing routine,
- * we reuse the last array if it is large enough.
- */
-
- if (npoints > tsdPtr->nWinPoints) {
- if (tsdPtr->winPoints != NULL) {
- ckfree((char *) tsdPtr->winPoints);
- }
- tsdPtr->winPoints = (POINT *) ckalloc(sizeof(POINT) * npoints);
- if (tsdPtr->winPoints == NULL) {
- tsdPtr->nWinPoints = -1;
- return NULL;
- }
- tsdPtr->nWinPoints = npoints;
- }
-
- bbox->left = bbox->right = points[0].x;
- bbox->top = bbox->bottom = points[0].y;
-
- if (mode == CoordModeOrigin) {
- for (i = 0; i < npoints; i++) {
- tsdPtr->winPoints[i].x = points[i].x;
- tsdPtr->winPoints[i].y = points[i].y;
- bbox->left = MIN(bbox->left, tsdPtr->winPoints[i].x);
- bbox->right = MAX(bbox->right, tsdPtr->winPoints[i].x);
- bbox->top = MIN(bbox->top, tsdPtr->winPoints[i].y);
- bbox->bottom = MAX(bbox->bottom, tsdPtr->winPoints[i].y);
- }
- } else {
- tsdPtr->winPoints[0].x = points[0].x;
- tsdPtr->winPoints[0].y = points[0].y;
- for (i = 1; i < npoints; i++) {
- tsdPtr->winPoints[i].x = tsdPtr->winPoints[i-1].x + points[i].x;
- tsdPtr->winPoints[i].y = tsdPtr->winPoints[i-1].y + points[i].y;
- bbox->left = MIN(bbox->left, tsdPtr->winPoints[i].x);
- bbox->right = MAX(bbox->right, tsdPtr->winPoints[i].x);
- bbox->top = MIN(bbox->top, tsdPtr->winPoints[i].y);
- bbox->bottom = MAX(bbox->bottom, tsdPtr->winPoints[i].y);
- }
- }
- return tsdPtr->winPoints;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XFillRectangles --
- *
- * Fill multiple rectangular areas in the given drawable.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws onto the specified drawable.
- *
- *----------------------------------------------------------------------
- */
-void
-XFillRectangles(display, d, gc, rectangles, nrectangles)
- Display* display;
- Drawable d;
- GC gc;
- XRectangle* rectangles;
- int nrectangles;
-{
- HDC dc;
- int i;
- RECT rect;
- TkWinDCState state;
- HBRUSH brush;
- TkpClipMask *clipPtr = (TkpClipMask*)gc->clip_mask;
-
- if (d == None) {
- return;
- }
-
- dc = TkWinGetDrawableDC(display, d, &state);
- SetROP2(dc, tkpWinRopModes[gc->function]);
- brush = CreateSolidBrush(gc->foreground);
-
- if (clipPtr && clipPtr->type == TKP_CLIP_REGION) {
- SelectClipRgn(dc, (HRGN) clipPtr->value.region);
- OffsetClipRgn(dc, gc->clip_x_origin, gc->clip_y_origin);
- }
- if ((gc->fill_style == FillStippled
- || gc->fill_style == FillOpaqueStippled)
- && gc->stipple != None) {
- TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
- HBRUSH oldBrush, stipple;
- HBITMAP oldBitmap, bitmap;
- HDC dcMem;
- HBRUSH bgBrush = CreateSolidBrush(gc->background);
-
- if (twdPtr->type != TWD_BITMAP) {
- Tcl_Panic("unexpected drawable type in stipple");
- }
-
- /*
- * Select stipple pattern into destination dc.
- */
-
- stipple = CreatePatternBrush(twdPtr->bitmap.handle);
- SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
- oldBrush = SelectObject(dc, stipple);
- dcMem = CreateCompatibleDC(dc);
-
- /*
- * For each rectangle, create a drawing surface which is the size of
- * the rectangle and fill it with the background color. Then merge the
- * result with the stipple pattern.
- */
- for (i = 0; i < nrectangles; i++) {
- bitmap = CreateCompatibleBitmap(dc, rectangles[i].width,
- rectangles[i].height);
- oldBitmap = SelectObject(dcMem, bitmap);
- rect.left = 0;
- rect.top = 0;
- rect.right = rectangles[i].width;
- rect.bottom = rectangles[i].height;
- FillRect(dcMem, &rect, brush);
- BitBlt(dc, rectangles[i].x, rectangles[i].y, rectangles[i].width,
- rectangles[i].height, dcMem, 0, 0, COPYFG);
- if (gc->fill_style == FillOpaqueStippled) {
- FillRect(dcMem, &rect, bgBrush);
- BitBlt(dc, rectangles[i].x, rectangles[i].y,
- rectangles[i].width, rectangles[i].height, dcMem,
- 0, 0, COPYBG);
- }
- SelectObject(dcMem, oldBitmap);
- DeleteObject(bitmap);
- }
-
- DeleteDC(dcMem);
- SelectObject(dc, oldBrush);
- DeleteObject(stipple);
- DeleteObject(bgBrush);
- } else {
- for (i = 0; i < nrectangles; i++) {
- TkWinFillRect(dc, rectangles[i].x, rectangles[i].y,
- rectangles[i].width, rectangles[i].height, gc->foreground);
- }
- }
- DeleteObject(brush);
- TkWinReleaseDrawableDC(d, dc, &state);
-}
-
-
-/*
- *----------------------------------------------------------------------
- *
- * XFillRectangle --
- *
- * Fills a rectangular area in the given drawable. This procedure
- * is implemented as a call to XFillRectangles.
- *
- * Results:
- * None
- *
- * Side effects:
- * Fills the specified rectangle.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XFillRectangle(display, d, gc, x, y, width, height)
- Display* display;
- Drawable d;
- GC gc;
- int x;
- int y;
- unsigned int width;
- unsigned int height;
-{
- XRectangle rectangle;
- rectangle.x = x;
- rectangle.y = y;
- rectangle.width = width;
- rectangle.height = height;
- XFillRectangles(display, d, gc, &rectangle, 1);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * RenderObject --
- *
- * This function draws a shape using a list of points, a
- * stipple pattern, and the specified drawing function.
- *
- * Results:
- * None.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-static void
-RenderObject(dc, gc, points, npoints, mode, pen, func)
- HDC dc;
- GC gc;
- XPoint* points;
- int npoints;
- int mode;
- HPEN pen;
- WinDrawFunc func;
-{
- RECT rect;
- HPEN oldPen;
- HBRUSH oldBrush;
- POINT *winPoints = ConvertPoints(points, npoints, mode, &rect);
- TkpClipMask *clipPtr = (TkpClipMask*)gc->clip_mask;
-
- if (clipPtr && clipPtr->type == TKP_CLIP_REGION) {
- SelectClipRgn(dc, (HRGN) clipPtr->value.region);
- OffsetClipRgn(dc, gc->clip_x_origin, gc->clip_y_origin);
- }
- if ((gc->fill_style == FillStippled
- || gc->fill_style == FillOpaqueStippled)
- && gc->stipple != None) {
-
- TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
- HDC dcMem;
- LONG width, height;
- HBITMAP oldBitmap;
- int i;
- HBRUSH oldMemBrush;
-
- if (twdPtr->type != TWD_BITMAP) {
- Tcl_Panic("unexpected drawable type in stipple");
- }
-
- /*
- * Grow the bounding box enough to account for line width.
- */
-
- rect.left -= gc->line_width;
- rect.top -= gc->line_width;
- rect.right += gc->line_width;
- rect.bottom += gc->line_width;
-
- width = rect.right - rect.left;
- height = rect.bottom - rect.top;
-
- /*
- * Select stipple pattern into destination dc.
- */
-
- SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
- oldBrush = SelectObject(dc, CreatePatternBrush(twdPtr->bitmap.handle));
-
- /*
- * Create temporary drawing surface containing a copy of the
- * destination equal in size to the bounding box of the object.
- */
-
- dcMem = CreateCompatibleDC(dc);
- oldBitmap = SelectObject(dcMem, CreateCompatibleBitmap(dc, width,
- height));
- oldPen = SelectObject(dcMem, pen);
- BitBlt(dcMem, 0, 0, width, height, dc, rect.left, rect.top, SRCCOPY);
-
- /*
- * Translate the object for rendering in the temporary drawing
- * surface.
- */
-
- for (i = 0; i < npoints; i++) {
- winPoints[i].x -= rect.left;
- winPoints[i].y -= rect.top;
- }
-
- /*
- * Draw the object in the foreground color and copy it to the
- * destination wherever the pattern is set.
- */
-
- SetPolyFillMode(dcMem, (gc->fill_rule == EvenOddRule) ? ALTERNATE
- : WINDING);
- oldMemBrush = SelectObject(dcMem, CreateSolidBrush(gc->foreground));
- (*func)(dcMem, winPoints, npoints);
- BitBlt(dc, rect.left, rect.top, width, height, dcMem, 0, 0, COPYFG);
-
- /*
- * If we are rendering an opaque stipple, then draw the polygon in the
- * background color and copy it to the destination wherever the pattern
- * is clear.
- */
-
- if (gc->fill_style == FillOpaqueStippled) {
- DeleteObject(SelectObject(dcMem,
- CreateSolidBrush(gc->background)));
- (*func)(dcMem, winPoints, npoints);
- BitBlt(dc, rect.left, rect.top, width, height, dcMem, 0, 0,
- COPYBG);
- }
-
- SelectObject(dcMem, oldPen);
- DeleteObject(SelectObject(dcMem, oldMemBrush));
- DeleteObject(SelectObject(dcMem, oldBitmap));
- DeleteDC(dcMem);
- } else {
- oldPen = SelectObject(dc, pen);
- oldBrush = SelectObject(dc, CreateSolidBrush(gc->foreground));
- SetROP2(dc, tkpWinRopModes[gc->function]);
-
- SetPolyFillMode(dc, (gc->fill_rule == EvenOddRule) ? ALTERNATE
- : WINDING);
-
- (*func)(dc, winPoints, npoints);
-
- SelectObject(dc, oldPen);
- }
- DeleteObject(SelectObject(dc, oldBrush));
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XDrawLines --
- *
- * Draw connected lines.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Renders a series of connected lines.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XDrawLines(display, d, gc, points, npoints, mode)
- Display* display;
- Drawable d;
- GC gc;
- XPoint* points;
- int npoints;
- int mode;
-{
- HPEN pen;
- TkWinDCState state;
- HDC dc;
- TkpClipMask *clipPtr = (TkpClipMask*)gc->clip_mask;
-
- if (d == None) {
- return;
- }
-
- dc = TkWinGetDrawableDC(display, d, &state);
-
- if (clipPtr && clipPtr->type == TKP_CLIP_REGION) {
- SelectClipRgn(dc, (HRGN) clipPtr->value.region);
- OffsetClipRgn(dc, gc->clip_x_origin, gc->clip_y_origin);
- }
- pen = SetUpGraphicsPort(gc);
- SetBkMode(dc, TRANSPARENT);
- RenderObject(dc, gc, points, npoints, mode, pen, Polyline);
- DeleteObject(pen);
-
- TkWinReleaseDrawableDC(d, dc, &state);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XDrawLine --
- *
- * Draw a single line between two points in a given drawable.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws a single line segment.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XDrawLine(display, d, gc, x1, y1, x2, y2)
- Display* display;
- Drawable d;
- GC gc;
- int x1, y1, x2, y2; /* Coordinates of line segment. */
-{
- XPoint points[2];
-
- points[0].x = x1;
- points[0].y = y1;
- points[1].x = x2;
- points[1].y = y2;
- XDrawLines(display, d, gc, points, 2, CoordModeOrigin);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XFillPolygon --
- *
- * Draws a filled polygon.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws a filled polygon on the specified drawable.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XFillPolygon(display, d, gc, points, npoints, shape, mode)
- Display* display;
- Drawable d;
- GC gc;
- XPoint* points;
- int npoints;
- int shape;
- int mode;
-{
- HPEN pen;
- TkWinDCState state;
- HDC dc;
-
- if (d == None) {
- return;
- }
-
- dc = TkWinGetDrawableDC(display, d, &state);
-
- pen = GetStockObject(NULL_PEN);
- RenderObject(dc, gc, points, npoints, mode, pen, Polygon);
-
- TkWinReleaseDrawableDC(d, dc, &state);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XDrawRectangle --
- *
- * Draws a rectangle.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws a rectangle on the specified drawable.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XDrawRectangle(display, d, gc, x, y, width, height)
- Display* display;
- Drawable d;
- GC gc;
- int x;
- int y;
- unsigned int width;
- unsigned int height;
-{
- HPEN pen, oldPen;
- TkWinDCState state;
- HBRUSH oldBrush;
- HDC dc;
- TkpClipMask *clipPtr = (TkpClipMask*)gc->clip_mask;
-
- if (d == None) {
- return;
- }
-
- dc = TkWinGetDrawableDC(display, d, &state);
-
- if (clipPtr && clipPtr->type == TKP_CLIP_REGION) {
- SelectClipRgn(dc, (HRGN) clipPtr->value.region);
- OffsetClipRgn(dc, gc->clip_x_origin, gc->clip_y_origin);
- }
- pen = SetUpGraphicsPort(gc);
- SetBkMode(dc, TRANSPARENT);
- oldPen = SelectObject(dc, pen);
- oldBrush = SelectObject(dc, GetStockObject(NULL_BRUSH));
- SetROP2(dc, tkpWinRopModes[gc->function]);
-
- Rectangle(dc, x, y, x+width+1, y+height+1);
-
- DeleteObject(SelectObject(dc, oldPen));
- SelectObject(dc, oldBrush);
- TkWinReleaseDrawableDC(d, dc, &state);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * DrawOrFillArc --
- *
- * This procedure handles the rendering of drawn or filled
- * arcs and chords.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Renders the requested arc.
- *
- *----------------------------------------------------------------------
- */
-
-static void
-DrawOrFillArc(display, d, gc, x, y, width, height, start, extent, fill)
- Display *display;
- Drawable d;
- GC gc;
- int x, y; /* left top */
- unsigned int width, height;
- int start; /* start: three-o'clock (deg*64) */
- int extent; /* extent: relative (deg*64) */
- int fill; /* ==0 draw, !=0 fill */
-{
- HDC dc;
- HBRUSH brush, oldBrush;
- HPEN pen, oldPen;
- TkWinDCState state;
- int clockwise = (extent < 0); /* non-zero if clockwise */
- int xstart, ystart, xend, yend;
- double radian_start, radian_end, xr, yr;
- TkpClipMask *clipPtr = (TkpClipMask*)gc->clip_mask;
-
- if (d == None) {
- return;
- }
-
- dc = TkWinGetDrawableDC(display, d, &state);
-
- if (clipPtr && clipPtr->type == TKP_CLIP_REGION) {
- SelectClipRgn(dc, (HRGN) clipPtr->value.region);
- OffsetClipRgn(dc, gc->clip_x_origin, gc->clip_y_origin);
- }
- SetROP2(dc, tkpWinRopModes[gc->function]);
-
- /*
- * Compute the absolute starting and ending angles in normalized radians.
- * Swap the start and end if drawing clockwise.
- */
-
- start = start % (64*360);
- if (start < 0) {
- start += (64*360);
- }
- extent = (start+extent) % (64*360);
- if (extent < 0) {
- extent += (64*360);
- }
- if (clockwise) {
- int tmp = start;
- start = extent;
- extent = tmp;
- }
- radian_start = XAngleToRadians(start);
- radian_end = XAngleToRadians(extent);
-
- /*
- * Now compute points on the radial lines that define the starting and
- * ending angles. Be sure to take into account that the y-coordinate
- * system is inverted.
- */
-
- if (gc->fill_style == FillStippled && gc->stipple != None) {
- xr = width / 2.0;
- yr = height / 2.0;
- }
- else {
- xr = x + width / 2.0;
- yr = y + height / 2.0;
- }
- xstart = (int)((xr + cos(radian_start)*width/2.0) + 0.5);
- ystart = (int)((yr + sin(-radian_start)*height/2.0) + 0.5);
- xend = (int)((xr + cos(radian_end)*width/2.0) + 0.5);
- yend = (int)((yr + sin(-radian_end)*height/2.0) + 0.5);
-
- /*
- * Now draw a filled or open figure. Note that we have to
- * increase the size of the bounding box by one to account for the
- * difference in pixel definitions between X and Windows.
- */
-
- pen = SetUpGraphicsPort(gc);
- oldPen = SelectObject(dc, pen);
- if (!fill) {
- /*
- * Note that this call will leave a gap of one pixel at the
- * end of the arc for thin arcs. We can't use ArcTo because
- * it's only supported under Windows NT.
- */
-
- SetBkMode(dc, TRANSPARENT);
- Arc(dc, x, y, x+width+1, y+height+1, xstart, ystart, xend, yend);
- } else {
- brush = CreateSolidBrush(gc->foreground);
-
- if (gc->fill_style == FillStippled && gc->stipple != None) {
- TkWinDrawable *twdPtr = (TkWinDrawable *)gc->stipple;
- HBITMAP oldBitmap;
- HDC dcMem;
- HBRUSH oldMemBrush;
-
- if (twdPtr->type != TWD_BITMAP) {
- Tcl_Panic("unexpected drawable type in stipple");
- }
-
- /*
- * Select stipple pattern into destination dc.
- */
- SetBrushOrgEx(dc, gc->ts_x_origin, gc->ts_y_origin, NULL);
- oldBrush = SelectObject(dc,
- CreatePatternBrush(twdPtr->bitmap.handle));
-
- /*
- * Create temporary drawing surface containing a copy of the
- * destination equal in size to the bounding box of the object.
- */
- dcMem = CreateCompatibleDC(dc);
- oldBitmap = SelectObject(dcMem,
- CreateCompatibleBitmap(dc, width, height));
- BitBlt(dcMem, 0, 0, width, height, dc, x, y, SRCCOPY);
- oldMemBrush = SelectObject(dcMem, brush);
- if (gc->arc_mode == ArcChord) {
- Chord(dcMem, 0, 0, width+1, height+1, xstart, ystart, xend, yend);
- } else if ( gc->arc_mode == ArcPieSlice ) {
- Pie(dcMem, 0, 0, width+1, height+1, xstart, ystart, xend, yend);
- }
-
- BitBlt(dc, x, y, width, height, dcMem, 0, 0, COPYFG);
- DeleteObject(SelectObject(dcMem, oldBitmap));
- DeleteObject(SelectObject(dcMem, oldMemBrush));
- DeleteObject(SelectObject(dc, oldBrush));
- DeleteDC(dcMem);
- } else {
- oldBrush = SelectObject(dc, brush);
- if (gc->arc_mode == ArcChord) {
- Chord(dc, x, y, x+width+1, y+height+1, xstart, ystart, xend, yend);
- } else if ( gc->arc_mode == ArcPieSlice ) {
- Pie(dc, x, y, x+width+1, y+height+1, xstart, ystart, xend, yend);
- }
- DeleteObject(SelectObject(dc, oldBrush));
- }
- }
- DeleteObject(SelectObject(dc, oldPen));
- TkWinReleaseDrawableDC(d, dc, &state);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XDrawArc --
- *
- * Draw an arc.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws an arc on the specified drawable.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XDrawArc(display, d, gc, x, y, width, height, start, extent)
- Display* display;
- Drawable d;
- GC gc;
- int x;
- int y;
- unsigned int width;
- unsigned int height;
- int start;
- int extent;
-{
- display->request++;
-
- DrawOrFillArc(display, d, gc, x, y, width, height, start, extent, 0);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * XFillArc --
- *
- * Draw a filled arc.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Draws a filled arc on the specified drawable.
- *
- *----------------------------------------------------------------------
- */
-
-void
-XFillArc(display, d, gc, x, y, width, height, start, extent)
- Display* display;
- Drawable d;
- GC gc;
- int x;
- int y;
- unsigned int width;
- unsigned int height;
- int start;
- int extent;
-{
- display->request++;
-
- DrawOrFillArc(display, d, gc, x, y, width, height, start, extent, 1);
-}
-
-#endif /* _WIN32 */
diff --git a/win/makefile.vc.in b/win/makefile.vc.in
deleted file mode 100644
index 62fccd4..0000000
--- a/win/makefile.vc.in
+++ /dev/null
@@ -1,130 +0,0 @@
-# Generated automatically from Makefile.in by configure.
-# Copyright (c) 1993 - 2002 CENA, Patrick Lecoanet --
-#
-# This code is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This code is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public
-# License along with this code; if not, write to the Free
-# Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-# $Revision$
-#
-srcdir = ..
-TCLTK_FULL_VER = 8.4.6
-TCLTK_LIB_VER = 84
-TKZINC_MAJOR = @MAJOR_VERSION@
-TKZINC_MINOR = @MINOR_VERSION@
-TKZINC_PATCHLVL = @PATCHLEVEL@
-
-# Visual Studio 6 default
-TOOLS32 = C:\Progra~1\Microsoft Visual Studio\VC98
-CC = "$(TOOLS32)\bin\cl.exe"
-LD = "$(TOOLS32)\bin\link.exe" -link50compat
-libpath32 = /LIBPATH:"$(TOOLS32)\lib"
-include32 = /I"$(TOOLS32)\include"
-CP = copy
-RM = del
-
-prefix = c:\Tcl
-exec_prefix = $(prefix)
-
-bindir = $(exec_prefix)\bin
-libdir = $(exec_prefix)\lib
-incdir = $(prefix)\include
-mandir = $(prefix)\man\man3
-
-windir = $(srcdir)\win
-genericdir = $(srcdir)\generic
-tessdir = $(srcdir)\libtess
-tmpdir = $(srcdir)
-
-tcl_inc_dir = $(srcdir)\..\tcl$(TCLTK_FULL_VER)
-tk_inc_dir = $(srcdir)\..\tk$(TCLTK_FULL_VER)
-INCLUDES = /I$(srcdir)/generic /I$(srcdir)/libtess $(include32)
-
-# Assume that WISH is already INSTALLED
-TCLSH = $(bindir)\tclsh$(TCLTK_LIB_VER)
-WISH = $(bindir)\wish$(TCLTK_LIB_VER)
-WIN_LIBS = user32.lib gdi32.lib ws2_32.lib
-GL_LIBS = opengl32.lib
-TKLIBS = $(libdir)\tcl$(TCLTK_LIB_VER).lib \
- $(libdir)\tk$(TCLTK_LIB_VER).lib \
- $(GL_LIBS) $(WIN_LIBS)
-
-VERSION = \"$(TKZINC_MAJOR).$(TKZINC_MINOR).$(TKZINC_PATCHLVL)\"
-
-#
-# Recognized compilation time flags are :
-#
-# PROFILE ask for profile support
-# OM include code for internal overlap manager
-# GL include code that need GL support.
-# GL_PRINT_CONFIG display the detected hardware capabilities
-# GL_DAMAGE redraw only modified areas
-# SHAPE include code for reshaping windows.
-#
-DFLAGS= /DOM /DGL /DGL_DAMAGE /DGL_PRINT_CONFIG
-#DFLAGS= /DOM
-#DFLAGS = /DTCL_MEM_DEBUG
-
-# Max speed
-#CDEBUG = -O2 -Gs
-# Debug
-CDEBUG = -Z7 -Od
-CFLAGS = /c /W3 /nologo /YX $(CDEBUG) /D__STDC__ /DVERSION=$(VERSION) /DDLL_BUILD /DBUILD_Tkzinc $(DFLAGS)
-TKCPPFLAGS = /Fp$(tmpdir)\ $(INCLUDES) /I"$(incdir)" /I$(tk_inc_dir)\generic /I$(tk_inc_dir)\win /I$(tcl_inc_dir)\generic /I$(tcl_inc_dir)\win /I$(tk_inc_dir)\xlib /D__STDC__
-
-LFLAGS = /nologo /machine:IX86 /warn:3 $(libpath32) /FORCE:MULTIPLE /NODEFAULTLIB:uuid.lib /NODEFAULTLIB:OLDNAMES.lib
-
-DLLENTRY = @12
-DLLLFLAGS = $(LFLAGS) /entry:_DllMainCRTStartup$(DLLENTRY) /dll
-
-TKDLLOBJS = $(tmpdir)\Track.obj $(tmpdir)\Tabular.obj \
- $(tmpdir)\Reticle.obj $(tmpdir)\Map.obj \
- $(tmpdir)\Rectangle.obj $(tmpdir)\Arc.obj \
- $(tmpdir)\Curve.obj $(tmpdir)\Item.obj \
-# $(tmpdir)\PostScript.obj $(tmpdir)\perfos.obj \
- $(tmpdir)\MapInfo.obj $(tmpdir)\Attrs.obj \
- $(tmpdir)\Draw.obj $(tmpdir)\Geo.obj \
- $(tmpdir)\List.obj $(tmpdir)\Transfo.obj \
- $(tmpdir)\Group.obj $(tmpdir)\Icon.obj \
- $(tmpdir)\Text.obj $(tmpdir)\Color.obj \
- $(tmpdir)\Field.obj $(tmpdir)\Triangles.obj \
- $(tmpdir)\Window.obj $(tmpdir)\tkZinc.obj \
- $(tmpdir)\OverlapMan.obj $(tmpdir)\WinPort.obj \
- $(tmpdir)\Image.obj $(tmpdir)\dict.obj $(tmpdir)\geom.obj \
- $(tmpdir)\memalloc.obj $(tmpdir)\mesh.obj $(tmpdir)\normal.obj \
- $(tmpdir)\priorityq.obj $(tmpdir)\render.obj \
- $(tmpdir)\sweep.obj $(tmpdir)\tess.obj $(tmpdir)\tessmono.obj
-
-DLL=Tkzinc$(TKZINC_MAJOR)$(TKZINC_MINOR)$(TKZINC_PATCHLVL).dll
-
-$(srcdir)/$(DLL): $(TKDLLOBJS)
- $(LD) $(DLLLFLAGS) $(TKLIBS) /OUT:$@ $(TKDLLOBJS)
- @"$(WISH)" <<
- package require Tk
- pkg_mkIndex -load Tk $(srcdir) $(DLL)
- exit
-<<
-
-{$(windir)}.c{$(tmpdir)}.obj:
- $(CC) $(TKCPPFLAGS) $(CFLAGS) -Fo$(tmpdir)\ $<
-
-{$(genericdir)}.c{$(tmpdir)}.obj:
- $(CC) $(TKCPPFLAGS) $(CFLAGS) -Fo$(tmpdir)\ $<
-
-{$(tessdir)}.c{$(tmpdir)}.obj:
- $(CC) $(TKCPPFLAGS) $(CFLAGS) -Fo$(tmpdir)\ $<
-
-mostlyclean:
- $(RM) *.bak *~ $(tmpdir)\*.obj
-clean:
- $(RM) $(tmpdir)\*.obj $(tmpdir)\*.dll $(tmpdir)\*.lib $(tmpdir)\*.exp $(tmpdir)\pkgIndex.tcl $(tmpdir)\*.pch
diff --git a/win/package.tcl b/win/package.tcl
deleted file mode 100644
index 2351f0b..0000000
--- a/win/package.tcl
+++ /dev/null
@@ -1,76 +0,0 @@
-#
-# This script is intended to be run in the win sub-directory
-# with: tclsh84 package.tcl
-#
-set packager {C:\Program Files\Caphyon\Advanced Installer\AdvancedInstaller.exe}
-
-#
-# Make the Tcl library
-#
-catch {exec nmake -f makefile.vc} result
-puts $result
-
-#
-# Make the Perl library, use for this the
-# buildperl script.
-#
-set wd [pwd]
-cd ..
-catch {exec tclsh buildperl.tcl} result
-puts $result
-cd $wd
-
-#
-# Build a merged pkgIndex.tcl
-#
-set fout [open pkgIndex.tcl w]
-set fin [open [file join .. pkgIndex.tcl]]
-puts -nonewline $fout [read $fin]
-close $fin
-set fin [open [file join .. library pkgIndex.tcl]]
-foreach line [split [read $fin] \n] {
- if {![regexp {^\s*$|^#} $line]} {
- puts $fout $line
- }
-}
-close $fin
-close $fout
-
-#
-# Build a .bat script for the Perl demos.
-#
-set fout [open zinc-demos.bat w]
-set fin [open [file join .. Perl demos zinc-demos]]
-puts $fout {@rem = '--*-Perl-*--
-@echo off
-if "%OS%" == "Windows_NT" goto WinNT
-perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
-goto endofperl
-:WinNT
-perl -x -S %0 %*
-if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
-if %errorlevel% == 9009 echo You do not have Perl in your PATH.
-if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
-goto endofperl
-@rem ';}
-puts $fout [read $fin]
-puts $fout {__END__
-:endofperl}
-close $fin
-close $fout
-
-#
-# Create a demo script ending in .tcl
-#
-file copy -force [file join .. demos zinc-widget] zinc-widget.tcl
-
-#
-# Wrap up the msi packages
-#
-exec $packager /build Tkzinc.aip
-exec $packager /build Tkzincperl.aip
-
-#
-# Clean up after messing around
-#
-#file delete -force pkgIndex.tcl zinc-widget.tcl zinc-demos.bat
generated by cgit v1.1 at 2024-06-02 00:09:36 +0000