Browse CVS Repository
Diff of /shiki/shiki/xyzzylisp.stub
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 1 |
|
; vim: set encoding=utf8: |
| 2 |
|
|
| 3 |
"#include \"shiki.h\"" |
"#include \"shiki.h\"" |
| 4 |
|
|
| 5 |
|
(define-variable *indent-width* 2) |
| 6 |
|
(define-variable *mode-line-format* #f) |
| 7 |
|
|
| 8 |
(define-type <buffer> "GtkTextBuffer*" "buffer" |
(define-type <buffer> "GtkTextBuffer*" "buffer" |
| 9 |
"SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX") |
"SHIKI_BUFFER_P" "SHIKI_BUFFER_UNBOX" "SHIKI_BUFFER_BOX") |
| 10 |
|
|
| 172 |
gtk_dialog_run(GTK_DIALOG(dialog)); |
gtk_dialog_run(GTK_DIALOG(dialog)); |
| 173 |
gtk_widget_destroy(dialog); |
gtk_widget_destroy(dialog); |
| 174 |
SCM_RESULT = SCM_SYMBOL(SCM_INTERN(\":ok\"));")) |
SCM_RESULT = SCM_SYMBOL(SCM_INTERN(\":ok\"));")) |
| 175 |
|
|
| 176 |
|
|
| 177 |
|
(define-cproc current-line-number () |
| 178 |
|
(body <int> |
| 179 |
|
" GtkTextIter p; |
| 180 |
|
gtk_text_buffer_get_iter_at_mark(Shiki_CURRENT_TEXT_BUFFER,&p, gtk_text_buffer_get_insert(Shiki_CURRENT_TEXT_BUFFER)); |
| 181 |
|
SCM_RESULT = gtk_text_iter_get_line(&p) + 1;")) |
| 182 |
|
|
| 183 |
|
(define-cproc current-column () |
| 184 |
|
(body <int> |
| 185 |
|
" GtkTextIter p; |
| 186 |
|
gtk_text_buffer_get_iter_at_mark(Shiki_CURRENT_TEXT_BUFFER,&p, gtk_text_buffer_get_insert(Shiki_CURRENT_TEXT_BUFFER)); |
| 187 |
|
SCM_RESULT = gtk_text_iter_get_line_offset(&p) + 1;")) |
| 188 |
|
|
|
|
Legend:
| Removed from v.1.10 |
|
| changed lines |
| |
Added in v.1.11 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch