Source

Kephra / lib / Kephra / App / Editor.pm

Diff from to

lib/Kephra/App/Editor.pm

 
 sub is_empty { not shift->GetTextLength }
 
+sub unmount_events {
+	my ($self, @which) = @_;
+	Wx::Event::EVT_STC_CHANGE          ($self, -1, sub {} );
+	Wx::Event::EVT_KEY_DOWN            ($self,     sub {} );
+	Wx::Event::EVT_STC_SAVEPOINTREACHED($self, -1, sub {} );
+	Wx::Event::EVT_STC_SAVEPOINTLEFT   ($self, -1, sub {} );
+	Wx::Event::EVT_SET_FOCUS           ($self,     sub {} );
+}
+
 sub mount_events {
 	my ($self, @which) = @_;
 	$self->DragAcceptFiles(1) if $^O eq 'MSWin32'; # enable drop files on win