Commits

Herbert Breunung  committed 5d84aaa

many active and 2 wishes entry into main menu

  • Participants
  • Parent commits b5020cc

Comments (0)

Files changed (4)

File lib/Kephra/App/Bar/Document.pm

 	$position = $self->leftmost_page_pos     if $position eq 'leftmost';
 	$set_active = 1                          unless defined $set_active;
 
-print "L:$label, P:$position \n";
+#print "L:$label, P:$position \n";
 
 	unless ($new_panel->isa('Wx::Panel')) { # put panel under a none-panel
-print "repanel \n";
+#print "repanel \n";
 		$new_panel = Kephra::App::Panel->new( $self, $new_panel);
 	}
 	else { $new_panel->Reparent( $self ) }

File lib/Kephra/App/Panel/Editor.pm

 		$main_doc_bar->SetPageText( $main_doc_bar->GetSelection , $doc->file_name );
 	} else {                                         # make new editor
 		$doc = Kephra::Document->new();
-		 $doc->assign_file( $file );
-		 $doc->editor( Kephra::App::Editor->new( $win ) );
-		 Kephra::DocumentStash::add_and_activate( $doc );
-		 $main_doc_bar->add_page( $doc->file_name, -1, 1, $doc);
+		$doc->assign_file( $file );
+		$doc->editor( Kephra::App::Editor->new( $win ) );
+		Kephra::DocumentStash::add_and_activate( $doc );
+#print "$win $doc $file\n";
+		$main_doc_bar->add_page( $doc->file_name, -1, 1, $doc);
 	}
 	$doc->editor->focus();
 	$win->refresh_title();

File lib/Kephra/Config/Default/Menu.pm

 			#],
 			#[	{menu_ID => 'selection'},
 			#],
-			#[	{menu_ID => 'select'},
-			#],
-			#'',
-			#[	{menu_ID => 'format'},
-			#],
+			[	{menu_ID => 'select'},
+				'+-doc',
+				'+-doc-start',
+				'+-doc-end',
+				'+-page-up',
+				'+-page-down',
+				'+-block-up',
+				'+-block-down',
+				'+-line-up',
+				'+-line-down',
+				'+-line-start',
+				'+-line-end',
+				'+-form',
+				'+-content',
+			],
+			'',
+			[	{menu_ID => 'format'},
+				'--indent-level',
+				'--dedent-level',
+			],
 			#[	{menu_ID => 'comment'},
 			#],
 			#[	{menu_ID => 'convert'},
 			#],
 		],
-		#[	{menu_ID => 'search'},
-		#],
+		[	{menu_ID => 'search'},
+				'edit-goto-last-change',
+		],
 		[	{menu_ID => 'document'},
 			[	{menu_ID => 'change'},
 				'--select-left',

File lib/Kephra/Edit/Search.pm

  '+-goto-doc-end'     =>{sub=>'$ed->DocumentEnd',       label=>'Doc End',      keys=>'ctrl+end' },
  '+-select-doc-start' =>{sub=>'$ed->DocumentStartExtend',label=>'Doc Start',   keys=>'ctrl+shift+home'},
  '+-select-doc-end'   =>{sub=>'$ed->DocumentEndExtend', label=>'Doc End',      keys=>'ctrl+shift+end' },
+ '+-select-doc'       =>{sub=>'$ed->SelectAll',         label=>'All',          keys=>'ctrl+a' },
  '+-goto-last-change' =>{sub=>'$ed->goto_last_change',  label=>'Last Change',  keys=>'ctrl+shift+g'},
  '+-find-next-comment'=>{sub=>'$ed->next_comment',      label=>'Next Comment', keys=>'ctrl+#' },
  '+-find-prev-comment'=>{sub=>'$ed->prev_comment',      label=>'Prev Comment', keys=>'ctrl+shift+#' },