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
a24c119d
Commit
a24c119d
authored
Jun 20, 2005
by
John van Groningen
Browse files
call defaultPrintSetup the first time the printer is used, and not when the IDE
starts
parent
960b2eb0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Ide/IdeState.dcl
View file @
a24c119d
...
...
@@ -110,10 +110,10 @@ setCompilerProcessIds :: !CompilerProcessIds !*(PSt *General) -> *(PSt *General)
//---
iniGeneral
::
Prefs
.
Pathname
iniGeneral
::
!
Prefs
!
.
Pathname
Bool
*
File
Id
Id
.(
ExtListBoxId
*(
PSt
*
General
))
EditorState
.
FindInfo
.(
FindBoxInfo
*(
PSt
*
General
))
Id
Id
TypeWinInfo
ConsWinInfo
.[.
Target
]
Id
Id
(
R2Id
PLMMessage
PLMReply
)
!*
World
//*env
!
Id
!
Id
!
.(
ExtListBoxId
*(
PSt
*
General
))
!
EditorState
!
.
FindInfo
!
.(
FindBoxInfo
*(
PSt
*
General
))
!
Id
!
Id
!
TypeWinInfo
!
ConsWinInfo
!
.[.
Target
]
!
Id
!
Id
!
(
R2Id
PLMMessage
PLMReply
)
!*
World
//*env
->
*(!
ClipInfo
,!*
General
,!*
World
)
//---
...
...
Ide/IdeState.icl
View file @
a24c119d
...
...
@@ -6,6 +6,7 @@ import PmPath, PmProject, PmPrefs, PmFileInfo
import
clipboard
,
typewin
,
fbi
,
PmAbcMagic
,
errwin
import
flextextcontrol
,
ioutil
,
UtilStrictLists
from
PmCleanSystem
import
::
CompilerProcessIds
,
NoCompilerProcessIds
from
StdPStClass
import
instance
FileEnv
(
PSt
.
l
)
::
InfoDialogInfo
=
{
pr_info
::
!
Id
// id for info dialog
...
...
@@ -46,7 +47,7 @@ from PmCleanSystem import ::CompilerProcessIds,NoCompilerProcessIds
,
abc_cache
::
!*(
Maybe
ABCCache
)
,
fi_cache
::
!(
Maybe
FileInfoCache
)
,
print_setup
::
!
PrintSetup
,
print_setup
::
!
Maybe
PrintSetup
,
project
::
!
Project
,
g_compiler_process_ids
::
!
CompilerProcessIds
...
...
@@ -58,6 +59,8 @@ from PmCleanSystem import ::CompilerProcessIds,NoCompilerProcessIds
,
fstate
::
![(!
Bool
,!
String
)]
}
::
MaybePrintSetup
=
NoPrintSetup
|
PrintSetup
!
PrintSetup
;
getFstate
::
!*(
PSt
*
General
)
->
([(!
Bool
,!
String
)],*(
PSt
*
General
))
getFstate
ps
=
accPLoc
(\
l
=:{
fstate
}->(
fstate
,
l
))
ps
...
...
@@ -166,10 +169,10 @@ setCompilerProcessIds compiler_project_ids ps = appPLoc (\l -> {l & g_compiler_p
//---
iniGeneral
::
Prefs
.
Pathname
iniGeneral
::
!
Prefs
!
.
Pathname
Bool
*
File
Id
Id
.(
ExtListBoxId
*(
PSt
*
General
))
EditorState
.
FindInfo
.(
FindBoxInfo
*(
PSt
*
General
))
Id
Id
TypeWinInfo
ConsWinInfo
.[.
Target
]
Id
Id
(
R2Id
PLMMessage
PLMReply
)
!*
World
//*env
!
Id
!
Id
!
.(
ExtListBoxId
*(
PSt
*
General
))
!
EditorState
!
.
FindInfo
!
.(
FindBoxInfo
*(
PSt
*
General
))
!
Id
!
Id
!
TypeWinInfo
!
ConsWinInfo
!
.[.
Target
]
!
Id
!
Id
!
(
R2Id
PLMMessage
PLMReply
)
!*
World
//*env
->
*(!
ClipInfo
,!*
General
,!*
World
)
iniGeneral
prefs
stup
interact
logfile
mTargetId
eTargetId
lbId
initEditorState
emptyFindInfo
ffind
...
...
@@ -204,7 +207,6 @@ iniGeneral
(
mdCstId
,
env
)
=
openId
env
(
edmrecid
,
env
)
=
openR2Id
env
#
(
errinfo
,
env
)
=
err_init
prefs
.
err_prefs
env
(
default_setup
,
env
)
=
defaultPrintSetup
env
#
(
srchIds
,
env
)
=
openIds
3
env
#
(
findIds
,
env
)
=
openIds
4
env
#
(
gotoIds
,
env
)
=
openIds
3
env
...
...
@@ -277,7 +279,7 @@ iniGeneral
,
callback
=
(\_
ps
->
ps
)
,
abc_cache
=
Just
AC_Init
,
fi_cache
=
Just
FI_EmptyCache
,
print_setup
=
default_s
etup
,
print_setup
=
NoPrintS
etup
,
project
=
PR_InitProject
,
g_compiler_process_ids
=
NoCompilerProcessIds
,
prefix
=
[
"//
\t
"
]
...
...
@@ -489,10 +491,14 @@ where
//--
getPrintSetup
::
!*(
PSt
*
General
)
->
(!
PrintSetup
,!*
PSt
*
General
)
getPrintSetup
ps
=
accPLoc
(\
p
=:{
print_setup
}->(
print_setup
,
p
))
ps
getPrintSetup
ps
=:{
ls
={
print_setup
=
PrintSetup
print_setup
}}
=
(
print_setup
,
ps
);
getPrintSetup
ps
=:{
ls
={
print_setup
=
NoPrintSetup
}}
#
(
default_setup
,
ps
)
=
defaultPrintSetup
ps
=
(
default_setup
,{
ps
&
ls
.
print_setup
=
PrintSetup
default_setup
});
setPrintSetup
::
!
PrintSetup
!*(
PSt
*
General
)
->
*
PSt
*
General
setPrintSetup
s
ps
=
appPLoc
(\
p
->
{
p
&
print_setup
=
s
})
ps
setPrintSetup
s
ps
=
{
p
s
&
ls
.
print_setup
=
PrintSetup
s
};
getPrefix
::
!*(
PSt
*
General
)
->
(![
String
],!*
PSt
*
General
)
getPrefix
ps
=
accPLoc
(\
p
=:{
prefix
}->(
prefix
,
p
))
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