Commit 6eb8553c authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

*** empty log message ***


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@120 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 666098fc
......@@ -4,28 +4,25 @@ import iDataStyleDef, StdInt, iDataSettings
// This module controlles the styles being used by iData & iTask applications
StyleSheetIntern :== True // True, if the internlly defined CleanStyles are being used, otherwise use styles defined externally
StyleSheetIntern :== False // True, if the internlly defined CleanStyles are being used, otherwise use styles defined externally
InternalCleanStyles :: [Style] // Internal styles defined in this module
ExternalCleanStyles :== ThisExe +++ "/clean.css" // External styles can be found here
InternalCleanStyles :: [Style] // Internal styles defined in this module
ExternalCleanStyles :== ThisExe +++ "\/clean.css" // External styles can be found here
//TableHeaderStyle :: Standard_Attr
TableHeaderStyle :== Std_Class "TableHeader"
//TableRowStyle :: Standard_Attr
TableRowStyle :== Std_Class "TableRow"
//CleanStyle :: Standard_Attr
CleanStyle :== Std_Class "CleanStyle"
//EditBoxStyle :: Standard_Attr
EditBoxStyle :== Std_Class "EditBox"
//DisplayBoxStyle :: Standard_Attr
DisplayBoxStyle :== Std_Class "DisplayBox"
TableHeaderStyle :== Std_Class "TableHeader"
TableRowStyle :== Std_Class "TableRow"
LabelStyle :== Std_Class "Label"
MainLabelStyle :== Std_Class "MainLabel"
HighLightStyle :== Std_Class "HighLight"
LowLightStyle :== Std_Class "LowLight"
TraceStyle :== Std_Class "Trace"
// Some related default constants used for the length of input boxes
......
......@@ -38,6 +38,25 @@ InternalCleanStyles
, TxtColor (`Colorname White)
, BgColor (`Color (`HexColor (Hexnum H_3 H_2 H_7 H_2 H_9 H_D)))
]
, Style "Label"
[ TxtColor (`Colorname Yellow)
, FntWeight Fwo_Bold
]
, Style "MainLabel"
[ TxtColor (`Colorname Red)
, FntWeight Fwo_Bold
]
, Style "HighLight"
[ TxtColor (`Colorname Aqua)
, FntWeight Fwo_Bold
]
, Style "LowLight"
[ TxtColor (`Colorname Aqua)
]
, Style "Trace"
[ TxtColor (`Colorname Silver)
, FntWeight Fwo_Bold
]
, Style "SectionTitle"
[ FntFamily "Arial, Helvetica, sans-serif"
, TxtColor (`HexColor (Hexnum H_F H_E H_D H_B H_1 H_8))
......
......@@ -6,13 +6,13 @@ definition module iTasksSettings
import StdOverloaded
import iDataHtmlDef
import iDataStylelib
CTxt color message :== Font [Fnt_Color (`Colorname color)] [B [] (toString message)]
BCTxt color message :== Font [Fnt_Color (`Colorname color)] [Big [] (toString message)]
showText text :== Txt text
showLabel text :== TxtStyle LabelStyle text
showMainLabel text :== TxtStyle MainLabelStyle text
showHighLight text :== TxtStyle HighLightStyle text
showLowLight text :== TxtStyle LowLightStyle text
showTrace text :== TxtStyle TraceStyle text
showText text :== Txt text
showLabel text :== CTxt Yellow text
showMainLabel text :== CTxt Red text
showHighLight text :== BCTxt Aqua text
showLowLight text :== CTxt Aqua text
showTrace text :== CTxt Silver text
\ No newline at end of file
TxtStyle style message :== Font [`Fnt_Std [style]] [Txt (toString message)]
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment