method private create_tags () =
begin
let stipple = Gdk.Bitmap.create_from_data 2 2 "\002\001" in
buffer#create_tag ~name:"heading" [`WEIGHT `BOLD; `SIZE (15*Pango.scale)] => ignore ;
buffer#create_tag ~name:"italic" [`STYLE `ITALIC] => ignore ;
buffer#create_tag ~name:"bold" [`WEIGHT `BOLD] => ignore ;
buffer#create_tag ~name:"big" [`SIZE 20] => ignore ;
buffer#create_tag ~name:"xx-small" [`SCALE `XX_SMALL] => ignore ;
buffer#create_tag ~name:"x-large" [`SCALE `X_LARGE] => ignore ;
buffer#create_tag ~name:"monospace" [`FAMILY "monospace"] => ignore ;
buffer#create_tag ~name:"blue_foreground" [`FOREGROUND "blue"] => ignore ;
buffer#create_tag ~name:"red_background" [`BACKGROUND "red"] => ignore ;
buffer#create_tag ~name:"background_stipple" [`BACKGROUND_STIPPLE stipple] => ignore ;
buffer#create_tag ~name:"foreground_stipple" [`FOREGROUND_STIPPLE stipple] => ignore ;
buffer#create_tag ~name:"big_gap_before_line" [`PIXELS_ABOVE_LINES 30] => ignore ;
buffer#create_tag ~name:"big_gap_after_line" [`PIXELS_BELOW_LINES 30] => ignore ;
buffer#create_tag ~name:"double_spaced_line" [`PIXELS_INSIDE_WRAP 10] => ignore ;
buffer#create_tag ~name:"not_editable" [`EDITABLE false] => ignore ;
buffer#create_tag ~name:"word_wrap" [`WRAP_MODE `WORD] => ignore ;
buffer#create_tag ~name:"char_wrap" [`WRAP_MODE `CHAR] => ignore ;
buffer#create_tag ~name:"no_wrap" [`WRAP_MODE `NONE] => ignore ;
buffer#create_tag ~name:"center" [`JUSTIFICATION `CENTER] => ignore ;
buffer#create_tag ~name:"right_justify" [`JUSTIFICATION `RIGHT] => ignore ;
buffer#create_tag ~name:"wide_margins" [`LEFT_MARGIN 50; `RIGHT_MARGIN 50] => ignore ;
buffer#create_tag ~name:"strikethrough" [`STRIKETHROUGH true] => ignore ;
buffer#create_tag ~name:"underline" [`UNDERLINE `SINGLE] => ignore ;
buffer#create_tag ~name:"double_underline" [`UNDERLINE `DOUBLE] => ignore ;
buffer#create_tag ~name:"superscript" [`RISE (10*Pango.scale); `SIZE (8*Pango.scale)] => ignore ;
buffer#create_tag ~name:"subscript" [`RISE (-10*Pango.scale); `SIZE (8*Pango.scale)] => ignore ;
buffer#create_tag ~name:"rtl_quote"[`WRAP_MODE `WORD; `DIRECTION `RTL; `INDENT 30; `LEFT_MARGIN 20; `RIGHT_MARGIN 20] => ignore ;
()
end