luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

xschem() tcl extension function (scheduler.c) command lookup made much faster by ordering command strings

This commit is contained in:
Stefan Frederik 2020-12-05 00:01:09 +01:00
parent d4c289aded
commit e6d522bf69
5 changed files with 2314 additions and 2168 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/actions.c
View File

@ -284,14 +284,7 @@ void resetwin(int create_pixmap, int clear_pixmap, int force)
reset_cairo(create_pixmap, clear_pixmap); reset_cairo(create_pixmap, clear_pixmap);
} }
#else #else
HWND hwnd; HWND hwnd = Tk_GetHWND(xctx->window);
if (force) {
hwnd = Tk_GetHWND(pre_window);
}
else {
Tk_Window mainwindow = Tk_MainWindow(interp);
hwnd = Tk_GetHWND(Tk_WindowId(mainwindow));
}
RECT rct; RECT rct;
if (GetWindowRect(hwnd, &rct)) if (GetWindowRect(hwnd, &rct))
{ {

2
src/draw.c
View File

@ -1777,7 +1777,7 @@ int XSetClipRectangles(register Display* dpy, GC gc, int clip_x_origin, int clip
{ {
return 0; return 0;
} }
int XSetTile(Display* display, GC gc, Pixmap save_pixmap) int XSetTile(Display* display, GC gc, Pixmap s_pixmap)
{ {
return 0; return 0;
} }

4466
src/scheduler.c
View File

File diff suppressed because it is too large Load Diff

2
src/xschem.h
View File

@ -95,7 +95,7 @@
#define MOUSE_WHEEL_UP 38 #define MOUSE_WHEEL_UP 38
extern int XSetClipRectangles(register Display* dpy, GC gc, int clip_x_origin, extern int XSetClipRectangles(register Display* dpy, GC gc, int clip_x_origin,
int clip_y_origin, XRectangle* rectangles, int n, int ordering); int clip_y_origin, XRectangle* rectangles, int n, int ordering);
extern int XSetTile(Display* display, GC gctiled, Pixmap save_pixmap); extern int XSetTile(Display* display, GC gctiled, Pixmap s_pixmap);
extern void change_to_unix_fn(char* fn); extern void change_to_unix_fn(char* fn);
extern char win_temp_dir[PATH_MAX]; extern char win_temp_dir[PATH_MAX];
#define xfseek _fseeki64 #define xfseek _fseeki64

3
src/xschem.tcl
View File

@ -3174,9 +3174,6 @@ proc test1 {} {
bind .drw <Enter> {+ new_window switch 0} bind .drw <Enter> {+ new_window switch 0}
} }
proc set_bindings {window_path} { proc set_bindings {window_path} {
global env no_x global env no_x
### ###