411 lines
17 KiB
C++
411 lines
17 KiB
C++
--- tcl_interf/event.cc.orig Tue Oct 20 13:20:48 1998
|
|
+++ tcl_interf/event.cc Mon Aug 11 21:12:28 2003
|
|
@@ -41,13 +41,13 @@
|
|
sheet->recalc(aux);
|
|
sheet->display(aux);
|
|
|
|
- sprintf(command,"unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set activeCellCol %d
|
|
- set activeCellRow %d
|
|
- highlightActiveCell",col,row);
|
|
+ sprintf(command,"unhighlightActiveCell \n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet] \n"
|
|
+ "unhighlightColSelection \n"
|
|
+ "unhighlightRowSelection \n"
|
|
+ "set activeCellCol %d \n"
|
|
+ "set activeCellRow %d \n"
|
|
+ "highlightActiveCell",col,row);
|
|
sheet->RunScript(command);
|
|
}
|
|
|
|
@@ -73,12 +73,12 @@
|
|
char command[512];
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- DeleteRowOrColumn $activeSheet %d %d %c 0
|
|
- highlightActiveCell",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "DeleteRowOrColumn $activeSheet %d %d %c 0\n"
|
|
+ "highlightActiveCell",
|
|
cr_ind,cr_num,col_or_row);
|
|
sheet->RunScript(command);
|
|
|
|
@@ -92,31 +92,31 @@
|
|
|
|
if(col_or_row='c')
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- InsertRowOrColumn $activeSheet %d %d c 0
|
|
- redrawCanvas $activeSheet
|
|
- set cols_selected [list %d %d]
|
|
- highlightColSelection
|
|
- set currentRange \
|
|
- [list %d 0 %d [expr [DefSheetHeight] - 1]]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "InsertRowOrColumn $activeSheet %d %d c 0\n"
|
|
+ "redrawCanvas $activeSheet\n"
|
|
+ "set cols_selected [list %d %d]\n"
|
|
+ "highlightColSelection\n"
|
|
+ "set currentRange \\\n"
|
|
+ " [list %d 0 %d [expr [DefSheetHeight] - 1]]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
cr_ind,cr_num,cr_ind,cr_ind+cr_num-1,cr_ind,cr_ind+cr_num-1);
|
|
else
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- InsertRowOrColumn $activeSheet %d %d r 0
|
|
- redrawCanvas $activeSheet
|
|
- set rows_selected [list %d %d]
|
|
- highlightRowSelection
|
|
- set currentRange \
|
|
- [list 0 %d [expr [DefSheetWidth] - 1] %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "InsertRowOrColumn $activeSheet %d %d r 0\n"
|
|
+ "redrawCanvas $activeSheet\n"
|
|
+ "set rows_selected [list %d %d]\n"
|
|
+ "highlightRowSelection\n"
|
|
+ "set currentRange \\\n"
|
|
+ " [list 0 %d [expr [DefSheetWidth] - 1] %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
cr_ind,cr_num,cr_ind,cr_ind+cr_num-1,cr_ind,cr_ind+cr_num-1);
|
|
sheet->RunScript(command);
|
|
|
|
@@ -206,11 +206,11 @@
|
|
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- InsertRowOrColumn $activeSheet %d %d %c 0",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "InsertRowOrColumn $activeSheet %d %d %c 0",
|
|
cr_ind,cr_num,col_or_row);
|
|
sheet->RunScript(command);
|
|
if(col_or_row=='c')
|
|
@@ -237,21 +237,21 @@
|
|
|
|
if(col_or_row=='c')
|
|
sprintf(command,
|
|
- "redrawCanvas $activeSheet
|
|
- set cols_selected [list %d %d]
|
|
- highlightColSelection
|
|
- set currentRange \
|
|
- [list %d 0 %d [expr [DefSheetHeight] - 1]]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "redrawCanvas $activeSheet\n"
|
|
+ "set cols_selected [list %d %d]\n"
|
|
+ "highlightColSelection\n"
|
|
+ "set currentRange \\\n"
|
|
+ " [list %d 0 %d [expr [DefSheetHeight] - 1]]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
cr_ind,cr_ind+cr_num-1,cr_ind,cr_ind+cr_num-1);
|
|
else
|
|
sprintf(command,
|
|
- "redrawCanvas $activeSheet
|
|
- set rows_selected [list %d %d]
|
|
- highlightRowSelection
|
|
- set currentRange \
|
|
- [list 0 %d [expr [DefSheetWidth] - 1] %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "redrawCanvas $activeSheet\n"
|
|
+ "set rows_selected [list %d %d]\n"
|
|
+ "highlightRowSelection\n"
|
|
+ "set currentRange \\\n"
|
|
+ " [list 0 %d [expr [DefSheetWidth] - 1] %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
cr_ind,cr_ind+cr_num-1,cr_ind,cr_ind+cr_num-1);
|
|
|
|
sheet->RunScript(command);
|
|
@@ -263,12 +263,12 @@
|
|
char command[512];
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- DeleteRowOrColumn $activeSheet %d %d %c 0
|
|
- highlightActiveCell",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "DeleteRowOrColumn $activeSheet %d %d %c 0\n"
|
|
+ "highlightActiveCell",
|
|
cr_ind,cr_num,col_or_row);
|
|
sheet->RunScript(command);
|
|
RedoGraph();
|
|
@@ -385,13 +385,13 @@
|
|
sheet->recalc(aux);
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set activeCellCol %d
|
|
- set activeCellRow %d
|
|
- highlightActiveCell",x_start,y_start);
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set activeCellCol %d\n"
|
|
+ "set activeCellRow %d\n"
|
|
+ "highlightActiveCell",x_start,y_start);
|
|
}
|
|
else
|
|
{
|
|
@@ -426,12 +426,12 @@
|
|
delete new_savs[i];
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
x_start,y_start,x_end,y_end);
|
|
}
|
|
sheet->RunScript(command);
|
|
@@ -487,12 +487,12 @@
|
|
to->UndoEvent();
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
from->GetXStart(),from->GetYStart(),
|
|
from->GetXEnd(),from->GetYEnd());
|
|
(to->GetSheet())->RunScript(command);
|
|
@@ -506,12 +506,12 @@
|
|
to->UndoEvent();
|
|
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
to->GetXStart(),to->GetYStart(),
|
|
to->GetXEnd(),to->GetYEnd());
|
|
(to->GetSheet())->RunScript(command);
|
|
@@ -636,15 +636,15 @@
|
|
sheet->display(aux);
|
|
num++;
|
|
}
|
|
- sprintf(command,"unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set cols_selected [list %d %d]
|
|
- highlightColSelection
|
|
- set currentRange \
|
|
- [list %d 0 %d [expr [DefSheetHeight] - 1]]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ sprintf(command,"unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set cols_selected [list %d %d]\n"
|
|
+ "highlightColSelection\n"
|
|
+ "set currentRange \\\n"
|
|
+ " [list %d 0 %d [expr [DefSheetHeight] - 1]]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
startcol,endcol,startcol,endcol);
|
|
}
|
|
else if(startcol==-1)
|
|
@@ -660,15 +660,15 @@
|
|
sheet->display(aux);
|
|
num++;
|
|
}
|
|
- sprintf(command,"unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set rows_selected [list %d %d]
|
|
- highlightRowSelection
|
|
- set currentRange \
|
|
- [list 0 %d [expr [DefSheetWidth] - 1] %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ sprintf(command,"unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set rows_selected [list %d %d]\n"
|
|
+ "highlightRowSelection\n"
|
|
+ "set currentRange \\n"
|
|
+ " [list 0 %d [expr [DefSheetWidth] - 1] %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
startrow,endrow,startrow,endrow);
|
|
}
|
|
else if((endrow==-1)&&(endcol==-1)) // cell - && is not necessary
|
|
@@ -680,13 +680,13 @@
|
|
lastformat=swp;
|
|
sheet->display(aux);
|
|
sprintf(command,
|
|
- "unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set activeCellCol %d
|
|
- set activeCellRow %d
|
|
- highlightActiveCell",startcol,startrow);
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set activeCellCol %d\n"
|
|
+ "set activeCellRow %d\n"
|
|
+ "highlightActiveCell",startcol,startrow);
|
|
}
|
|
}
|
|
else
|
|
@@ -704,12 +704,12 @@
|
|
}
|
|
else
|
|
internal_error();
|
|
- sprintf(command,"unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ sprintf(command,"unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet]\n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
startcol,startrow,endcol,endrow);
|
|
}
|
|
sheet->RunScript(command);
|
|
@@ -747,8 +747,8 @@
|
|
}
|
|
width=prev_width;
|
|
|
|
- sprintf(command,"[canvasFromSheet $activeSheet] yview scroll 1 units
|
|
- [canvasFromSheet $activeSheet] yview scroll -1 units");
|
|
+ sprintf(command,"[canvasFromSheet $activeSheet] yview scroll 1 units\n"
|
|
+ "[canvasFromSheet $activeSheet] yview scroll -1 units");
|
|
sheet->RunScript(command);
|
|
}
|
|
|
|
@@ -774,8 +774,8 @@
|
|
sheet->set_row_height(row,height);
|
|
height=prev_height;
|
|
|
|
- sprintf(command,"[canvasFromSheet $activeSheet] yview scroll 1 units
|
|
- [canvasFromSheet $activeSheet] yview scroll -1 units");
|
|
+ sprintf(command,"[canvasFromSheet $activeSheet] yview scroll 1 units\n"
|
|
+ "[canvasFromSheet $activeSheet] yview scroll -1 units");
|
|
sheet->RunScript(command);
|
|
}
|
|
|
|
@@ -797,13 +797,13 @@
|
|
{
|
|
char command[512];
|
|
|
|
- sprintf(command,"doDeleteGraph %d
|
|
- unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ sprintf(command,"doDeleteGraph %d\n"
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet] \n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
gr->number,
|
|
gr->range.start.col,gr->range.start.row,
|
|
gr->range.end.col,gr->range.end.row);
|
|
@@ -884,13 +884,13 @@
|
|
{
|
|
char command[512];
|
|
|
|
- sprintf(command,"doDeleteGraph %d
|
|
- unhighlightActiveCell
|
|
- unhighlightCurrentRange [canvasFromSheet $activeSheet]
|
|
- unhighlightColSelection
|
|
- unhighlightRowSelection
|
|
- set currentRange [list %d %d %d %d]
|
|
- highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
+ sprintf(command,"doDeleteGraph %d\n"
|
|
+ "unhighlightActiveCell\n"
|
|
+ "unhighlightCurrentRange [canvasFromSheet $activeSheet] \n"
|
|
+ "unhighlightColSelection\n"
|
|
+ "unhighlightRowSelection\n"
|
|
+ "set currentRange [list %d %d %d %d]\n"
|
|
+ "highlightCurrentRange [canvasFromSheet $activeSheet]",
|
|
gr->number,
|
|
gr->range.start.col,gr->range.start.row,
|
|
gr->range.end.col,gr->range.end.row);
|
|
@@ -931,9 +931,9 @@
|
|
|
|
sheet->add_graph_deps(sheet->graphs[i]);
|
|
|
|
- sprintf(command," [canvasFromSheet $activeSheet] delete graphrect
|
|
- [canvasFromSheet $activeSheet] delete graph_%d
|
|
- doDrawGraph [GetGraphParams $activeSheet %d] %d ",
|
|
+ sprintf(command," [canvasFromSheet $activeSheet] delete graphrect\n"
|
|
+ "[canvasFromSheet $activeSheet] delete graph_%d\n"
|
|
+ "doDrawGraph [GetGraphParams $activeSheet %d] %d ",
|
|
grph->number,grph->number,grph->number);
|
|
|
|
delete grph;
|