# Copyright (c) 2023 M.J.N. Corino, The Netherlands
#
# This software is released under the MIT license.
# 
# Some parts are
# Copyright 2004-2007, wxRuby development team
# released under the MIT-like wxRuby2 license

# Adapted for wxRuby3
###

require 'wx'

module Scintilla

  include Wx

  Minimal_Quit = 1
  Minimal_About = ID_ABOUT
  Toggle_Whitespace = 5000
  Toggle_EOL = 5001

  class MyFrame < Frame

    include Wx

    def initialize(title,pos,size,style=DEFAULT_FRAME_STYLE)
      super(nil,-1,title,pos,size,style)

      self.icon = Wx.Icon(:sample, Wx::BITMAP_TYPE_XPM, art_path: File.join(__dir__, '..'))

      menuFile = Menu.new
      menuFile.append(Minimal_Quit, "E&xit\tAlt-X", "Quit this program")

      menuView = Menu.new
      menuView.append(Toggle_Whitespace, "Show &Whitespace\tF6", "Show Whitespace", ITEM_CHECK)
      menuView.append(Toggle_EOL, "Show &End of Line\tF7", "Show End of Line characters", ITEM_CHECK)

      menuHelp = Menu.new
      menuHelp.append(Minimal_About, "&About...\tF1", "Show about dialog")

      menuBar = MenuBar.new
      menuBar.append(menuFile, "&File")
      menuBar.append(menuView, "&View")
      menuBar.append(menuHelp, "&Help")
      set_menu_bar(menuBar)

      tb = create_tool_bar(Wx::TB_HORIZONTAL | Wx::NO_BORDER | Wx::TB_FLAT | Wx::TB_TEXT)

      create_status_bar(2)
      set_status_text("Welcome to wxRuby!")

      @sci = Wx::StyledTextCtrl.new(self)

      font = Font.new(10, FONTFAMILY_TELETYPE, FONTSTYLE_NORMAL, FONTWEIGHT_NORMAL)
      @sci.style_set_font(STC_STYLE_DEFAULT, font);

      @ws_visible = false
      @eol_visible = false
      @sci.set_edge_mode(STC_EDGE_LINE)

      line_num_margin = @sci.text_width(STC_STYLE_LINENUMBER, "_99999")
      @sci.set_margin_width(0, line_num_margin)

      @sci.style_set_foreground(STC_STYLE_DEFAULT, BLACK);
      @sci.style_set_background(STC_STYLE_DEFAULT, WHITE);
      @sci.style_set_foreground(STC_STYLE_LINENUMBER, LIGHT_GREY);
      @sci.style_set_background(STC_STYLE_LINENUMBER, WHITE);
      @sci.style_set_foreground(STC_STYLE_INDENTGUIDE, LIGHT_GREY);

      @sci.set_tab_width(4)
      @sci.set_use_tabs(false)
      @sci.set_tab_indents(true)
      @sci.set_back_space_un_indents(true)
      @sci.set_indent(4)
      @sci.set_edge_column(80)

      @sci.set_lexer(STC_LEX_RUBY)
      @sci.style_clear_all
      @sci.style_set_foreground(2, RED)
      @sci.style_set_foreground(3, GREEN)
      @sci.style_set_foreground(5, BLUE)
      @sci.style_set_foreground(6, BLUE)
      @sci.style_set_foreground(7, BLUE)
      @sci.set_key_words(0, "begin break elsif module retry unless end case next return until class ensure nil self when def false not super while alias defined? for or then yield and do if redo true else in rescue undef")

      @sci.set_property("fold","1")
      @sci.set_property("fold.compact", "0")
      @sci.set_property("fold.comment", "1")
      @sci.set_property("fold.preprocessor", "1")

      @sci.set_margin_width(1, 0)
      @sci.set_margin_type(1, STC_MARGIN_SYMBOL)
      @sci.set_margin_mask(1, STC_MASK_FOLDERS)
      @sci.set_margin_width(1, 20)

      @sci.marker_define(STC_MARKNUM_FOLDER, STC_MARK_PLUS)
      @sci.marker_define(STC_MARKNUM_FOLDEROPEN, STC_MARK_MINUS)
      @sci.marker_define(STC_MARKNUM_FOLDEREND, STC_MARK_EMPTY)
      @sci.marker_define(STC_MARKNUM_FOLDERMIDTAIL, STC_MARK_EMPTY)
      @sci.marker_define(STC_MARKNUM_FOLDEROPENMID, STC_MARK_EMPTY)
      @sci.marker_define(STC_MARKNUM_FOLDERSUB, STC_MARK_EMPTY)
      @sci.marker_define(STC_MARKNUM_FOLDERTAIL, STC_MARK_EMPTY)
      @sci.set_fold_flags(16)

      @sci.set_margin_sensitive(1,1)

      evt_menu(Minimal_Quit) {onQuit}
      evt_menu(Minimal_About) {onAbout}
      evt_menu(Toggle_Whitespace) {onWhitespace}
      evt_menu(Toggle_EOL) {onEOL}
      evt_stc_charadded(@sci.get_id) {|evt| onCharadded(evt)}
      evt_stc_marginclick(@sci.get_id) {|evt| onMarginClick(evt)}

    end

    def onQuit
      close(true)
    end

    def onAbout
      GC.start
      msg =  sprintf("This is the About dialog of the scintilla sample.\n" \
             "Welcome to %s", WXWIDGETS_VERSION)

      message_box(msg, "About Scintilla", OK | ICON_INFORMATION, self)

    end

    def onWhitespace
      @ws_visible = !@ws_visible
      @sci.set_view_white_space(@ws_visible ? STC_WS_VISIBLEALWAYS : STC_WS_INVISIBLE)
    end

    def onEOL
      @eol_visible = !@eol_visible
      @sci.set_view_eol(@eol_visible)
    end

    def onCharadded(evt)
      chr =  evt.get_key
      curr_line = @sci.get_current_line

      if(chr == 13)
          if curr_line > 0
            line_ind = @sci.get_line_indentation(curr_line - 1)
            if line_ind > 0
              @sci.set_line_indentation(curr_line, line_ind)
              @sci.goto_pos(@sci.position_from_line(curr_line)+line_ind)
            end
          end
      end
    end

    def onMarginClick(evt)
      line_num = @sci.line_from_position(evt.get_position)
      margin = evt.get_margin

      if(margin == 1)
        @sci.toggle_fold(line_num)
      end
    end

  end

end

module STCSample

  include WxRuby::Sample if defined? WxRuby::Sample

  def self.describe
    { file: __FILE__,
      summary: 'Scintilla editor wxRuby example.',
      description: 'wxRuby example displaying frame window showcasing Scintilla editor control.' }
  end

  def self.activate
    frame = Scintilla::MyFrame.new("wxRuby Scintilla App",Point.new(50, 50), Size.new(450, 340))
    frame.show(true)
    frame
  end

  if $0 == __FILE__
    Wx::App.run do
      STCSample.activate
    end
    puts("back from run...") if Wx::DEBUG
    GC.start
    puts("survived gc") if Wx::DEBUG
  end

end