80 val message: Markup_Tree.Select[Color] = |
80 val message: Markup_Tree.Select[Color] = |
81 { |
81 { |
82 case Text.Info(_, XML.Elem(Markup(Markup.WRITELN, _), _)) => regular_color |
82 case Text.Info(_, XML.Elem(Markup(Markup.WRITELN, _), _)) => regular_color |
83 case Text.Info(_, XML.Elem(Markup(Markup.WARNING, _), _)) => warning_color |
83 case Text.Info(_, XML.Elem(Markup(Markup.WARNING, _), _)) => warning_color |
84 case Text.Info(_, XML.Elem(Markup(Markup.ERROR, _), _)) => error_color |
84 case Text.Info(_, XML.Elem(Markup(Markup.ERROR, _), _)) => error_color |
|
85 } |
|
86 |
|
87 val popup: Markup_Tree.Select[XML.Tree] = |
|
88 { |
|
89 case Text.Info(_, msg @ XML.Elem(Markup(markup, _), _)) |
|
90 if markup == Markup.WRITELN || markup == Markup.WARNING || markup == Markup.ERROR => msg |
85 } |
91 } |
86 |
92 |
87 val gutter_message: Markup_Tree.Select[Icon] = |
93 val gutter_message: Markup_Tree.Select[Icon] = |
88 { |
94 { |
89 case Text.Info(_, XML.Elem(Markup(Markup.WARNING, _), _)) => warning_icon |
95 case Text.Info(_, XML.Elem(Markup(Markup.WARNING, _), _)) => warning_icon |