src/Pure/PIDE/markup.ML
changeset 50499 f496b2b7bafb
parent 50498 6647ba2775c1
child 50500 c94bba7906d2
equal deleted inserted replaced
50498:6647ba2775c1 50499:f496b2b7bafb
    94   val timingN: string val timing: Timing.timing -> T
    94   val timingN: string val timing: Timing.timing -> T
    95   val subgoalsN: string
    95   val subgoalsN: string
    96   val proof_stateN: string val proof_state: int -> T
    96   val proof_stateN: string val proof_state: int -> T
    97   val stateN: string val state: T
    97   val stateN: string val state: T
    98   val subgoalN: string val subgoal: T
    98   val subgoalN: string val subgoal: T
       
    99   val graphviewN: string
       
   100   val sendbackN: string
    99   val paddingN: string
   101   val paddingN: string
   100   val padding_line: string * string
   102   val padding_line: string * string
   101   val sendbackN: string
       
   102   val dialogN: string val dialog: string -> string -> T
   103   val dialogN: string val dialog: string -> string -> T
   103   val graphviewN: string
       
   104   val intensifyN: string val intensify: T
   104   val intensifyN: string val intensify: T
   105   val taskN: string
   105   val taskN: string
   106   val acceptedN: string val accepted: T
   106   val acceptedN: string val accepted: T
   107   val forkedN: string val forked: T
   107   val forkedN: string val forked: T
   108   val joinedN: string val joined: T
   108   val joinedN: string val joined: T
   339 val (subgoalN, subgoal) = markup_elem "subgoal";
   339 val (subgoalN, subgoal) = markup_elem "subgoal";
   340 
   340 
   341 
   341 
   342 (* active areas *)
   342 (* active areas *)
   343 
   343 
       
   344 val graphviewN = "graphview";
       
   345 
   344 val sendbackN = "sendback";
   346 val sendbackN = "sendback";
       
   347 val paddingN = "padding";
       
   348 val padding_line = (paddingN, lineN);
   345 
   349 
   346 val dialogN = "dialog";
   350 val dialogN = "dialog";
   347 fun dialog name result = (dialogN, [(nameN, name), ("result", result)]);
   351 fun dialog name result = (dialogN, [(nameN, name), ("result", result)]);
   348 
       
   349 val graphviewN = "graphview";
       
   350 
       
   351 val paddingN = "padding";
       
   352 val padding_line = (paddingN, lineN);
       
   353 
   352 
   354 val (intensifyN, intensify) = markup_elem "intensify";
   353 val (intensifyN, intensify) = markup_elem "intensify";
   355 
   354 
   356 
   355 
   357 (* command status *)
   356 (* command status *)