Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
f4418e34
Commit
f4418e34
authored
Oct 25, 2001
by
Diederik van Arkel
Browse files
more cleanup types
make typewin fixed width
parent
be6a9880
Changes
5
Hide whitespace changes
Inline
Side-by-side
Ide/typewin.icl
View file @
f4418e34
...
...
@@ -272,8 +272,8 @@ typewinPane ps
#
(
twi
,
ps
)
=
accPLoc
getTypeWinInfo
ps
#
(
fontNames
,
ps
)
=
accPIO
(
accScreenPicture
getFontNames
)
ps
//
# fixed = map lisFixedWidth fontNames // allow all fonts for types window
//
# fontNames = lfilter fixed fontNames
#
fixed
=
map
lisFixedWidth
fontNames
// allow all fonts for types window
#
fontNames
=
lfilter
fixed
fontNames
#
fontSizes
=
[
7
,
8
,
9
,
10
,
12
,
14
,
18
,
24
]
#
{
typewinfont
={
fName
=
inifn
,
fSize
=
inifs
},
typewinsync
=
sync
}
=
TW_GetInf
twi
...
...
Util/ioutil.dcl
View file @
f4418e34
definition
module
ioutil
import
StdOverloaded
,
StdBool
,
StdList
import
StdPicture
,
StdPSt
,
StdId
,
StdIOCommon
,
StdFile
,
StdFileSelect
import
StdPicture
,
StdPSt
,
StdId
,
StdIOCommon
,
StdFile
//
, StdFileSelect
from
commondef
import
unzip3
,
unzip4
...
...
@@ -20,7 +20,7 @@ noPS :: .(.a -> .b) !(.a,.c) -> (.b,.c)
drawLeft
::
!.
Point2
a
!*
Picture
->
*
Picture
|
toString
a
drawCenter
::
!.
Point2
a
!*
Picture
->
*
Picture
|
toString
a
drawRight
::
!.
Point2
a
!*
Picture
->
*
Picture
|
toString
a
setCheckControlItem
::
!
Id
.
Index
!.
Bool
!*(
IOSt
*
l
)
->
*(
IOSt
*
l
)
setCheckControlItem
::
!
Id
.
Index
!.
Bool
!*(
IOSt
.
l
)
->
*(
IOSt
.
l
)
zip3
::
![.
a
]
[.
b
]
[.
c
]
->
[(.
a
,.
b
,.
c
)]
getPenAttributeFont
::
![.
PenAttribute
]
->
FontDef
;
getPenAttributeColour
::
![.
PenAttribute
]
->
Colour
;
...
...
Util/ioutil.icl
View file @
f4418e34
implementation
module
ioutil
import
StdBool
,
StdList
,
StdFile
import
StdControl
,
StdPSt
,
StdFileSelect
import
StdControl
,
StdPSt
//
,StdFileSelect
import
iostate
altScrollFunction
::
!
Direction
!
Int
->
ScrollFunction
...
...
@@ -104,7 +104,7 @@ drawRight {x,y} info picture
(
width
,
picture
)
=
getPenFontStringWidth
text
picture
=
drawAt
{
x
=
x
-
width
,
y
=
y
}
text
picture
setCheckControlItem
::
!
Id
.
Index
!.
Bool
!*(
IOSt
*
l
)
->
*(
IOSt
*
l
)
setCheckControlItem
::
!
Id
.
Index
!.
Bool
!*(
IOSt
.
l
)
->
*(
IOSt
.
l
)
setCheckControlItem
id
idx
True
io
=
markCheckControlItems
id
[
idx
]
io
setCheckControlItem
id
idx
False
io
=
unmarkCheckControlItems
id
[
idx
]
io
...
...
Win/Platform.dcl
View file @
f4418e34
...
...
@@ -4,10 +4,10 @@ import StdPSt, StdString
PlatformDependant
win
mac
:==
win
initPlatformCommandLine
::
!*(
PSt
*
l
)
->
(![
String
],!*
PSt
*
l
)
installPlatformEventHandlers
::
!*(
PSt
*
l
)
->
*(
PSt
*
l
)
openPlatformWindowMenu
::
!*(
PSt
*
l
)
->
*(
PSt
*
l
)
initPlatformCommandLine
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
TooltempDir
::
String
EnvsDir
::
String
PrefsDir
::
String
TooltempDir
::
String
EnvsDir
::
String
PrefsDir
::
String
Win/Platform.icl
View file @
f4418e34
...
...
@@ -42,7 +42,7 @@ where
ccall
GetPrivateProfileStringA@24
"PsssIIs:I:I"
}
initPlatformCommandLine
::
!*(
PSt
*
l
)
->
(![
String
],!*
PSt
*
l
)
initPlatformCommandLine
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLine
ps
#
args
=
cl_args
#
args
=
[
arg
\\
arg
<-:
args
]
...
...
@@ -53,11 +53,11 @@ initPlatformCommandLine ps
#
files
=
map
GetLongPathName
files
=
(
files
,
ps
)
installPlatformEventHandlers
::
!*(
PSt
*
l
)
->
*(
PSt
*
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
installPlatformEventHandlers
ps
=
ps
openPlatformWindowMenu
::
!*(
PSt
*
l
)
->
*(
PSt
*
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
ps
=
ps
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment