move_cursor_to.il

上一篇 / 下一篇  2017-08-18 23:47:02 / 个人分类:script

; move_cursor_to    : move the mouse cursor to a point
; version           : 1.0
; author            : ZouJunlin
; date              : 20150319

procedure( move_cursor()  ;; display the move_cursor_to gui
     coordinateField = hiCreateStringField(
                    ?name 'coordinateField
?prompt "Enter the coordinate: X Y"
?editable t
                  );end hiCreateStringField
moveCursorForm. = hiCreateAppForm(
                    ?name 'moveCursorForm
?formTitle "move cursor to ..."
?callback 'move_cursor_to
?fields list(coordinateField)
?unmapAfterCB nil
                  );end hiCreateAppForm
hiDisplayForm(moveCursorForm)
);end procedure

procedure( move_cursor_to(callForm)
    cv = geGetEditCellView()
coordinateXY = parseString(callForm~>coordinateField~>value)
x = evalstring(car(coordinateXY))
y = evalstring(cadr(coordinateXY))
leSetRefPoint(cv x:y)
leMoveCursorToRefPoint()
);end procedure

printf("move_cursor_to loaded!\n");

;change the bindkey as you wish
hiSetBindKey("Layout" "<Key>[" "move_cursor()")

TAG:

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

我的栏目

日历

« 2017-09-19  
     12
3456789
10111213141516
17181920212223
24252627282930

数据统计

  • 访问量: 573
  • 日志数: 5
  • 建立时间: 2017-04-12
  • 更新时间: 2017-08-18

RSS订阅

Open Toolbar