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
0ce22489
Commit
0ce22489
authored
Oct 24, 2001
by
Diederik van Arkel
Browse files
proper dialogue backgrounds
parent
202b7ac8
Changes
6
Hide whitespace changes
Inline
Side-by-side
Ide/conswin.icl
View file @
0ce22489
...
...
@@ -8,7 +8,7 @@ import EdMouse, EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,
List
,
IsEmptyList
,:!
import
IDE
,
IdeState
import
IDE
,
IdeState
,
IdePlatform
//--
...
...
@@ -315,7 +315,8 @@ conswinPane ps
:+:
Receiver
lsid
lsfun
[]
)
#
watt
=
[
WindowPen
[
PenBack
LightGrey
]
#
(
dback
,
ps
)
=
GetDialogBackgroundColour
ps
#
watt
=
[
WindowPen
[
PenBack
dback
]
,
WindowClose
(
cancelFun
win
wloc
wId
)
,
WindowId
wId
,
WindowOk
okId
...
...
Ide/edoptions.icl
View file @
0ce22489
...
...
@@ -14,7 +14,7 @@ import StdTuple, StdEnum, StdList, StdFunc, StdMisc
import
StdMenu
,
StdWindow
,
StdId
,
StdPSt
,
StdControl
import
StdClipboard
,
StdControlReceiver
import
EdKeyMapping
,
EdState
,
EdClient
,
EdKeyboard
import
IDE
,
IdeState
,
ExtNotice
import
IDE
,
IdeState
,
ExtNotice
,
IdePlatform
import
colorpickcontrol
import
ioutil
,
morecontrols
import
typewin
,
colourclip
...
...
@@ -100,6 +100,7 @@ editColours ps
(
Just
(
0
,
0
))
ps
#
buttonWidth
=
ContentWidth
"Cancel"
#
(
ilook
,
wloc
)
=
idslook
wloc
#
(
dback
,
ps
)
=
GetDialogBackgroundColour
ps
#
wdef
=
Dialog
"Editor Colours"
(
RGBColourPickControl`
rgbid
(
prefs
.
syncols
.
textColour
)
ilook
Nothing
:+:
ButtonControl
"&Copy"
...
...
@@ -167,7 +168,7 @@ editColours ps
:+:
TextControl
"Keywords"
[]
:+:
Receiver
lsid
lsfun
[]
)
[
WindowPen
[
PenBack
LightGrey
]
[
WindowPen
[
PenBack
dback
]
,
WindowClose
(
cancelFun
wloc
wId
)
,
WindowId
wId
,
WindowInit
(
setBoxCol
)
...
...
@@ -345,6 +346,7 @@ defaultColours ps
5
->
prefs
.
syncols
.
backgroundColour
6
->
prefs
.
syncols
.
keywordColour
_
->
abort
"edoptions[defaultColours]: unknown ls"
#
(
dback
,
ps
)
=
GetDialogBackgroundColour
ps
#
wdef
=
Dialog
"Pick a colour"
(
RGBColourPickControl
rgbid
col
Nothing
:+:
PopUpControl
...
...
@@ -358,7 +360,7 @@ defaultColours ps
]
wloc
[]
:+:
ButtonControl
"Set"
[
ControlFunction
(
cset
rgbid
)]
)
[
WindowPen
[
PenBack
LightGrey
]
[
WindowPen
[
PenBack
dback
]
,
WindowClose
(
dlogClose
wId
)
,
WindowId
wId
]
...
...
Ide/errwin.icl
View file @
0ce22489
...
...
@@ -28,6 +28,7 @@ from IDE import OpenModule ,Selection,Modulename,Position,ColumnNr,LineNr
from
IdeState
import
General
,
getErrInfo
,
setErrInfo
,
ErrorInfo
,
MenuIds
,
getMenuIds
,
ErrPrefs
from
IdeState
import
SearchMenuIds
,
PLMMessage
,
PLMReply
,
MIn
,
EditMenuLS
,
getInteract
,
writeLog
from
EdClient
import
lineSelection
import
IdePlatform
//from dodebug import trace_n`
trace_n
_
f
:==
f
...
...
@@ -126,6 +127,7 @@ err_open errinfo ps
,
(
flbKeyboard
fifi
)
]
#!
(
win_size
,
ps
)
=
controlSize
elb
True
Nothing
Nothing
Nothing
ps
#
(
dback
,
ps
)
=
GetDialogBackgroundColour
ps
#!
wdef
=
Window
"Errors & Warnings"
(
infobar
errinfo
:+:
elb
)
...
...
@@ -134,7 +136,7 @@ err_open errinfo ps
,
WindowPos
(
LeftTop
,
OffsetVector
errinfo
.
err_offset
)
,
WindowViewSize
win_size
,
WindowInitActive
errinfo
.
infoId
.
fcontrolId
,
WindowPen
[
PenBack
LightGrey
]
,
WindowPen
[
PenBack
dback
]
,
WindowActivate
(
noLS
ew_activate
)
,
WindowDeactivate
(
noLS
ew_deactivate
)
]
...
...
Ide/typewin.icl
View file @
0ce22489
...
...
@@ -8,7 +8,7 @@ import EdMouse, EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,
List
,
IsEmptyList
,:!
import
IDE
,
IdeState
import
IDE
,
IdeState
,
IdePlatform
//--
...
...
@@ -330,7 +330,8 @@ typewinPane ps
:+:
Receiver
lsid
lsfun
[]
)
#
watt
=
[
WindowPen
[
PenBack
LightGrey
]
#
(
dback
,
ps
)
=
GetDialogBackgroundColour
ps
#
watt
=
[
WindowPen
[
PenBack
dback
]
,
WindowClose
(
cancelFun
win
wloc
wId
)
,
WindowId
wId
,
WindowOk
okId
...
...
Win/IdePlatform.dcl
View file @
0ce22489
...
...
@@ -6,8 +6,10 @@ from IdeState import General
PlatformProcessAttributes
::
[
ProcessAttribute
*(
PSt
General
)]
RunProgram
::
!.
String
!*(
PSt
General
)
->
*
PSt
General
SetWindowIcon
::
!
Id
!
Int
!(
PSt
.
l
)
->
PSt
.
l
SetProcessIcon
::
!
Int
!(
PSt
.
l
)
->
PSt
.
l
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,
!
PSt
.
l
)
ProjectIcon
:==
32513
ImpmodIcon
:==
32516
...
...
Win/IdePlatform.icl
View file @
0ce22489
...
...
@@ -226,3 +226,58 @@ ImpmodIcon :== 32516
DefmodIcon
:==
32515
CleanIcon
:==
32512
AbcmodIcon
:==
32514
//===
COLOR_SCROLLBAR
:==
0
COLOR_BACKGROUND
:==
1
COLOR_ACTIVECAPTION
:==
2
COLOR_INACTIVECAPTION
:==
3
COLOR_MENU
:==
4
COLOR_WINDOW
:==
5
COLOR_WINDOWFRAME
:==
6
COLOR_MENUTEXT
:==
7
COLOR_WINDOWTEXT
:==
8
COLOR_CAPTIONTEXT
:==
9
COLOR_ACTIVEBORDER
:==
10
COLOR_INACTIVEBORDER
:==
11
COLOR_APPWORKSPACE
:==
12
COLOR_HIGHLIGHT
:==
13
COLOR_HIGHLIGHTTEXT
:==
14
COLOR_BTNFACE
:==
15
COLOR_BTNSHADOW
:==
16
COLOR_GRAYTEXT
:==
17
COLOR_BTNTEXT
:==
18
COLOR_INACTIVECAPTIONTEXT
:==
19
COLOR_BTNHIGHLIGHT
:==
20
COLOR_3DDKSHADOW
:==
21
COLOR_3DLIGHT
:==
22
COLOR_INFOTEXT
:==
23
COLOR_INFOBK
:==
24
COLOR_HOTLIGHT
:==
26
COLOR_GRADIENTACTIVECAPTION
:==
27
COLOR_GRADIENTINACTIVECAPTION
:==
28
COLOR_DESKTOP
:==
COLOR_BACKGROUND
COLOR_3DFACE
:==
COLOR_BTNFACE
COLOR_3DSHADOW
:==
COLOR_BTNSHADOW
COLOR_3DHIGHLIGHT
:==
COLOR_BTNHIGHLIGHT
COLOR_3DHILIGHT
:==
COLOR_BTNHIGHLIGHT
COLOR_BTNHILIGHT
:==
COLOR_BTNHIGHLIGHT
GetSysColor
::
!
Int
->
Int
GetSysColor
nIndex
=
code {
ccall
GetSysColor@4
"PI:I"
}
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,
!
PSt
.
l
)
GetDialogBackgroundColour
ps
=
(
RGB
{
r
=
rcol
,
g
=
gcol
,
b
=
bcol
},
ps
)
where
col
=
GetSysColor
COLOR_BTNFACE
rcol
=
(
col
bitand
0x000000FF
)
gcol
=
(
col
bitand
0x0000FF00
)
>>
8
bcol
=
(
col
bitand
0x00FF0000
)
>>
16
Write
Preview
Supports
Markdown
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