src/Pure/PIDE/rendering.scala
changeset 65222 fb8253564483
parent 65213 51c0f094dc02
child 65487 7847807b07ce
equal deleted inserted replaced
65221:6af51a47545b 65222:fb8253564483
   470 
   470 
   471           case (info, Text.Info(r0, XML.Elem(Markup(Markup.ML_TYPING, _), body))) =>
   471           case (info, Text.Info(r0, XML.Elem(Markup(Markup.ML_TYPING, _), body))) =>
   472             Some(info + (r0, false, Pretty.block(XML.Text("ML:") :: Pretty.brk(1) :: body)))
   472             Some(info + (r0, false, Pretty.block(XML.Text("ML:") :: Pretty.brk(1) :: body)))
   473 
   473 
   474           case (info, Text.Info(r0, Protocol.ML_Breakpoint(breakpoint))) =>
   474           case (info, Text.Info(r0, Protocol.ML_Breakpoint(breakpoint))) =>
   475             Debugger.get(session) match {
   475               val text =
   476               case None => None
   476                 if (session.debugger.breakpoint_state(breakpoint)) "breakpoint (enabled)"
   477               case Some(debugger) =>
   477                 else "breakpoint (disabled)"
   478                 val text =
   478               Some(info + (r0, true, XML.Text(text)))
   479                   if (debugger.breakpoint_state(breakpoint)) "breakpoint (enabled)"
       
   480                   else "breakpoint (disabled)"
       
   481                 Some(info + (r0, true, XML.Text(text)))
       
   482             }
       
   483           case (info, Text.Info(r0, XML.Elem(Markup.Language(language, _, _, _), _))) =>
   479           case (info, Text.Info(r0, XML.Elem(Markup.Language(language, _, _, _), _))) =>
   484             val lang = Word.implode(Word.explode('_', language))
   480             val lang = Word.implode(Word.explode('_', language))
   485             Some(info + (r0, true, XML.Text("language: " + lang)))
   481             Some(info + (r0, true, XML.Text("language: " + lang)))
   486 
   482 
   487           case (info, Text.Info(r0, XML.Elem(Markup.Expression(kind), _))) =>
   483           case (info, Text.Info(r0, XML.Elem(Markup.Expression(kind), _))) =>