suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 8b493aab6bdfd47c5f1b93a9f8c97fc62d697962
This commit is contained in:
Robby Findler 2003-09-13 23:36:38 +00:00
parent 3cc0f12554
commit caf4d822ce
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mred/private/seqcontract.ss
View File

@ -215,6 +215,10 @@ Matthew
|#
;; need to figure out
;; line-start-position and friends
;; (line-start-position not valid in readlock)
(define lock-contract-mixin
(sequence-contract-mixin
(state-machine
@ -233,6 +237,13 @@ Matthew
(set-min-height [(width)] unlocked)
(set-max-height [(width)] unlocked)
(set-tabs [(tabs) (tabs tab-width) (tabs tab-width units?)] unlocked)
(print [()
(interactive?)
(interactive? fit-on-page?)
(interactive? fit-on-page? output-mode)
(interactive? fit-on-page? output-mode parent)
(interactive? fit-on-page? output-mode parent force-ps-page-bbox?)]
unlocked)
(get-text [() (x) (x y) (x y z) (x y z p)] unlocked)
(get-character [(start)] unlocked)
@ -268,6 +279,13 @@ Matthew
(set-min-height [(width)] write-lock)
(set-max-height [(width)] write-lock)
(set-tabs [(tabs) (tabs tab-width) (tabs tab-width units?)] write-lock)
(print [()
(interactive?)
(interactive? fit-on-page?)
(interactive? fit-on-page? output-mode)
(interactive? fit-on-page? output-mode parent)
(interactive? fit-on-page? output-mode parent force-ps-page-bbox?)]
write-lock)
(get-text [() (x) (x y) (x y z) (x y z p)] write-lock)
(get-character [(start)] write-lock)